Vb adodc控件,查询数据
Adodc查询出的结果只有一个,把它显示在Text1里,例如,表12里有三个字段分别是:a,e,J,里面有一些数据,"selectjfrom12wherea="他M的我只...
Adodc查询出的结果只有一个,把它显示在Text1里,例如,表12里有三个字段分别是:a,e,J,里面有一些数据,"select j from 12 where a="他M的我只会语句不会让它显示出来"" ,结果只一条记录让它显示在Text1里
展开
3个回答
展开全部
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Adodc1.RecordSource = "高羡select J from 12 ......
Adodc1.Refresh
text1.text = Adodc1.Recordset.Fields("碧谨J"戚慧拍)
Adodc1.Refresh
text1.text = Adodc1.Recordset.Fields("碧谨J"戚慧拍)
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这要看你怎么跟text1赋值的,如果你想缺含禅显示所有的查询结果的话就应该用循环语句老竖把取出的字段值连到伏尘text1的text属性里。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询