vb动态建立一个access数据库

补充：要求用语句建立的数据库
建立一个名为hello.mdb 
然后建立两个表，一个表名字是 table1 ,字段有姓名，家庭住址
另一个表名字是table2，字段有，电话号码
要注意的是，两表表的字段是可以动态变化宽度的，请给出源码，100分送上

答案：我的作法是,先创建一个空的access数据库 如 1.mdb 放在程序的目录
 
    Dim destPath As String
    destPath = App.Path & "\hello.mdb"
    FileCopy App.Path & "\1.mdb", destPath '复制成新的,相当于建立
    
    Dim cn As New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & destPath & ";"
    
    Dim sql As String
    
    sql = "create table table1 (姓名 ntext not null, 家庭住址 ntext null)"
    cn.Execute sql
    
    sql = "create table table2 (电话号码 ntext not null)"
    cn.Execute sql
    
    cn.Close
    Set cn = Nothing
 
不懂得哦

上一个：VB中CommonDialog控件如何使用?
下一个：vb程序添加图片和音乐问题