weixin_43539387 2020-01-30 09:47 采纳率: 0%
浏览 433
已采纳

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条回答 默认 最新

  • threenewbee 2020-01-30 11:38
    关注

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

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

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

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
编辑
预览

报告相同问题?

悬赏问题

  • ¥15 全志t113i启动qt应用程序提示internal error
  • ¥15 ensp可以看看嘛.
  • ¥80 51单片机C语言代码解决单片机为AT89C52是清翔单片机
  • ¥60 优博讯DT50高通安卓11系统刷完机自动进去fastboot模式
  • ¥15 minist数字识别
  • ¥15 在安装gym库的pygame时遇到问题,不知道如何解决
  • ¥20 uniapp中的webview 使用的是本地的vue页面,在模拟器上显示无法打开
  • ¥15 网上下载的3DMAX模型,不显示贴图怎么办
  • ¥15 关于#stm32#的问题:寻找一块开发版,作为智能化割草机的控制模块和树莓派主板相连,要求:最低可控制 3 个电机(两个驱动电机,1 个割草电机),其次可以与树莓派主板相连电机照片如下:
  • ¥15 潜在扩散模型的Unet特征提取
手机看
程序员都在用的中文IT技术交流社区

程序员都在用的中文IT技术交流社区

专业的中文 IT 技术社区,与千万技术人共成长

专业的中文 IT 技术社区,与千万技术人共成长

关注【CSDN】视频号,行业资讯、技术分享精彩不断,直播好礼送不停!

关注【CSDN】视频号,行业资讯、技术分享精彩不断,直播好礼送不停!

客服 返回
顶部