VB中链接数据库插入数据问题?

这是窗体里的代码:executesql "insert into 收入(日期,方式,金额,项目,序号) values(" & Format(DTPicker1.Value, "yyyy-mm-dd") & "," & Combo2.Text & "," & Text2.Text & "," & Combo1.Text & "," & Text3.Text & "," & List1.Text & "," & b & ") ", str_text
这是模块中引用的代码:Public Function executesql(ByVal sql As String, msgstring As String)
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim stokens() As String
On Error GoTo executesql_onerror
Set cnn = New ADODB.Connection
cnn.Open connectstring
stokens = Split(sql)
If InStr("insert,delete,update", UCase$(stokens(0))) Then
cnn.Execute sql
msgstring = stokens(0) & "查询成功"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic
Set executesql = rst
msgstring = "查询到" & rst.RecordCount & "条记录"
executesql_exit:
Set cnn = Nothing
Set rst = Nothing
Exit Function
executesql_onerror:
msgstring = "查询错误" & Err.Description
Resume executesql_exit
End If
End Function
执行之后数据显示成功但是数据库查不到输入的数据

1个回答

Public Function executesql(ByVal sql As String, msgstring As String)
Debug.Print sql '加上这个输出下sql

On Error GoTo executesql_onerror
这个删除,看看是否报错

cnn.Open connectstring
看这里的conectstring,写入的是哪个数据库文件,和你看到的是不是不是同一个。

weixin_43539387
weixin_43539387 回复weixin_43539387: 自己研究出来了!感谢!
2 个月之前 回复
weixin_43539387
weixin_43539387 没有报错!数据库连接没有问题
2 个月之前 回复
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问

相似问题

0
vb6如何用ado跨数据库查询多个xls的数据
1
vb.net 怎么在对数据库操作的函数中,添加根据需求变化的有关数据库操作的函数?
3
VB6.0连接SQL 2008 R2数据库时遇到问题,求解决
1
vb.net 数据库的程式出现 “类型的第一次机会异常在 System.Data.dll 中发生
1
vb.net 将来自于另一服务器的数据库 (其中几个表格即可),同步到本机的数据库(MySQL)
2
VB6.0使用ADO对象模型访问数据库,怎么读取sql数据
1
vb 6.0怎么显示空值---显示数据库的空值
0
教学管理系统 数据库设计 开发工具用c++或java
1
vb.net做redis接口 TCPclient连接发送接收数据如何扩大容量 stream的读写缓存如何扩大
0
vb.net如何把一个excel的某部分复制粘贴到另一个excel的某个位置,包括插入的线,图形和规则等等
1
如何用VB获取游戏的模块基址?
2
vb 连另一台电脑的数据库,如果另一台电脑设有密码,用户名密码都知道,该怎么写?
0
vb.net获取不到iperf返回的数据 ,求各位大神帮忙。
1
为何在vb.net 中reogrid用Load打开Excel表格非常慢?
1
如何在VB.NET中使用 Linq 对数据进行分组?同时有多个字段
1
vb.net中使用spreadsheet控件
0
vb msghflexgrid 对应的datagrid 代码问题
1
vb.net 点窗体上的button,来执行键盘的键 Alt+a
0
【求助笔试题]】 找出VB.NET写的21点扑克牌程序中的问题
1
在VisualStudio2019用VB6.0找不到工具栏的计时器。