Question

如何在vb中对SQL SERVER进行条件查询并将结果显现在data grid的控件中

例如我在在本地电脑创建一个数据库，里面建立一个表，怎样利用vb查询这个表啊 ？？？？？？？？

Answer 1

工程 引用 microsoft activex database object 2.8

Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset

Private Sub Command1_Click()
conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=库名;Data Source=127.0.0.1", "用户名", "密码"
Set rst = New ADODB.Recordset
rst.Open "SELECT * FROM 表名", conn, adOpenKeyset, adLockOptimistic
rst.MoveFirst
Do While Not rst.EOF
Debug.Print rst.Fields(0) & rst.Fields(1)
rst.MoveNext
Loop
End Sub