如何處理DBGrid控件？

Question

SQL> desc admin 
       Name Null? Type 
      ------------------------------------- 
       NAME VARCHAR2(20) 
       PRIVILEDGE VARCHAR2(20) 
       CODE NUMBER(38) 
       PASS VARCHAR2(20) 

       Private Sub Form_Load() 
       Set RS = New ADODB.Recordset 
       If RS.State = 1 Then RS.Close 
       opencn 
       RS.Open "ADMIN", CN, adOpenDynamic, adLockOptimistic, adCmdTable 
       Set DBGrid1.DataSource = RS 
RS.Close 
End Sub 

錯誤我得到

*Error 430 at line : Set DBGrid1.DataSource = RS 
Class does not support automation or does not support expected interface* 

Answer 1

數據綁定網格（DBGrid的）可以使用DAO使用，而在DataGrid是與ADO使用。

在工具箱中：點擊右鍵，選擇 '組件...'，並確保'Microsoft DataGrid Control 6.0 (SP6) (OLEDB)'被選中，不'Microsoft Data Bound Grid Control 5.0 (SP3)'。