这个程序的工能是用来判断是不是合法用户的，凡是地址前三个字为“人民路”的，都是合法用户。

我建了一张表，内容如下：

ID Name Address
1 A 人民路5号
2 B 人民路13号
3 C 华东路3号
4 D 青山路7号
5 E 人民路27号

我现在从窗体的界面上输入ID，
然后根据ID在数据库中用select语句找到相应的Address字段
比如：我输入ID：1 根据ID为1的记录找到对应的Address字段中的内容为“人民路5号”
然后我要判断该内容中有没有“人民路”这3个子，如果有，则该用户是合法用户！

我不知道这种部分字段匹配的代码该如何写，谁给我写个例子？

select * from 表 where address like '人民路%'
或者
select * from 表 where substring(address,1,3)='人民路'

这样好像不行，因为要先从ID号找到这个用户，ID是从界面上输入的
比如：

str= "select address from 表 where ID='" & Trim$(Text1.Text) & "'"

（text1的文本框就是用来输入ID号的）

必须要先查找到输入的ID所对应的地址再判断地址的前三位是不是“人民路”

因为我这个程序的功能是判断输入的ID所对应的用户是否为合法用户，如果该用户的地址属于“人民路”范围内，即为合法用户，其他地址就是非法用户，如果输入的ID不存在，则提示无此用户！

用str= "select address from 表 where ID='" & Trim$(Text1.Text) & "'"这句查找到输入的ID所对应的地址后
能不能这样写：

gdbConn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=CX;Initial Catalog=test"

gdbConn.Open

lrRec.Open lsSql, gdbConn, adOpenKeyset, adLockOptimistic

If lrRec.RecordCount <> 0 Then

If left(str,3)==“人民路”Then

MsgBox "此用户合法！",vbOKOnly, "友情提示"

Else

MsgBox "此用户不合法！",vbOKOnly, "友情提示"

End If

Else

MsgBox "此用户不存在！",vbOKOnly, "友情提示"

End If

这样写行吗？红色加粗的那几句有没有问题？？？

不知道你要实现什么,好象你问的和实际情况不符合啊

你通过ID可以唯一返回他的信息。。。

你从得到的里面再判断 某字段是否＝什么

VB里是 A=B,不是A==B =.=

哦，晕了，学C以后就把VB弄混了。。。。。。

那是不是我把If left(str,3)==“人民路”Then 这句改成 If left(str,3)=“人民路”Then 就OK了？

我那段代码还有其他不合适的地方没有？

说了没有数据库环境……无法调试。。。

你的str只的是SQL语句吧？你这样好像得到的是sel是一直不等于"人民路"的吧？

gdbConn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=CX;Initial Catalog=test"

gdbConn.Open
str= "select address from 表 where ID='" & Trim$(Text1.Text) & "'"
lrRec.Open str, gdbConn, adOpenKeyset, adLockOptimistic

If lrRec.RecordCount <> 0 Then

If left(lrRec(Address),3)=="人民路" Then

MsgBox "此用户合法！",vbOKOnly, "友情提示"

Else

MsgBox "此用户不合法！",vbOKOnly, "友情提示"

End If

Else

MsgBox "此用户不存在！",vbOKOnly, "友情提示"

End If

If left(lrRec(Address),3)=="人民路" Then
是一个等号吧？

发的时候没注意，应该是一个