怎么用vb代码自定义动态创建sql数据库，希望各位高手，大虾，老师们给予解答，谢谢啦~~~~

Question

怎么用vb代码自定义动态创建sql数据库以及表，希望各位高手，大虾，老师们给予解答，谢谢啦~~~~

Answer 1

Dim db As Database
Dim td As TableDef
Dim fd As Field
Set db = CreateDatabase("C:\db1.mdb", dbLangGeneral)
    Set td = db.CreateTableDef("Tab")
        Set fd = td.CreateField("ID", dbLong)
            fd.Attributes = dbAutoIncrField
            td.Fields.Append fd
        Set fd = td.CreateField("picImage", dbLongBinary)
            td.Fields.Append fd
    db.TableDefs.Append td
    db.Close
    Set fd = Nothing
    Set td = Nothing
    Set db = Nothing