下一步怎样执行数据库操作

Question

   Dim sFile As String
    sFile = "N_1"
  
    Dim oServer As New SQLDMO.SQLServer
    Dim oDatabase As New SQLDMO.Database
    Dim oRestore As New SQLDMO.Restore
    
    oServer.Connect ServerName, UserName, Password
    With oRestore
    
        .Files = sFile
        
        .Database = "Northwind"
        .ReplaceDatabase = True
        .SQLRestore oServer
    End With
    
    Set oRestore = Nothing
    Set oDatabase = Nothing
    oServer.DisConnect
    Set oServer = Nothing
    MsgBox ("OK")

Answer 1

用ADO库
dim cn as new adodb.connection
cn.open "dsn=你在ODBC中建立的DSN名称"  '这是最简单的写法,具体可能要不同
cn.execute "SQL语句"想要得到select执行结果
dim rs as new adodb.recordset
rs=cn.execute("SQL语句")