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 AD