如何让VB为SQL server中接收一条（我已发送了SQL查询语句所得到了)记录集呢？ 急！！马上赠分

Question

3333为值
zuida 为别名

Answer 1

不懂！
你说明白点呀！
用ADO不就行了么？

Answer 2

是这个吗?
Dim Cn As New Adodb.Connection
Dim Rs AS New Adodb.RecordsetCn.Open "连接字符串"
Rs.Open "Select ..." , CnIf Not Rs.Eof Then
    Debug.Print Rs.Fields(0) & " " & Rs.Fields(1)
End If

Answer 3

顺便问一下，用ADO和SQL SERVER怎么连接

Answer 4

是这个吗?
Dim Cn As New Adodb.Connection
Dim Rs AS New Adodb.RecordsetCn.Open "连接字符串"
Rs.Open "Select ..." , CnIf Not Rs.Eof Then
    Debug.Print Rs.Fields(0) & " " & Rs.Fields(1)
End If

Answer 5

1.Cn.Open "Driver={SQL Server};Server=服务器名;Uid=sa;pwd=;DataBase=master"2.Cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=test;Data Source=TSKJ-S13"
3.用ODBC,创建数据源
Cn.Open "DSN=数据源名"

Answer 6

SELECT MAX(OID) AS zuida FROM Operator
Msgbox rs("zuida")