简单问题 * 高分求解 高人帮我看看这段代码哪里错了 先出100不够在加

Question

private Sub Command7_Click()
Dim str As String
str = ""
If Trim(Text1.Text) <> "" Then
  If str = "" Then
    str = "图书编号'" + Trim(Text1.Text) + "'"
  Else
    str = str + "and 图书编号='" + Trim(Text1.Text) + "'"
  End If
End IfAdodc1.RecordSource = "select * from 图书信息 where" + str
Adodc1.Refresh
End Sub谢谢大家了!

Answer 1

private Sub Command7_Click()
Dim str As String
str = ""
If Trim(Text1.Text) <> "" Then    str = str + " 图书编号='" + Trim(Text1.Text) + "'"End IfAdodc1.RecordSource = "select * from 图书信息 where" + str
Adodc1.Refresh
End Sub

Answer 2

str = str + " and 图书编号='" + Trim(Text1.Text) + "'"
Adodc1.RecordSource = "select * from 图书信息 where " + strand前面，where后面有个空格
跟踪看一下str的值

Answer 3

问题出现在：   str = str + "and 图书编号='" + Trim(Text1.Text) + "'"
前面不是有 str = "" 吗？
这样一来 Adodc1.RecordSource = "select * from 图书信息 where" + str
不就成了 Adodc1.RecordSource = "select * from 图书信息 where and 图书编号='" + Trim(Text1.Text) + "'"吗？
是语法错误，建议改为：
If Trim(Text1.Text) <> "" Then
    str = str + " 图书编号='" + Trim(Text1.Text) + "'"
End If另外可以使用 Debug.Print "select * from 图书信息 where" + str  进行验证调试，就不会出现这种情况了。

Answer 4

的确，根据SQL语法，and前面，where后面应有个空格。
但是，前面不是有 str = "" 吗？根据楼主的代码Else后面的那一条str = str + "and 图书编号='" + Trim(Text1.Text) + "'"是错误，并且是无意义的。应该去掉，除非在此之前还有其他查询条件。完整的代码应该是private Sub Command7_Click()
Dim str As String
Dim SQL As String
str = ""
If Trim(Text1.Text) <> "" Then
  If str = "" Then
    str = "图书编号'" + Trim(Text1.Text) + "'"
  End If
End IfSQL= "select * from 图书信息 where" + str
Debug.Print SQL 
Adodc1.RecordSource =Adodc1.RefreshSQL
End Sub

Answer 5

在and前加个空格,以及在where后加上一个空格,更改后的语句如下:
......
str = str + " and 图书编号='" + Trim(Text1.Text) + "'"
......
Adodc1.RecordSource = "select * from 图书信息 where " + str
.....

Answer 6

当然这名也错了:
str = "图书编号'" + Trim(Text1.Text) + "'"
要改为:
str = "图书编号='" + Trim(Text1.Text) + "'"

Answer 7

Adodc1.RecordSource = "select * from 图书信息 where" + str少了个空格，应为：
Adodc1.RecordSource = "select * from 图书信息 where " + str
另外，
str = ""
If Trim(Text1.Text) <> "" Then
  If str = "" Then
    str = "图书编号'" + Trim(Text1.Text) + "'"
  Else
    str = str + "and 图书编号='" + Trim(Text1.Text) + "'"
  End If
既然str已经赋为""了，那下面的If str = "" ，else还有什么用呢？

Answer 8

str = ""
放到其他地方，如果在private Sub Command7_Click()中， str = str + "and 图书编号='" + Trim(Text1.Text) + "'"，这句就不会执行了在其他地方赋值，搂住可能作的是多条件查询？

Answer 9

是啊，这个代码还有refresh 的方法Iadodc失败，怎么回事啊？

Answer 10

代码还有refresh 的方法Iadodc失败，怎么回事啊？

Answer 11

private Sub Command7_Click()
Dim str As String
str = ""
If Trim(Text1.Text) <> "" Then
  If str = "" Then
    str = "图书编号'" + Trim(Text1.Text) + "'"
  Else
    str = str + " and 图书编号='" + Trim(Text1.Text) + "'"    '此处的and 前应该有个空格
  End If
End IfAdodc1.RecordSource = "select * from 图书信息 where" + str
Adodc1.Refresh
End Sub

Answer 12

private Sub Command7_Click()
Dim str As String
str = ""
If Trim(Text1.Text) <> "" Then
  If str = "" Then
    str = "图书编号'" + Trim(Text1.Text) + "'"
  Else
    str = str + " and 图书编号='" + Trim(Text1.Text) + "'"    '此处的and 前应该有个空格
  End If
End IfAdodc1.RecordSource = "select * from 图书信息 where 1=1 " + str  
Adodc1.Refresh
End Sub
试试

Answer 13

private Sub Command7_Click()
Dim str As String
str = ""
If Trim(Text1.Text) <> "" Then
  If str = "" Then
    str = " 图书编号'" + Trim(Text1.Text) + "'" 图书编号前面加空格  Else
    str = str + " and 图书编号='" + Trim(Text1.Text) + "'" 'and前面加空格  End If
End IfAdodc1.RecordSource = "select * from 图书信息 where " + str 'where后面加空格
Adodc1.Refresh
End Sub

Answer 14

private Sub Command7_Click()
Dim str As String
str = ""
If Trim(Text1.Text) <> "" Then
  If str = "" Then
    str = " 图书编号'" + Trim(Text1.Text) + "'"
  Else
    str = str + " and 图书编号='" + Trim(Text1.Text) + "'"
  End If
else '加上text1.text为空的时候，否则你的查询SQL语句有错误
  
End IfAdodc1.RecordSource = "select * from 图书信息 where" + str
Adodc1.Refresh
End Sub

Answer 15

这样的程序实用上还是有问题。用户在 Text1 中可能输入任何东西。会出错的。最好是用下拉列表方式的 Combo 让用户选字段名、比较符、可选值。字段名和可选值从数据库表中提取，用代码填充。

Answer 16

其实楼主要求的是个动态SQL语句，但是他考虑的太简单了，连用户如果不输入的情况都没有考虑，其实最好的办法就是用LIKE语句，但是效率底了点。

Answer 17

这样的程序实用上还是有问题。用户在 Text1 中可能输入任何东西。会出错的。最好是用下拉列表方式的 Combo 让用户选字段名、比较符、可选值。字段名和可选值从数据库表中提取，用代码填充。