Question

vb 文本赋值问题

我想做一个查询系统，可以根据作者的姓名、住址、籍贯等信息查询出作者表中相应的行，我是利用可编辑文本框返回查询者输入的信息的，我想完成如果查询者没有向“姓名”文本框输入数值的话，在SQL查询语句where后就不要加au_name='"+text1.text"'这个条件了，如果还有这个条件的话数据库会查询au_name为空的行，就不符合实际了。那位高手帮一下我，我是新手，刚接触VB没多久，叙述的不对的地方大家见谅。

Answer 1

设：
姓名、住址、籍贯、代表作
输入框依次为text1（0）、text1（1）、text1（2）、text1（3）

再设
数据库里表的的名字叫“文学”
表的字段名依次为
id、姓名、住址、籍贯、代表作

查询字符串应该这样构造：
Private Sub Form_Load()
Dim 非空 As Boolean
Dim s(3) As String
s(0) = "姓名"
s(1) = 住址
s(2) = 籍贯
s(3) = 代表作
strsql = "select * form 文学 where "
非空 = False
For i = 0 To 3
If text1(i) <> "" Then
非空 = True
strsql = strsql & s(i) & " = '" & text1(i) & "'"
End If
Next i
If 非空 Then
'这里写你的查询过程吧
Else
MsgBox "你没有输入任何条件，让我怎么找？"
End If
End Sub

Answer 2

你可以设它为空
做个判断语句
if text1.text="" then
rs.field("姓名")=null

我也是刚学 不知道这样行不行

Answer 3

if text1.text="" then select.....where...
else select ...where...au_name="+text1.text"