VB6.0 如何实现 Search Function ?(急)

kokming89

然后我想用一个txt command Box 来打[ kokming89 ]
然后按 Search Commad box
就可以找到全部的detail

PS:我在 Microsoft Access 里面 Customer detail ----->Field name = Member_s_Name
例如是 要Show detail 在 txt command box 里面

大大们如何实现呀?

guohui

assume你用adodb，还有已经打开了connection。

sql="Select * from [*Table name*] where [Member_s_Name]='" & txtsearchtext.text & "'"
rs.open sql, *connection_name*, adopendynamic, adlockreadonly
txtMemberName=rs![Member_s_Name]
txtMemberAge=rs![*Member_s_Age*]
txtMemberIC=rs![*Member_s_IC*]
rs.close

星星里面的字改成你的自己的东西

kokming89

assume你用adodb，还有已经打开了connection。

sql="Select * from [*Table name*] where [Member_s_Nam ...
guohui 发表于 17-12-2009 07:52 PM

我用adodc 而且 还是 Visual Basic 6.0
SQL 我不会

guohui

回复 3# kokming89
抱歉，adodc我没有用过，不过这个应该帮得到你。

http://www.google.com.my/#hl=en&q=vb6+adodc+find&meta=&aq=&oq=&fp=d8fe4943f03243c4

kokming89

回复  kokming89
抱歉，adodc我没有用过，不过这个应该帮得到你。

http://www.google.com.my/#hl=en&q ...
guohui 发表于 17-12-2009 08:15 PM

看了 但是行不通..
在线等 大大们 解答

kokming89

那位 高手会..帮帮小弟呀T.T

k-1

我用adodc 而且 还是 Visual Basic 6.0
SQL 我不会
kokming89 发表于 17-12-2009 07:59 PM

ADO可以用 .Find 还是 .Filter

Eg.
With rsCUST
  .Find "[Member_s_Name] = '" & txtName & "'"
End With