Membuat Database Dengan Ado

Selain merancang sebuah database beserta tabelnya dengan menggunakan tool acces bisa juga kita Membuat Database Dengan Ado dengan menggunakan code program.

Private Sub cmdCreate_Click() Dim lCatalog As New ADOX.Catalog Dim lTable As New ADOX.Table Dim lIndex As New ADOX.Index lCatalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DATABASE.MDB" lTable.Name = "Content" Set lTable.ParentCatalog = lCatalog lTable.Columns.Append "ContentID", adInteger lTable.Columns("ContentID").Properties("AutoIncrement") = True lTable.Columns.Append "UserID", adInteger lTable.Columns.Append "RegionID", adInteger lTable.Columns.Append "ContentTypeID", adInteger lTable.Columns.Append "CatID", adInteger lTable.Columns.Append "Title", adVarWChar, 100 lTable.Columns.Append "Author", adVarWChar, 50 lTable.Columns.Append "FileName", adVarWChar, 50 lTable.Columns("FileName").Properties("Jet OLEDB:Allow Zero Length") = True lTable.Columns.Append "RelatedURL", adVarWChar, 70 lTable.Columns.Append "DownloadURL", adVarWChar, 70 lTable.Columns.Append "DateAdded", adDate lTable.Columns.Append "ShortDesc", adLongVarWChar lTable.Columns.Append "LongDesc", adLongVarWChar lTable.Columns.Append "Display", adSingle lTable.Columns.Append "Email", adVarWChar, 70 lTable.Columns.Append "Expire", adDate lTable.Columns.Append "Priority", adInteger lTable.Columns.Append "Impressions", adInteger lTable.Columns.Append "ClickThrus", adInteger lTable.Columns.Append "Downloads", adInteger lTable.Columns.Append "AvgRating", adInteger lTable.Columns.Append "Ratings", adInteger lTable.Columns.Append "Feature", adSingle lIndex.Name = "P_Key" lIndex.Columns.Append "ContentID" 'Tambahkan index ke table lTable.Indexes.Append lIndex 'Simpan table dan strukturnya ke database lCatalog.Tables.Append lTable Set lCatalog = Nothing MsgBox "Database dan table telah sukses di buat." End Sub

Code Visual Basic diatas adalah untuk membuat database dan table di dalam database. Jika terjadi erro atau runtime error : User-defined type not defined. Maka anda harus mengaktifkan dengan cara :

• Dari menu pilih Project
• Referensi
• Setelah muncul Daftar referensi, cari Microsoft ADO Ext. 2.5 for DDL and Security
• Setelah ketemu dan dicentang disebelah kiri tekan Ok untuk Selesai.

Demikian semoga bisa membantu.