Question

VB连SQL Server数据库

请帮忙检查一下代码有何错误：
Private Sub Command1_Click()
Dim sn As String
Dim ssh As String
Dim ch As String
Dim zw As String
Dim note As String
sn = Text2.Text
ssh = Text3.Text
ch = Text4.Text
zw = Text5.Text
note = Text6.Text
txtsql = "select * from t"
Set mrc = ExecuteSQL(testsql)
txtsql = "insert into ssb(sn,ssh,ch,zw,note) values(&sn&'&ssh&'&ch&'&zw&'¬e&)"
End Sub

Answer 1

程序的对错要根据程序所完成的功能来判断,看你这段程序,应该是向表中添加一个记录,这段程序并没有讲与SQL SERVER 的连接,只是进行插入操作,可惜错误还真不少:
Private Sub Command1_Click()
Dim sn As String
Dim ssh As String
Dim ch As String
Dim zw As String
Dim note As String
sn = Text2.Text
ssh = Text3.Text
ch = Text4.Text
zw = Text5.Text
note = Text6.Text
'下面两句不要,因为你是插入操作,没必要建立记录集
'txtsql = "select * from t"
'Set mrc = ExecuteSQL(testsql)
txtsql = "insert into ssb(sn,ssh,ch,zw,note) values('"&sn&"','"&ssh&"','"&ch&"','"&zw&"','"¬e&"')"
'后面要执行这句语句,假设连接名为 myconn 则:
myconn.execute txtsql
End Sub

追问

为什么会提示下标越界呢？

Answer 2

从程序上看是将T表的记录筛选到SSB表
txtsql语句中的插入值要赋值，比如sn = mrc(0):ssh=mrc(1):ch=mrc(2):zw=mrc(3):note=mrc(4);
具体数值的对应关系请自己调整。txtsql中需要修正，记住原则如果是值的类型是文本需要用单引号，数值型不要单引号，字段与字段直接需要用逗号分隔。假设字段全部为文本，语句如下
txtsql = "insert into ssb (sn,ssh,ch,zw,note) values('" & sn & "','" & ssh & "','" & ch &"','" & zw & "','" & notee & "')"