神马品牌网蓝莲花 吉他伴奏:VB字符串比较的问题
来源：百度文库 编辑：神马品牌网 时间：2024/05/07 18:36:18
我现在有一个TextBox,它是用来接收一些数字信息的(数字信息不固定),然后我想要这个TextBox里接收的信息和我的数据库里面的一个Field(存储一些数字信息)进行比较,如果有一样的就把数据库里那个数字信息所对应的另一个Field(存储名字信息)的信息显示在一个ListBox里,请问要怎样写这个程序,帮我写出来好吗?谢谢了
我不会写的地方是：数据库存储数字信息的Field怎样和TextBox里的数字信息进行比较，然后将数据库里数字信息所对应的另一个Field（存储名字的）显示在ListBox里
我不会写的地方是：数据库存储数字信息的Field怎样和TextBox里的数字信息进行比较，然后将数据库里数字信息所对应的另一个Field（存储名字的）显示在ListBox里
我以前做过一个程序，里面有好多这样的程序，不过我里面用的模块调用。不好程序多了多，不好复制到这里，你要看我可以给你，我的QQ：181586851
其实就是查询，把查询得到的结果显示出来
1:在窗体中画1个Text,1个List,1个Command,1个Data
2:Data的Databasename属性设为你数据库所在的路径
3:Data的RecordSource属性设为"Field"所在的表
思路是:当在Text中输入1个数据,按下Command,如果这个数据能和数据库中所在表的字段(Field)中的数据吻合,则将该数据显示在List中
开始编写代码:
Command1的单击事件:
Private Sub Command1_Click()
Data1.Recordset.FindFirst "Field like" & """" & Text1.Text & """"
If Data1.Recordset.NoMatch Then
MsgBox "没有找到", vbOKOnly, "提示"
Else
list1.AddItem (Data1.Recordset.Fields(0))
End if
End
'如果"Filed"在字段中排在第一位则为Filelds(0)
'如果是第二则为Fileds(1),依次类推.
你哪里不会写再来问。