Vb adodc控件，查询数据

来源：百度知道 编辑：UC知道 时间：2024/06/08 01:13:13
Adodc查询出的结果只有一个，把它显示在Text1里，例如，表12里有三个字段分别是：a,e,J，里面有一些数据，"select j from 12 where a="他M的我只会语句不会让它显示出来"" ，结果只一条记录让它显示在Text1里

Adodc1.RecordSource = "select J from 12 ......
Adodc1.Refresh
text1.text = Adodc1.Recordset.Fields("J")

ADODC有两种连接数据库的方法,1是可以和数据库进行绑定,然后设置TEXT1的数据源为ADODC1,设置字段为J,这样可以直接显示第一条记录，不用代码.
2是用代码,Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
'如果是ACCESS数据库,换下面这条就OK.自己查一下吧.
conn.ConnectionString = "Driver={sql server};server=PANDEWEI;uid=sa;pwd=;database=Northwind_DW"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select J from 表12 where "这里写查询条件", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
MsgBox "无记录"
text1.Text = rs.field(2)

end if
rs.Close

这要看你怎么跟text1赋值的，如果你想显示所有的查询结果的话就应该用循环语句把取出的字段值连到text1的text属性里。