VB 查询语句帮我修改修改啊

来源：百度知道 编辑：UC知道 时间：2024/05/06 00:14:57
我建了一个数据表并要查询每次输查询都没反应麻烦大哥看看代码哦帮我改一下
Dim str As String, chk As String
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = True
Command8.Enabled = False
chk = InputBox("输入查询条件:如学号=20060315,查询")
If chk = "" Then Exit Sub
str = "select 学号，姓名，数学，计算机，英语"
str = str & "form 数据 where 学号=" & "" & chk & "" '构成字符串"
Data1.Connect = "Access"
Data1.DatabaseName = "d:\My documents\记录.mdb" '指定要连接的数据库
Data1.RecordSource = str '记录来自SQL查询
If Data1.Recordset.EOF And Data1.Recordset.BOF Then
Exit Sub
End If
Text1.DataField = "学号"
Text2.DataField = "姓名"
Text3.DataField = "数学"
Text4.DataField = "计算机"
Text5.DataField = "英语"

str = str & " form 数据 where 学号=""" & chk & """" '构成字符串"
form前加空格
如果学号是字符类型要加引号

当然错了，全是sql语法错误
str = "select 学号,姓名,数学,计算机,英语 form 数据 where 学号='" & chk & "'" 就ok了
但是现在不推荐你用控件查询sql
建议你用链接字符连接库，用动态记录集记录返回的数据

dim TmpCon as New ADODB.Connection
dim rs as new ADODB.Recordset
set TmpCon as New ADODB.Connection
TmpCon.Open "DBQ=d:\My documents\记录.mdb;DefaultDir=d:\My documents\记录.mdb;Driver={Driver do Microsoft Access (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=" d:\My documents\Tmp.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
set rs=new ADODB.Recordset

rs.open "select 学号,姓名,数学,计算机,英语 form 数据 where 学号='" & chk & "'",TmpCon,4,4

str = "select 学号，姓名，数学，计算机，英语"
str = str & "form 数据 where