救命呀，ado连接的sql server数据库，我想实现查询的功能----------在先等待

Question

ado连接的sql server数据库，我想实现查询的功能，代码怎么写呀，
谢谢各位大虾了

Answer 1

Dim rs As New ADODB.Recordsetrs.Open "select * from table where name = '" & text1.Text & "'", cn, adOpenForwardOnly, adLockReadOnly

Answer 2

Dim cn As New ADODB.Connection
    connstr = "provider=sqloledb;data source=star;database=renminmeishu;user id=sa;password=;"
    cn.Open connstr
 Dim rs as New Adodb.Recordset
rs.open"select * from table",cn,1,3

Answer 3

你先需要引用ado的动态库 
打开－工程－引用－选“Microsoft activeX data objects 2.x library

Answer 4

肯定行的吗,这么简单的查询问题,先得到Connection

Answer 5

'使用ODBC连接
′工程需有Microsoft ActiveX Data Object 2.1 Library(msado15.dll)
　　Dim Constr As String ′ODBC路径
　　Dim ADOCon As New ADODB.Connection ′ADODB Connection对象
　　Dim ADORst As New ADODB.Recordset ′ADODB Recordset 对象　　 Constr = ″DSN=dbname″ ′定义ODBC连接
　　 ADOCon.Open Constr ′创建一个连接
　　 ADORst.Open ″table″, ADOCon, adOpenDynamic, adLockOptimistic