请教高手：如何用SQL连接数据库？（急）

Question

我用的开发工具是Visual basic ,现在我想用SQL语句来连接数据库（不用控件和对象）多谢各位高手相助！！

Answer 1

strconnect = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db.mdb"
  cn.Open strconnect
  cn.CursorLocation = adUseClient   strsql = "select * from db "
    Set rs = New Recordset
    rs.Open strsql, cn, adOpenStatic, adLockOptimistic

Answer 2

Private Sub Form_Load()
'工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
   Set DataGrid1.DataSource = Rs
End Sub

Answer 3

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\student.mdb"     CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
   Set DataGrid1.DataSource = Rs

Answer 4

Option Explicit
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As Recordset
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim strCnn As String
    Dim sTokens() As String
    Set cnn = New ADODB.Connection
    
    
    On Error GoTo ExecuteSQL_Error
    sTokens = Split(SQL)
strCnn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & 
    "Persist Security Info=False;Initial Catalog=" & databaseName & ";Data Source=" & ServerName
    cnn.Open strCnn
    If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
        cnn.Execute SQL
        MsgString = sTokens(0) & "Query Successful"
    Else
        Set rst = New ADODB.Recordset
        rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic
        Set ExecuteSQL = rst
        MsgString = "查询到" & rst.RecordCount & "条记录"
        Debug.Print MsgString
    End If
ExecuteSQL_Exit:
    Set cnn = Nothing
    Set rst = Nothing
    Exit Function
    
ExecuteSQL_Error:
    MsgBox "没有连接到数据库", vbOKOnly + vbExclamation, "警告"
    Resume ExecuteSQL_Exit    
    End Function