无源ADO如何显视表的全部内容[已解决]

红尘如烟

先使用基于mdb的数据库表创建绑定窗体，然后在窗体的Open事件中加载连接到SQL Server的数据源。
前期绑定写法（必须引用ADO）：

1. Private Sub Form_Open(Cancel As Integer)
   
2.     Dim cnn         As ADODB.Connection
   
3.     Dim rst         As ADODB.Recordset
   
4.     Dim strServer   As String
   
5.     Dim strUserName As String
   
6.     Dim strPassword As String
   
7.     Dim strDatabase As String
   
8.    
   
9.     strServer = "(local)"
   
10.     strUserName = "sa"
    
11.     strPassword = "1234"
    
12.     strDatabase = "db_Csell"
    
13.    
    
14.     cnn.Open "Provider=SQLOLEDB" & _
    
15.              ";Data Source=" & strServer & _
    
16.              ";Initial Catalog=" & strDatabase, _
    
17.              strUserName, strPassword
    
18.     rst.CursorLocation = adUseClient
    
19.     rst.Open "SELECT * FROM 库存表;", cnn, adOpenKeyset, adLockOptimistic
    
20.     Set Me.Recordset = rst
    
21.     Set rst = Nothing
    
22.     Set cnn = Nothing
    
23. End Sub

复制代码

后期绑定写法（不需要引用ADO）：

1. Private Sub Form_Open(Cancel As Integer)
   
2.     Dim cnn         As Object
   
3.     Dim rst         As Object
   
4.     Dim strServer   As String
   
5.     Dim strUserName As String
   
6.     Dim strPassword As String
   
7.     Dim strDatabase As String
   
8.    
   
9.     strServer = "(local)"
   
10.     strUserName = "sa"
    
11.     strPassword = "1234"
    
12.     strDatabase = "db_Csell"
    
13.    
    
14.     Set cnn = CreateObject("ADODB.Connection")
    
15.     cnn.Open "Provider=SQLOLEDB" & _
    
16.              ";Data Source=" & strServer & _
    
17.              ";Initial Catalog=" & strDatabase, _
    
18.              strUserName, strPassword
    
19.     Set rst = CreateObject("ADODB.Recordset")
    
20.     rst.CursorLocation = 3
    
21.     rst.Open "SELECT * FROM 库存表;", cnn, 1, 3
    
22.     Set Me.Recordset = rst
    
23.     Set rst = Nothing
    
24.     Set cnn = Nothing
    
25. End Sub

复制代码