总出现至少一个参数没有被指定值

黄豆159 CSDN会员 黄豆159 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
Public Sub Adddata()
On Error GoTo error
Dim sql As String
'连接数据库
sql = "INSERT INTO data " & "VALUES (" & Trim(Text1.Text) & ",'" & Trim(Text2.Text) & "'," & Trim(Text3.Text) & "','" & Trim(Text4.Text) & "," & Text5.Text & ") "
conn.Execute sql
'重新显示
Form1.Data_Show
'提示
MsgBox "添加成功!", vbInformation
'清空文本框
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
'设置焦点
Text1.SetFocus
Exit Sub
error:
MsgBox Err.Description & "Adddata", vbExclamation
End Sub
...全文

相关推荐

评论 9
收藏 已收藏
分享
返回顶部