VB中怎么添加信息到SQL？ 为什么我的代码添加失败？ 急~~
Private Sub Command1_Click()
On Error Resume Next
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
If Text1(0).Text = "" Or Text1(1).Text = "" Then
MsgBox "信息不能为空"
Else
cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=成绩查询管理系统.MDF;Data Source=PC-201103162228"
cnn.Open
Set rs = cnn.Execute("insert into 学生信息表(学号,姓名,性别,班级,所在系,出生年月,家庭住址,联系电话)values('" & Text1(0).Text & "','" & Text1(1).Text & "','" & Combo1.Text + "','" & Text1(3).Text & "','" + Text1(4).Text & "','" & Text1(5).Text & "','" & Text1(6).Text & "','" & Text1(7).Text + "')")
txtsql = "select * from 学生信息表 where 学号='" & Text1(0).Text & "'and 姓名='" & Text1(1).Text & "'and 性别='" & Combo1.Text & "'and 班级='" & Text1(3).Text & "'and 所在系='" & Text1(4).Text & "'and 出生年月='" & Text1(5).Text & "'and 家庭住址='" & Text1(6).Text & "'and 联系电话='" & Text1(7).Text + "'"
Set mrc = cnn.Execute(txtsql)
If mrc.EOF = True Then
MsgBox "添加失败！", , "信息提示"
Else
Me.Adodc1.Refresh
Form5.Adodc1.Refresh
MsgBox "添加成功！", , "信息提示"
End If
cnn.Close
End If
End Sub
总是提示添加失败~~
[解决办法]
1、debug.print "insert into 学生信息表(学号,姓名,性别,班级,所在系,出生年月,家庭住址,联系电话)values('" & Text1(0).Text & "','" & Text1(1).Text & "','" & Combo1.Text + "','" & Text1(3).Text & "','" + Text1(4).Text & "','" & Text1(5).Text & "','" & Text1(6).Text & "','" & Text1(7).Text + "')"
看看语句，然后放到数据库中执行再看结果
2、cnn.execute sql语句 就可以直接执行
[解决办法]
你的 values 前后需要有空格，不然Sql会报错
[解决办法]
"insert into 学生信息表 values ('" & Text1(0).Text & "','" & Text1(1).Text & "','" & Combo1.Text + "','" & Text1(3).Text & "','" + Text1(4).Text & "','" & Text1(5).Text & "','" & Text1(6).Text & "','" & Text1(7).Text + "')"
学生信息表里的列名取消掉，把表中每一列都一一对应好，没有内容的就用空
[解决办法]
单步调试，将SQL语句赋值给一个变量，单步到这个赋值后，将其显示在立即窗口中，拷贝上来看看。
