一个利用 Data1 控件的查询的问题----------在线等待！！！！！！

Question

大家好！
    我是最近这两天在用VB的，有些问题搞不明白想请教大家。
    我的数据库是用VB自带的VisData 工具建的，其中有一个表的结构如下：(表名是produce)
       id          text(30)
       name        text(30)
    我是用的Data1 控件连接的数据库，连接一切正常。我的问题是：：：：：：：：
    我想用 id 查询数据表，如果找到一条记录，我就把找到的这条记录的name 值赋给一个text1控件。请问应该怎么写代码？？？？？？？？？？？？？？？？？？？？？？？？？？拜托拉！！！

Answer 1

dim lngID as Long
lngID=1
Data1.RecordSource = "select * from mytable where [id]=" & lngID
Data1.Refresh
Text1.Text = Data1.Recordset.Fields("name")

Answer 2

dim lngID as Long
lngID=1
Data1.RecordSource = "select * from mytable where [id]=" & lngID
Data1.Refresh
If Not Data1.Recordset.EOF Then Text1.Text = Data1.Recordset.Fields("name") & ""

Answer 3

是字符串也可以，改一下就行：dim strID as String
strID="1"
Data1.RecordSource = "select * from mytable where [id]='" & lngID & "'"
......

Answer 4

dim strID as String
strID="1"
Data1.RecordSource = "select * from mytable where [id]='" & strID & "'"
......

Answer 5

dim strID as String
strID="1"
Data1.RecordSource = "select * from mytable where [id]='" & strID & "'"
Data1.Refresh
'下面这句就是给Text赋值：
If Not Data1.Recordset.EOF Then Text1.Text = Data1.Recordset.Fields("name") & ""  

Answer 6

dim strID as String
strID = "1"
Data1.RecordSource = "select * from produce where [id]='" & strID & "'"
Data1.Refresh
'下面这句就是给Text赋值：
If Not Data1.Recordset.EOF Then Text1.Text = Data1.Recordset.Fields("name") & ""

Answer 7

我的Data1 的RecordSource 属性已经设置了表的名字。。
可以不可以不用SQL 语言啊 ？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？

Answer 8

绑定的方法：
在设计时，将 Text1 的 DataSource 属性设置为 Data1。Text1.DataField = "Name"
Data1.RecordSource = "select * from produce where [id]='" & strID & "'"

Answer 9

可以。按上面的方法绑定text 控件。然后：
Data1.Recordset.FindFirst "ID='" & strID & "'"