UC知道用VB实现查询问题，高手的进来帮忙看看！
来源：百度知道 编辑：UC知道 时间：2024/05/11 04:27:32
我在用VB做系统，还差一个查询模块就全弄好了。
运行时输入要查询的名称进行查询时都就跳出“关键字 like 附近有语法错误”对象'refresh'的方法“IAdodc”失败！
高手帮我看看啊，要怎么去解决！
Option Explicit
Dim rs As ADODB.Recordset
Dim sqltxt As String
Dim recs As String
Private Sub Command1_Click()
Dim condstr As String
'根据用户输入的数据构造条件表达式condstr
If (Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "") Then
condstr = "客户名称 like'" + (Trim(Text1.Text)) + "'" + "车名 like'" + Trim(Text2.Text) + "'"
ElseIf (Trim(Text1.Text) <> "" And Trim(Text2.Text) = "") Then
condstr = "客户名称 like'" + Trim(Text1.Text) + "'"
ElseIf (Trim(Text1.Text) = "" And Trim(Text2.Text) <> "") Then
condstr = "车名 like'" + Trim(Text2.Text) + "'"
Else
MsgBox "请至少输入一个查
运行时输入要查询的名称进行查询时都就跳出“关键字 like 附近有语法错误”对象'refresh'的方法“IAdodc”失败！
高手帮我看看啊，要怎么去解决！
Option Explicit
Dim rs As ADODB.Recordset
Dim sqltxt As String
Dim recs As String
Private Sub Command1_Click()
Dim condstr As String
'根据用户输入的数据构造条件表达式condstr
If (Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "") Then
condstr = "客户名称 like'" + (Trim(Text1.Text)) + "'" + "车名 like'" + Trim(Text2.Text) + "'"
ElseIf (Trim(Text1.Text) <> "" And Trim(Text2.Text) = "") Then
condstr = "客户名称 like'" + Trim(Text1.Text) + "'"
ElseIf (Trim(Text1.Text) = "" And Trim(Text2.Text) <> "") Then
condstr = "车名 like'" + Trim(Text2.Text) + "'"
Else
MsgBox "请至少输入一个查
错误一
如果要用like, 后面最好加上通配符"%"。
正确写法如下
If (Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "") Then
condstr = "客户名称 like '%" + (Trim(Text1.Text)) + "%' AND 车名 like '%" + Trim(Text2.Text) + "%'"
ElseIf (Trim(Text1.Text) <> "" And Trim(Text2.Text) = "") Then
condstr = "客户名称 like '%" + Trim(Text1.Text) + "%'"
ElseIf (Trim(Text1.Text) = "" And Trim(Text2.Text) <> "") Then
condstr = "车名 like '%" + Trim(Text2.Text) + "%'"
Else
MsgBox "请至少输入一个查找条件！", vbOKOnly, "信息提示"
End If
错误二
Adodc1.RecordSource = "select * from tosell where" + condstr
Where后面要加空格
正确写法
Adodc1.RecordSource = "select * from tosell where " + condstr
condstr = "客户名称 like'" + (Trim(Text1.Text))