100分求助！！！急！！！！！！！！！！！！！！！ 我基本不太会VB，想问些比较简单的问题 我有三个TEXT控件，程序代码中我把它们存成Text(i)数组.下面是我的读取access数据库student表的内容代码，我想根据这三个Text控件的输入来进行查询，为什么不好用呢，兄弟们帮忙看一下，急死我了啊。！！！ Private Sub Command5_Click() Dim sqlString As String Dim S1 As String,S As String Dim i As Integer For i = 0 To 2 If Text1(i) <> " " Then Select Case i Case 0 S1 = "student.学号 = " & " '' " & Text1(i) & " '' " Case 1 S1 = "student.姓名 = " & " '' " & Text1(i) & " '' " Case 2 S1 = "student.性别 = " & " '' " & Text1(i) & " '' " End Select If S <> " " Then S = S & "AND " & S1 Else S = S1 End If End If Next i sqlString = " SELECT * FROM student WHERE S " Adodc2.RecordSource = sqlString Adodc2.Refresh End Sub 每次我运行时都告诉我至少有一个参数没有指定值，我都快疯了，Adodc指定了connectString,属性中RecordSource 怎么写呢？写select * from student where s 不行吧，S它认识么？所以属性中我都不知道写什么了，还有老提示我的没指定值的问提，大哥们帮帮忙啊，帮我看看我这段程序啊，求求了 __________________________________________________________________________ sqlString = " SELECT * FROM student WHERE S " 改一下再试 sqlString = " SELECT * FROM student WHERE " & S __________________________________________________________________________ S应该等于什么的吧 应该是等于text1的内容 你可以加上= '' " & Text1(i) & " '' 试试 我也是菜鸟 又没做过 access 我做的也都不一样 不过你用的是文本框的话 应该不用写分类事件吧 我用的是comboBox 下拉菜单 用了分类可以 仅供参考 __________________________________________________________________________ sqlString = " SELECT * FROM student WHERE " & S __________________________________________________________________________ 先要学会自己调试，你设置一下断点，看看最终拼接成的字符串是否正确？ 另外，尽量不要用拼接的方式组织sql语句，很容易出错 __________________________________________________________________________ Private Sub Command5_Click() Dim sqlString As String Dim S1 As String,S As String Dim i As Integer For i = 0 To 2 If Text1(i) <> " " Then Select Case i Case 0 S1 = "student.学号 = " & " '' " & Text1(i) & " '' " Case 1 S1 = "student.姓名 = " & " '' " & Text1(i) & " '' " Case 2 S1 = "student.性别 = " & " '' " & Text1(i) & " '' " End Select If S <> " " Then ''AND 前后给空格 S = S & " AND " & S1 Else S = S1 End If End If Next i ''S是变量单独分隔出来 sqlString = " SELECT * FROM student WHERE " & S Adodc2.RecordSource = sqlString Adodc2.Refresh End Sub __________________________________________________________________________ 你这边拼接有问题： If S <> " " Then ''AND 前后给空格 S = S & " AND " & S1 Else S = S1 End If 如果这样拼接的话，最后出来的结果是：SELECT * FROM student WHERE AND student.学号 = XX AND student.姓名 = XX AND student.性别 = XX 建议这样来写： sqlString = " SELECT * FROM student WHERE 1＝1 " & S 在前面这样写： Select Case i Case 0 S1 = " AND student.学号 = " & " '' " & Text1(i) & " '' " Case 1 S1 = " AND student.姓名 = " & " '' " & Text1(i) & " '' " Case 2 S1 = " AND student.性别 = " & " '' " & Text1(i) & " '' " End Select __________________________________________________________________________ 建议这样来写： sqlString = " SELECT * FROM student WHERE 1＝1 " & S 在前面这样写： Select Case i Case 0 S1 = " AND student.学号 = " & " '' " & Text1(i) & " '' " Case 1 S1 = " AND student.姓名 = " & " '' " & Text1(i) & " '' " Case 2 S1 = " AND student.性别 = " & " '' " & Text1(i) & " '' " End Select S = S & S1 __________________________________________________________________________ 大哥们，我按你们的方法都试了，还是不行呀，按你们的方法改完后不提示参数没指定了，但就是点查询按钮没任何反映，ADODC2这个控件右面属性窗口中的RcordSource写什么呢？空么？如果我也写带S的它就又提示我参数没指定值。怎么办啊，我的兄弟们。。。。。 __________________________________________________________________________ Private Sub Command5_Click() Dim sqlString As String Dim S1 As String,S As String Dim i As Integer For i = 0 To 2 If Text1(i) <> " " Then Select Case i Case 0 S1 = " AND student.学号 = " & " '' " & Text1(i) & " '' " Case 1 S1 = " AND student.姓名 = " & " '' " & Text1(i) & " '' " Case 2 S1 = " AND student.性别 = " & " '' " & Text1(i) & " '' " End Select S = S & S1 End If Next i sqlString = " SELECT * FROM student WHERE 1=1 " & S Adodc2.RecordSource = sqlString Adodc2.Refresh End Sub 再试试，如果不行，把断点设在Adodc2.RecordSource = sqlString这上面，把sqlString的值拿到sql中去查询一下。 __________________________________________________________________________ Private Sub Command5_Click() Dim sqlString As String Dim S1 As String,S As String Dim i As Integer sqlString = "SELECT * FROM student " ''请看下面的sql写法,假设你有Text1,Text2,Text3 If Not Text1.Text = String.Empty Then sqlString &= " Where " sqlString &= "student.学号 = '' " & Text1.Text & " '' " End If If Not Text2.Text = String.Empty Then If Not Text1.Text = String.Empty Then sqlString &= " And " Else sqlString &= " Where " End If sqlString &= "student.姓名 = '' " & Text2.Text & " '' " End If If Not Text3.Text = String.Empty Then If Not Text1.Text = String.Empty Or Not Text2.Text = String.Empty Then sqlString &= " And " Else sqlString &= " Where " End If sqlString &= "student.性别 = '' " & Text3.Text & " '' " End If Adodc2.RecordSource = sqlString Adodc2.Refresh End Sub __________________________________________________________________________ 我看到了，按你的方法做设置断点调式时我看到的sql语句的值是select * from student where student.学号= '' 111 ''(我输入111时查询),这里要用trim么，还是数据类型能够不对，怎么读不出来呢？哥们你可以加我QQ么54219484，帮我帮到底吧，兄弟 __________________________________________________________________________ 我这里不能用QQ。 你这样做：表student.学号的类型是什么类型？如果是int的话，不用加‘’的，直接用；如果是string的话，那就要加‘’的，还有要用trim的。 先试试 __________________________________________________________________________ 都是文本类型的，没有INT型的，TRIM我应该怎么样加呢，加在哪？还有ADODC2右面面板上的RcoedSource属性我怎么设置呢，里面也要写SELECT * FROM student WHERE 1=1 & S这个么，还是写什么？ __________________________________________________________________________ DataGrid2的DataSource设为Adodc2。最后可将Adodc2的Visible设为True使之运行时可见。 我是说让你去数据库看看它的类型。 __________________________________________________________________________ Text1.Text.trim __________________________________________________________________________ 我数据库里设计的都是文本类型的，我看了。我问那个ADODC2右面属性里该咋添呢？不是DATAGRID2属性，ADODC2右面属性里有个需要添写sql语句的地方，添什么呢 __________________________________________________________________________ 在命令文本中输入：select * from 　student __________________________________________________________________________ 感觉你是在做毕业设计... __________________________________________________________________________ 哥们，问题解决了，有一个控件名写错了，很感谢你对我的帮助，只恨不能给你更多的分，也感谢大家了，我记得的大家，下回我散分给大家 __________________________________________________________________________ 原文链接：https://www.f2er.com/vb/263757.html