VB操作ACCESS数据库代码,VB.Net代码库,德仔网

代码语言

代码分类

【VB.Net】 VB操作ACCESS数据库

作者:xqf222 / 发布于2014/2/25/ 1203

'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语句
'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


'添加数据表字段(字段格式:字段名 字段类别，字段长度；最末字段没有分号)
 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

'设置列的必填属性为&ldquo;否&rdquo;
'tbl.Columns("Weight").Attributes = adColNullable
'设置列的允许空字符串为&ldquo;是&rdquo;
'tbl.Columns("FirstName").Properties("Jet OLEDB:Allow Zero Length") = True
 Set tbl = Nothing
 Set cat = Nothing
MsgBox "数据表" & mdbPath & "-" & mdbTableName & "建立成功", vbOKOnly
End Sub

试试其它关键字

　VB操作ACCESS　

同语言下

可能有用的

xqf222贡献的其它代码(82)