高校问答阿里云邮箱登录名忘记:VB编程数据库问题
来源：百度文库 编辑：高校问答 时间：2024/04/28 04:19:30
我想在加数据到数据库里,有了以下代码,可以他没有加到什么东西到里边
又没有提示错误
Dim i
Dim ado As ADODB.Connection
Dim bool As Boolean
Dim ado1 As ADODB.Command
If bool Then
Set awaw = New ADODB.Command
awaw.ActiveConnection = ado
awaw.CommandText = "insert into zl (zh ,ch ,mm, xf, xj, yx ,dz ,zl, gl, fh) values(" & Text1.Text & "," & Text9.Text & "," & Text2.Text & "," & Text4.Text & "," & Text5.Text & "," & Text6.Text & "," & Text7.Text & "," & Text8.Text & "-1," & "N" & ")"
awaw.Execute
awaw.Close
End If
又没有提示错误
Dim i
Dim ado As ADODB.Connection
Dim bool As Boolean
Dim ado1 As ADODB.Command
If bool Then
Set awaw = New ADODB.Command
awaw.ActiveConnection = ado
awaw.CommandText = "insert into zl (zh ,ch ,mm, xf, xj, yx ,dz ,zl, gl, fh) values(" & Text1.Text & "," & Text9.Text & "," & Text2.Text & "," & Text4.Text & "," & Text5.Text & "," & Text6.Text & "," & Text7.Text & "," & Text8.Text & "-1," & "N" & ")"
awaw.Execute
awaw.Close
End If
最后怎么是end if?而且你说得也不清楚，你是定义了3个模块吗？还是只是一张数据表要联结程序？awaw.CommandText = "insert into zl (zh ,ch ,mm, xf, xj, yx ,dz ,zl, gl, fh) values(" & Text1.Text & "," & Text9.Text & "," & Text2.Text & "," & Text4.Text & "," & Text5.Text & "," & Text6.Text & "," & Text7.Text & "," & Text8.Text & "-1," & "N" & ")"
这个定义是那个文本框的？前面定义变量后面有定义这些事再搞不懂，程序又看不见，哎，帮不了你了