这是窗体里的代码: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
执行之后数据显示成功但是数据库查不到输入的数据
VB中链接数据库插入数据问题?
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
1条回答
- threenewbee 2020-01-30 19:38关注
Public Function executesql(ByVal sql As String, msgstring As String)
Debug.Print sql '加上这个输出下sqlOn Error GoTo executesql_onerror
这个删除,看看是否报错cnn.Open connectstring
看这里的conectstring,写入的是哪个数据库文件,和你看到的是不是不是同一个。本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥15 如何在scanpy上做差异基因和通路富集?
- ¥20 关于#硬件工程#的问题,请各位专家解答!
- ¥15 关于#matlab#的问题:期望的系统闭环传递函数为G(s)=wn^2/s^2+2¢wn+wn^2阻尼系数¢=0.707,使系统具有较小的超调量
- ¥15 FLUENT如何实现在堆积颗粒的上表面加载高斯热源
- ¥30 截图中的mathematics程序转换成matlab
- ¥15 动力学代码报错,维度不匹配
- ¥15 Power query添加列问题
- ¥50 Kubernetes&Fission&Eleasticsearch
- ¥15 報錯:Person is not mapped,如何解決?
- ¥15 c++头文件不能识别CDialog