strsql=" select * from tablename where 姓名='%" & txt姓名.text & "%'"
strsql=" select * from tablename where 姓名 like '%" & txt姓名.text & "%'"
顶下。 strsql=" select * from tablename where 员工姓名 like '%" & txt姓名.text & "%'"
最好把txt姓名.text的左右空格也去掉。 strsql=" select * from tablename where 员工姓名 like '%" & trim$(txt姓名.text) & "%'"
我是在VB里面开发的,下面是我的部分代码,请问要如何更改 Set Rs = New ADODB.Recordset If Trim(Txt员工.Text) <> "" Then Temp = "tkname=" & "'" & Trim(Txt员工.Text) & "'" If Str <> "" Then Str = Str + " and " + Temp Else Str = Temp End If End If Str = "select * from Tankstore where " & Str Rs.Open Str, Cnn, adOpenDynamic, adLockOptimistic
Dim Rs as New ADODB.Recordset If Trim(Txt员工.Text) <> "" Then Temp = " tkname like '%" & Trim(Txt员工.Text) & "%'" If Str <> "" Then Str = Str + " and " + Temp Else Str = Temp End If End If Str = "select * from Tankstore where " & Str Rs.Open Str, Cnn, adOpenDynamic, adLockOptimistic
strsql=" select * from tablename where 员工姓名 like '%" & txt姓名.text & "%'"
strsql=" select * from tablename where 员工姓名 like '%" & trim$(txt姓名.text) & "%'"
Set Rs = New ADODB.Recordset
If Trim(Txt员工.Text) <> "" Then
Temp = "tkname=" & "'" & Trim(Txt员工.Text) & "'"
If Str <> "" Then
Str = Str + " and " + Temp
Else
Str = Temp
End If
End If
Str = "select * from Tankstore where " & Str
Rs.Open Str, Cnn, adOpenDynamic, adLockOptimistic
If Trim(Txt员工.Text) <> "" Then
Temp = " tkname like '%" & Trim(Txt员工.Text) & "%'"
If Str <> "" Then
Str = Str + " and " + Temp
Else
Str = Temp
End If
End If
Str = "select * from Tankstore where " & Str
Rs.Open Str, Cnn, adOpenDynamic, adLockOptimistic