高考问答牛仔旧衣服改造手提袋:一个菜鸟关于VB中ADO的问题
来源：百度文库 编辑：高考问答 时间：2024/05/05 02:42:03
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ssql As String
Private stuno As String
Private Sub Command1_Click()
stuno = InputBox("输入学号：", "信息查询")
ssql = "select stu_base.lab_no,stu_no,c_fee,passwd from stu_base inner join stu_fee on stu_base.lab_no=stu_fee.lab_no where stu_no=stuno"
Set rs = cn.Execute(ssql)
Text1 = rs.Fields(0)
Text2 = rs.Fields(1)
Text3 = rs.Fields(2)
Text4 = rs.Fields(3)
End Sub
这是我的一段代码，但是定义的stuno为什么没有传递数据给SQL语句？
Dim rs As ADODB.Recordset
Dim ssql As String
Private stuno As String
Private Sub Command1_Click()
stuno = InputBox("输入学号：", "信息查询")
ssql = "select stu_base.lab_no,stu_no,c_fee,passwd from stu_base inner join stu_fee on stu_base.lab_no=stu_fee.lab_no where stu_no=stuno"
Set rs = cn.Execute(ssql)
Text1 = rs.Fields(0)
Text2 = rs.Fields(1)
Text3 = rs.Fields(2)
Text4 = rs.Fields(3)
End Sub
这是我的一段代码，但是定义的stuno为什么没有传递数据给SQL语句？
ssql = "select stu_base.lab_no,stu_no,c_fee,passwd from stu_base inner join stu_fee on stu_base.lab_no=stu_fee.lab_no where stu_no=stuno"
这句应该这样：
ssql = "select stu_base.lab_no,stu_no,c_fee,passwd from stu_base inner join stu_fee on stu_base.lab_no=stu_fee.lab_no where stu_no=" & stuno