2

Web サーバーのアクセス DB にリンク テーブルを作成しようとするとエラーが発生する - ADOX.CatalogADOX を継承する必要があるかどうか、またはどのように継承する必要があるかがわからないというエラーが表示されます。

エラーは次のとおりです。

コンパイラ エラー メッセージ: BC30002: タイプ 'ADODB.Catalog' が定義されていません。

Protected Sub Page_Load(ByVal sender As Object, _
                        ByVal e As System.EventArgs) Handles Me.Load

            ''''''''''''''''''''''''''''''''''''''''''''''''''''
            Dim A As String = "e:\web\Training.mdb"
            Dim B As String = "e:\web\LeaveDB.mdb"
            Dim C As String = "UsersDataTbl"
            Dim D As String = "NewUsers"

            CreateLinkedAccessTable(A,B,C,D)
            End Sub             


            Sub CreateLinkedAccessTable(strDBLinkFrom As String, strDBLinkTo As String, strLinkTbl As String, strLinkTblAs As String)

                Dim catDB As ADOX.Catalog
                Dim tblLink As ADOX.Table

                Set catDB = New ADOX.Catalog
                    ' Open a Catalog on the database in which to create the link.
                catDB.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=" & strDBLinkFrom

                Set tblLink = New ADOX.Table
                With tblLink
                    ' Name the new Table and set its ParentCatalog property to the
                    ' open Catalog to allow access to the Properties collection.
                .Name = strLinkTblAs
                Set .ParentCatalog = catDB

                    ' Set the properties to create the link.
                .Properties("Jet OLEDB:Create Link") = True
                .Properties("Jet OLEDB:Link Datasource") = strDBLinkTo
                .Properties("Jet OLEDB:Remote Table Name") = strLinkTbl
                End With

                    ' Append the table to the Tables collection.
                catDB.Tables.Append tblLink

                Set catDB = Nothing
            End Sub
4

1 に答える 1

1

ADOX を使用するには、ASP.NET プロジェクトを開き、次の COM 参照を追加する必要があります。

Microsoft ADO Ext. 2.8 for DDL and Security

于 2013-10-26T22:22:52.813 に答える