Anda sedang offline saat ini, menunggu internet Anda untuk menyambung kembali

Cara membuat tabel dengan kunci utama melalui ADOX

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
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 ExplicitPrivate 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 = NothingEnd SubPrivate Sub Command2_Click()'' This code adds a multi-field Primary Key'Dim Cn As ADODB.Connection, Cat As ADOX.CatalogDim 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 = NothingEnd 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 - Tinjauan Terakhir: 09/21/2011 12:24:00 - Revisi: 2.0

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

  • kbhowto kbjet kbmt KB252908 KbMtid
Tanggapan
/ms.js">