国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

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

打開VB6.0，因?yàn)槲野惭b了sp包，所以我用到的控件版本號高一些，在網(wǎng)上找資料時(shí)看到有用版本號比較低的控件。應(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ù)庫驅(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)于打開數(shù)據(jù)庫
   
            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)試，通過。

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

本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點(diǎn)擊舉報(bào)。