如何在ADO中创建SQL的Recordset

[PiterKing]

请问如何在象DAO中的
Set RCS=DBengine.workspace(0).openrecordset("SELECT * From Table")
一样在ADO中把ADO的Recordset用SQL方式创建

[Un1]

引用Microsoft ADO Ext. 2.1 for DDL and Security（MSADOX.DLL）就可以了。

set c = new Catalog
c.create connectstring

[lczddd]

Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("my.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Conn.Open connstr
sql="select * from table "
set rs=cna.execute (sql)

[lczddd]

Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("my.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Conn.Open connstr
sql="select * from table "
set rs=cna.execute (sql)

[bing71]

Dim rS As ADODB.Recordset

Set AdoCne = New ADODB.Connection
AdoCne.ConnectionTimeout = 15
AdoCne.CommandTimeout = 300
AdoCne.CursorLocation = adUseServer

sConStr = "Provider=SQLOLEDB;"
sConStr = sConStr & "Server=" & ServerName & ";"
sConStr = sConStr & "Uid=" & LoginName & ";"
sConStr = sConStr & "Pwd=" & PassWord & ";"
sConStr = sConStr & "Auto Translate=false;"
sConStr = sConStr & "Database=" & DataBaseName
AdoCne.ConnectionString = sConStr

AdoCne.Open

Set rS = AdoCne.Execute("select * from table ")
rS.Close
Set rS = Nothing

[黑狗]

这是本人用SQl7.0 + Vb6.0 ADO 进行开发的实例。

Private Sub LoadDB()

On Error GoTo LoadDBError
Set gnConnection = New ADODB.Connection ' 全局连接对象。

' 为连接对象设置连接字符串。
gnConnection.ConnectionString = "Provider=sqloledb;" & _
"Data Source=mainserver;Initial Catalog=Tazaz;User Id=sa;Password=; "
gnConnection.Open
'注：mainserver为数据库所在服务器主机名称
' Tazaz 为数据库名称
'
Exit Sub
LoadDBError:
Select Case Err.Number
Case -2147467259
' 不能找到文件
MsgBox "不能找到数据库文件，请与管理员联系！"
Case Else ' 其他未知的错误
MsgBox Err.Number & ": " & Err.Description
End Select
End Sub

'下面是打开一个表的示例
Private Sub Class_Initialize()
'创建类后创建集合
Set mCol = New Collection
Set rsUser = New ADODB.Recordset
With rsUser
.ActiveConnection = gnConnection
.Open "select * from 职工", _
gnConnection, adOpenKeyset, adLockOptimistic, adCmdText
.MoveLast
.MoveFirst
End With
End Sub

以上程序片段在NT4.0、Win98、SQL7.0、VB6.0企业版、局域网环境下运行通过，可能对你会有用。