0 
    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*
4

1 に答える 1

0

Data Bound Grid (DBGrid) は DAO で使用するためのもので、DataGrid は ADO で使用するためのものです。

ツールボックスで: 右クリックして [コンポーネント...] を選択し、 ではなく'Microsoft DataGrid Control 6.0 (SP6) (OLEDB)'が選択されていることを確認します。 'Microsoft Data Bound Grid Control 5.0 (SP3)'

于 2013-02-19T14:49:31.023 に答える