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

打開(kāi)APP
userphoto
未登錄

開(kāi)通VIP,暢享免費(fèi)電子書(shū)等14項(xiàng)超值服

開(kāi)通VIP
用ADOX在磁盤(pán)上新建一個(gè)mdb文件

dim   strSoftPath   as   string
strSoftPath   =   App.Path
If   Mid$(strSoftPath,   Len(strSoftPath),   1)   <>   "\ "   Then   strSoftPath   =   strSoftPath   &   "\ "
--生成strSoftPath形如c:\或c:\abc\,后面一定帶有\(zhòng),如你不想帶,可修改上面及下面語(yǔ)句

--引用微軟   ADO   Ext.2.7   for   dll   and   Security
--創(chuàng)建數(shù)據(jù)庫(kù)和數(shù)據(jù)表及字段
Private   Sub   Command1_Click()
        CreateDatabase
        CreateTable
        MsgBox   "成功 "
End   Sub
Sub   CreateDatabase()
      Dim   cat   As   New   ADOX.Catalog
      cat.Create   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source=c:\new.mdb "
End   Sub

Sub   CreateTable()
      Dim   tbl   As   New   Table
      Dim   cat   As   New   ADOX.Catalog
--Open   the   catalog.
      --   Open   the   Catalog.
      Cat.ActiveConnection   =   _
            "Provider=Microsoft.Jet.OLEDB.4.0; "   &   _
            "Data   Source= "   &   strSoftPath   &   "new.mdb; "     --此處用strSoftPath換了C:\

      tbl.name   =   "MyTable "
      tbl.Columns.Append   "Column1 ",   adInteger
      tbl.Columns.Append   "Column2 ",   adInteger
      tbl.Columns.Append   "Column3 ",   adVarWChar,   50
      cat.Tables.Append   tbl

End   Sub
--檢查表是否存在
Dim   cnn1   As   ADODB.Connection
Dim   rstSchema   As   ADODB.Recordset
Dim   strCnn   As   String

Set   cnn1   =   New   ADODB.Connection
strCnn   =   "Provider=sqloledb; "   &   _
"Data   Source=srv;Initial   Catalog=pubs;User   Id=sa;Password=;   "
cnn1.Open   strCnn

Set   rstSchema   =   cnn1.OpenSchema(adSchemaTables)

Do   Until   rstSchema.EOF
Debug.Print   "Table   name:   "   &   _
rstSchema!TABLE_NAME   &   vbCr   &   _
"Table   type:   "   &   rstSchema!TABLE_TYPE   &   vbCr
rstSchema.MoveNext
Loop
rstSchema.Close

cnn1.Close

本站僅提供存儲(chǔ)服務(wù),所有內(nèi)容均由用戶發(fā)布,如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)點(diǎn)擊舉報(bào)
打開(kāi)APP,閱讀全文并永久保存 查看更多類(lèi)似文章
猜你喜歡
類(lèi)似文章
用VB動(dòng)態(tài)創(chuàng)建Access數(shù)據(jù)庫(kù)簡(jiǎn)例
使用ADO訪問(wèn)數(shù)據(jù)庫(kù)時(shí)怎樣判斷某一表名是否存在
Vb創(chuàng)建鏈接表
VB程序中用ADO對(duì)象動(dòng)態(tài)創(chuàng)建數(shù)據(jù)庫(kù)和表
SQL語(yǔ)言基本教程
VB中用ADO對(duì)象動(dòng)態(tài)創(chuàng)建數(shù)據(jù)庫(kù)和表(二)
更多類(lèi)似文章 >>
生活服務(wù)
分享 收藏 導(dǎo)長(zhǎng)圖 關(guān)注 下載文章
綁定賬號(hào)成功
后續(xù)可登錄賬號(hào)暢享VIP特權(quán)!
如果VIP功能使用有故障,
可點(diǎn)擊這里聯(lián)系客服!

聯(lián)系客服