欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

'VB引用項目如下:
'Microsoft ADO Ext. 2.8 for DDL and Security
'Microsoft ActiveX Data Objects 2.8 Library
'COM+ Services Type Library
'Microsoft DAO 3.6 Object Library
Sub CreateDatabase(mdbPath, mdbPassword)

Dim cat As New ADOX.Catalog
If mdbPassword = "" Then
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source" & mdbPath & ";"
Else
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Password=" & mdbPassword & ";Data Source=" & mdbPath & ";"
'cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbPath & ";"
End If
MsgBox "數據庫" & mdbPath & "建立成功", vbOKOnly
'Set wspDefault = DBEngine.Workspaces(0)
'Set dbs = wspDefault.CreateDatabase("Newdb.mdb", _
'dbLangGeneral & ";pwd=NewPassword", dbEncrypt)

End Sub

Sub CreateTable(mdbPath, mdbTableName, mdbSqlColumns, mdbPrimaryKey)
'建立列的sql語(yǔ)句
'mdbPath="c:\test.mdb"
'mdbTableName="User"
'mdbSqlColumns="ID,adInteger;UserName,adVarWChar,20;Password,adVarWChar,20"
'mdbPrimaryKey="ID"
Dim tbl As New Table
Dim cat As New ADOX.Catalog
Dim con As ADODB.Connection
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=" & mdbPath & ";"

Dim ArrayColumn As String
tbl.Name = mdbTableName

'添加數據表字段(字段格式:字段名 字段類(lèi)別，字段長(cháng)度；最末字段沒(méi)有分號)
    ArrayTotalColumn = Split(mdbSqlColumns, ";", -1, 1)
    For i = 0 To UBound(ArrayTotalColumn)
    ArraySingleColumn = Split(ArrayTotalColumn(i), ",", -1, 1)
    If UBound(ArraySingleColumn) = 1 Then
    'tbl.Columns.Append ArraySingleColumn(0), ArraySingleColumn(1)
    tbl.Columns.Append ArraySingleColumn(0), adInteger
    Else
    'tbl.Columns.Append ArraySingleColumn(0), ArraySingleColumn(1), ArraySingleColumn(2)
    tbl.Columns.Append ArraySingleColumn(0), adVarWChar, CInt(ArraySingleColumn(2))
    End If
    Next

'設置數據表主鍵
'tbl.Columns(mdbPrimaryKey).Properties("AutoIncrement") = True
cat.Tables.Append tbl
 
'設置列的必填屬性為“否”
'tbl.Columns("Weight").Attributes = adColNullable
'設置列的允許空字符串為“是”
'tbl.Columns("FirstName").Properties("Jet OLEDB:Allow Zero Length") = True
    Set tbl = Nothing
    Set cat = Nothing
MsgBox "數據表" & mdbPath & "-" & mdbTableName & "建立成功", vbOKOnly
End Sub

'這個(gè)準備編寫(xiě)成一個(gè)類(lèi)。
'其實(shí)作用跟我上次編寫(xiě)的ASP操作ACCESS數據庫大全性質(zhì)和功能基本相似[Page]
'數據庫--新建，刪除，壓縮，修復，設置密碼，數據庫文件存在判斷，讀取'
'數據表--新建，刪除，數據表名稱(chēng)讀取，判斷，刪除，更新
'數據字段--新建，修改，主鍵，允許為空，長(cháng)度，外鍵，索引，字段名列表，判斷，屬性設置