请指点：vb6中不使用控件，只用语句怎么执行sql语句？

Question

引用DAO库
      Dim DB As Database
      Dim RS As Recordset
      
      Set DB = OpenDatabase(gAppPath & "\数据库文件名.mdb", dbDriverComplete, False, ";PWD=xxxx")
      
      Set RS = DB.OpenRecordset("SELECT * FROM config")
      With RS
            If .RecordCount > 0 Then
                  .MoveFirst
                  ID = .Fields("ID")
                  User = .Fields("User")....

Answer 1

应用ado对象库
dim db as recordset
dim conn as connection
set db=new recordset
set conn=new connection
conn.connectionstring="………………"  /
db.activateconnecyion=conn
db.op "sql语句"

Answer 2

应用ado对象库
dim conn as new adodb.connection
dim comm as new adodb.command
dim rs as new adodb.recordsetconn.open ConnectionSTRrs.curosrlocation=adclient
rs.open SQLStr,conn,adOpenKeyset, adLockPessimisticrs即为你要的数据集
在窗体上放一个datagrid1
然后 set datagrid1.datasource= rs嘿嘿

Answer 3

库
      Dim DB As Database
      Dim RS As Recordset
      
      Set DB = OpenDatabase(App.Path & "\数据库文件名.mdb", dbDriverComplete, False, ";PWD=xxxx")
      
      Set RS = DB.OpenRecordset("SELECT * FROM config")
      

Answer 4

Dim AdoCon As New ADODB.Connection
Dim AdoRst As New ADODB.Recordset
Dim SQL As String
ConStr = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & App.Path & "\*.mdb"
AdoCon.Open ConStr
sql="select * from TableName"
AdoRst.Open SQL, AdoCon, 1, 3

Answer 5

我自己编了一个函数，你可以直接调用'该函数用来打开数据库，
'adoOpen(数据库名,表名或SQL语句,建立的Connection对象(关闭数据库时使用),打开后的RecordSet对象名)
Public Function adoOpen(DbName As String, RsName As String, conn As ADODB.Connection, rs As ADODB.Recordset)
   Set conn = New ADODB.Connection
   Set rs = New ADODB.Recordset
   
   Dim connstr As String
   
   connstr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & DbName & ".MDB"
   conn.Open connstr
   rs.CursorLocation = adUseClient
   rs.Open RsName, conn, adOpenKeyset, adLockPessimistic
   
End Function
调用实例：
'调用adoOpen函数，将"lists.dbf"数据库中的"SMOMDTYP"表打开,
   Call adoOpen("lists", "SMOMDTYP", connRestock, rsRestock)