vb中如何创建mysql表_怎样用VB的代码创建Access数据库.docx

怎样用VB的代码创建Access数据库

用 ADOX:

'菜单“工程"一>"引用"-> Microsoft ADO Ext.2.7 for DDL ado Security

'建数据库：

Private Sub Form_Load()

Dim cat As ADOX.Catalog

Set cat = New ADOX.Catalog

'在当前日录下建立名为newdata的Access数据库

cat.Create( MProvider=Microsoft」el?OLEDB.4?0;DaiaSource=

”+ App.Path & "\newdata.mdb"+”；")

MsgBox "数据库已经创建成功！ ”

End Sub

Private Sub Command I _Click()

Dim cn As New ADODB.Conncction

Source=cn.ConnectionString= nProvider=MicrosoftJet.OLEDB.4.0;Data

Source=

& App.Path& M

& App.Path

cn.Open

cn.Execute ” CREATE TABLE |aaa](| 学生姓名]Text(20)J 年龄 jlntegerj 成绩 IDouble) cn.Closc

End Sub

'删表：

Private Sub Command2_Click()

Dim cn As New ADODB.Conncction

Sourcc==cn.ConncctionString= nProvidcr=Microsoft.Jct.OLEDB.4.0;Data

Sourcc==

& App.Path &"newdata.mdb;Persist Security Info=FalseH

cn.Open

cn.Execute "DROP TABLE [aaa]"

cn.CIose

End Sub

/

Optio n

Explicit

Dim i

As

Integer

Dim j

As

Integer

Private

Sub

Form_Load()

，菜单“工程J：

> ”引用"-> ''Microsoft ActiveX

Data Objects 2.7 Library ”

'Microsoft ADO Ext.2.7 for DDL ado

Security

Dim

cat

As ADOX.Catalog

Set cat = New ADOX.Catalog

cat.Create (nProvider=Microsoft.Jet.OLEDB.4.0;Data Source二D:\newdaia.mdbM +”； ”)

MsgBox ”数据廂已经创建成功!

Dim tbl As ADOX.Table

Set tbl = New ADOX.Table

tbl.ParentCatalog = cat

tbl.Name = "MyTable"

'增加?个口动增长的字段

Dim col As ADOX.Column

Set col = New ADOX.Column

col.ParentCatalog = cat

col.Type = ADOX.DataTypeEnum.adInteger '// 必须先设世字段类型

col.Namc =”id ”

col.Properties( nJet OLEDB:Allow Zero LengthH).Value = False

col.Properties( HAutoIncrement ”).Value = True

tbl.Columns. Append col, A DOX. DataTy peEn um. ad I n teger, 0

，增加一个文木字段

Dim col2 As ADOX.Column

Set col2 = New ADOX.Column

col 2. Paren tCatalog = cat

co!2.Name =”DescriptionH

col2.Propcrtics( nJct OLEDB:Allow Zero Lengthn).Value = False tbl.Columns. Append col2, ADOX.DataTypeEnum.adVarChar, 25

'增加一个货币型字段

Dim