如何在VB窗体查询SQL里数据？

Question

意思就是做一个窗体，二个Text ，，一个Command ,当点击Command时，Text2 要从SQL里查询 Text1 所对应的行的第二列的数据，请大家帮忙，谢谢！ 

Answer 1

http://wenwen.soso.com/z/q160188961.htm
http://wenwen.soso.com/z/q135238426.htm

Answer 2

1.做好ADO连接.
2.执行查询语句,将结果集第二个列的值放到文本框.

Answer 3

先创建ADO链接然后把TEXT1.TEXT代入SQL语句

Answer 4

工程-->引用：选Microsoft ActiveX Data Objects 2.X LibraryPrivate Sub Command1_Click()
Dim Cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=你操作的数据库名;Data Source=服务器名或IP地址;Connect Timeout=30"
Cn.Open
strsql = "select 字段名2 from yourtable where 字段名1='" & Text1.Text & "'" 
If Cn.State = adStateOpen Then
    rs.CursorLocation = adUseClient
    rs.Open strsql, Cn, adOpenDynamic, adLockOptimistic
Else
    MsgBox "SQL Server数据库连接错误！"
    End
End If
If rs.recordcount >= 1 Then
    rs.movefirst
    text2.text=rs.field(0).value    
Else
    MsgBox "未查询到数据！"
End If
End Sub