在VB中如何使用ADO连接数据库???

Question

请问:
在VB中如何使用ADO连接数据库???

Answer 1

Public Cnn As New ADODB.Connection
Public Rst As New ADODB.Recordset
Sub main()
 form.Show
 Cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
 Cnn.Open App.Path & "\能力计算年度.mdb", "admin"
strSQL = "select * from 表名"
Call openTable(Rst, strSQL)End SubPublic Sub openTable(Rst As ADODB.Recordset, tableName As String)
With Rst
     .ActiveConnection = Cnn
     .CursorType = adOpenKeyset
     .LockType = adLockOptimistic
     .Open tableName
End With
End Sub顺序上在组织一下，基本的步骤就这些，我天天在用，相信我没错的！！
分就不要吝啬了！

Answer 2

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, adLockBatchOptimistic
    Set MSHFlexGrid1.DataSource = Rs

Answer 3

Dim adoCnn As New ADODB.Connection
 Dim adoCmm As New ADODB.Command
 Dim Rs As New ADODB.Recordset
 
 adoCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", adoCnn, adOpenDynamic, adLockBatchOptimistic Set DataGrid1.DataSource = Rs

Answer 4

dim strConnection as String
strConnection = "PROVIDER=MSDASQL;Driver=SQL Server;server=" & g_SQLServerName & ";uid=" & c_UID & ";pwd=" & c_PWD & ";database=" & g_DatabaseName & ";"
g_adoConnection.CursorLocation = adUseClient
On Error Resume Next
g_adoConnection.Open strConnection
以上建立联接.Dim sSQL As String
Dim rd As ADODB.Recordset
Set rd = New ADODB.Recordset
sSQL = "select * from table1"
rd.Open sSQL, g_adoConnection, adOpenStatic, adLockOptimistic
以上打开记录集