Cara membuat tabel dengan kunci utama melalui ADOX

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 252908 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

ADOX adalah ekstensi untuk objek Data ActiveX yang memungkinkan manipulasi database skema. Artikel ini menggambarkan cara menggunakan ADOX untuk membuat sebuah tabel dan menambahkan Primary Key.

INFORMASI LEBIH LANJUT

CATATAN: Tidak semua penyedia OLE DB mendukung antarmuka yang diperlukan untuk mendukung metode ADOX. Dengan penyedia tersebut, Anda harus menggunakan Data definisi Pertanyaan atau model objek lain untuk memanipulasi skema database.

Prosedur pertama dalam contoh di bawah ini menciptakan sebuah tabel baru dalam yang ada Microsoft Access database, menciptakan lapangan baru di meja, kemudian menciptakan Indeks kunci utama. Ketika menambahkan satu-bidang primary key, Anda tidak perlu menggunakan ADOX kunci objek.

Prosedur kedua memanfaatkan ADOX kunci objek untuk menambahkan beberapa bidang kunci ke meja.

Langkah-langkah untuk membuat contoh aplikasi

  1. Di Microsoft Visual Basic 5.0 atau 6.0, membuat yang baru Standar EXE proyek. Form1 dibuat secara default.
  2. Pada Project menu, pilih Referensi untuk menambahkan perpustakaan jenis berikut:
    Objek Microsoft ActiveX Data 2,1 perpustakaan
    Microsoft ADO Ext. 2.1 untuk DDL dan keamanan
  3. Menambahkan dua Perintah tombol (Command1 dan Command2) dan berikut kode untuk Form1:
    Option Explicit
    
    Private Sub Command1_Click()
    '
    ' This code adds a single-field Primary key
    '
    Dim Cn As ADODB.Connection, Cat As ADOX.Catalog, objTable As ADOX.Table
    
      Set Cn = New ADODB.Connection
      Set Cat = New ADOX.Catalog
      Set objTable = New ADOX.Table
    
      'Open the connection
      Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=biblio.mdb"
        
      'Open the Catalog
      Set Cat.ActiveConnection = Cn
    
      'Create the table
      objTable.Name = "Test_Table"
        
      'Create and Append a new field to the "Test_Table" Columns Collection
      objTable.Columns.Append "PrimaryKey_Field", adInteger
        
      'Create and Append a new key. Note that we are merely passing
      'the "PimaryKey_Field" column as the source of the primary key. This
      'new Key will be Appended to the Keys Collection of "Test_Table"
      objTable.Keys.Append "PrimaryKey", adKeyPrimary, "PrimaryKey_Field"
    
      'Append the newly created table to the Tables Collection
      Cat.Tables.Append objTable
    
    ' clean up objects
      Set objKey = Nothing
      Set objTable = Nothing
      Set Cat = Nothing
      Cn.Close
      Set Cn = Nothing
    End Sub
    
    Private Sub Command2_Click()
    '
    ' This code adds a multi-field Primary Key
    '
    Dim Cn As ADODB.Connection, Cat As ADOX.Catalog
    Dim objTable As ADOX.Table, objKey As ADOX.Key
    
      Set Cn = New ADODB.Connection
      Set Cat = New ADOX.Catalog
      Set objTable = New ADOX.Table
      Set objKey = New ADOX.Key
    
      Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=biblio.mdb"
      Set Cat.ActiveConnection = Cn
      objTable.Name = "Test_Table2"
      
      objTable.Columns.Append "PrimaryKey_Field1", adInteger
      objTable.Columns.Append "PrimaryKey_Field2", adInteger
        
      objKey.Name = "PrimaryKey"
      objKey.Type = adKeyPrimary
      objKey.Columns.Append "PrimaryKey_Field1"
      objKey.Columns.Append "PrimaryKey_Field2"
      
      objTable.Keys.Append objKey
      
      Cat.Tables.Append objTable
    
    ' clean up objects
      Set objKey = Nothing
      Set objTable = Nothing
      Set Cat = Nothing
      Cn.Close
      Set Cn = Nothing
    End Sub
    						
    CATATAN: Anda mungkin harus menyesuaikan connect string untuk menunjuk ke berlaku Jet database.
  4. Menjalankan aplikasi dan klik Perintah tombol. Anda dapat memeriksa definisi meja untuk Test_Table dan TestTable2 di Microsoft Access 97, Microsoft Access 2000, atau Visual Basic Manajer Data visual add-in.

REFERENSI

Untuk informasi tambahan, klik artikel berikut nomor ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
317867BAGAIMANA KEPADA: Membuat Microsoft Access Database menggunakan ADOX dan Visual Basic .NET
305271 Cara melakukan Paging dengan kontrol DataGrid Windows dengan menggunakan Visual Basic.NET

Properti

ID Artikel: 252908 - Kajian Terakhir: 21 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft ActiveX Data Objects 2.7
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
Kata kunci: 
kbhowto kbjet kbmt KB252908 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:252908

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com