如何在ADO中创建SQL的Recordset

Question

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)

Answer 1

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)

Answer 2

  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

Answer 3

引用Microsoft ADO Ext. 2.1 for DDL and Security（MSADOX.DLL）就可以了。set c = new Catalog
c.create connectstring

Answer 4

这是本人用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企业版、局域网环境下运行通过，可能对你会有用。