高校问答崩坏学园2攻略2017:一个VB问题
来源：百度文库 编辑：高校问答 时间：2024/05/05 22:57:16
Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
Dim sql As String
Dim mrc As ADODB.Recordset
sql = "insert into stuinfor values('" & Trim(Text1.Text) & "','" & Trim(Text2.Text) & "','" & Trim(Text3.Text) & "','" & Trim(Text3.Text) & "')"
Set mrc = ExecuteSQL(sql)
DataGrid1.RecordSource = mrc
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
大家觉的有问题么？（一个添加程序，暂时不考虑数据完整性）怎么老是提示ExecuteSQL(sql)有错，怎么回事？
哦?那谁能帮我改改吗?
Dim cnn As New ADODB.Connection
Dim sql As String
Dim mrc As ADODB.Recordset
sql = "insert into stuinfor values('" & Trim(Text1.Text) & "','" & Trim(Text2.Text) & "','" & Trim(Text3.Text) & "','" & Trim(Text3.Text) & "')"
Set mrc = ExecuteSQL(sql)
DataGrid1.RecordSource = mrc
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
大家觉的有问题么？（一个添加程序，暂时不考虑数据完整性）怎么老是提示ExecuteSQL(sql)有错，怎么回事？
哦?那谁能帮我改改吗?
数据库连接都没进行，当然出错。
对阿，数据库怎么没有连接阿？