在寫(xiě)這篇文章之前心里不免有點(diǎn)自卑,，因?yàn)閂B已經(jīng)快被微軟淘汰了,，可是由于工作的關(guān)系還在一直使用它。畢竟它真的很容易上手,，可是如果再靠它去找工作估計(jì)很難了,。呵呵，廢話(huà)少說(shuō),，只要還有人用它就表示它還沒(méi)過(guò)時(shí),。
下面介紹的內(nèi)容標(biāo)題已經(jīng)概括了,，直接介紹如何操作。

打開(kāi)VB6.0,，因?yàn)槲野惭b了sp包,，所以我用到的控件版本號(hào)高一些，在網(wǎng)上找資料時(shí)看到有用版本號(hào)比較低的控件,。應(yīng)該都可以的。
    1. 新建一個(gè)工程,，找到VB編輯器主窗體的【工程】菜單－>【引用】,，在彈出的窗體中選擇【Microsoft     ADO     Ext. 2.X for DDL and Security】，“2.X”表示版本,。
    2. 在窗體中選擇Form_Load( ),，在其中輸入如下代碼：

            Dim cat As New ADOX.Catalog
            Dim tbl As New ADOX.Table
            Dim pstr As String
            Dim db As String
   
            db = App.Path & "\" & "tmp.mdb"
   
            pstr = "Provider=Microsoft.Jet.OLEDB.4.0;"         '數(shù)據(jù)庫(kù)驅(qū)動(dòng) 4.0 For Office 2k/2003, 3.5.1 For Office 97
   
            pstr = pstr & "Data Source=" & db                        
   
            cat.Create pstr
   
            cat.ActiveConnection = pstr    ‘相當(dāng)于打開(kāi)數(shù)據(jù)庫(kù)
   
            tbl.Name = "Table_One"                                         
   
            tbl.Columns.Append "No", adInteger
   
            tbl.Columns.Append "Name", adVarWChar, 20
            tbl.Columns.Append "Age", adInteger
   
            cat.Tables.Append tbl                                             'Create table 1                      
   
            Set tbl = Nothing                                                       'Reset Adox table
   
            Set tbl = New ADOX.Table
   
            tbl.Name = "Table_Two"                                         'Create table 2, Next 3,4,....

            tbl.Columns.Append "No", adInteger
            tbl.Columns.Append "Count", adVarBinary
            tbl.Columns.Append "Time", adDate
   
            cat.Tables.Append tbl

調(diào)試，通過(guò),。

本文來(lái)自CSDN博客,，轉(zhuǎn)載請(qǐng)標(biāo)明出處：http://blog.csdn.net/doublecells/archive/2007/02/27/1515877.aspx