Question

VB中如何创建数据库，表，字段？

我编了一个要用数据库的小程序，想在运行之前先判断数据是否存在？如果不存在则新建一个数据库，新建一个表。
应该如何来写代码呢？
假设文件路径是：C：\sss.mdb（同时最好能再写一个相对路径的代码）
表的名称是：sss
有5个字段：姓名（字符型）、记录1（数字型）、记录2（数字型）、记录3（数字型）记录4（数字型）

Answer 1

给你一个例子，你自己改吧。

'引用对象库“Microsoft ActiveX Data Objects 2.8 Library”
'引用对象库“Microsoft ADO Ext 2.8. For DDL Security”，简称为ADOX

    Dim cat As New ADOX.Catalog
    Dim pstr As String
    pstr = "Provider=Microsoft.Jet.OLEDB.4.0;"
    pstr = pstr & "Data Source="C:\sss.mdb"
    pstr = pstr & ";Jet OLEDB:Database"
    cat.Create pstr  '创建数据库

Dim cat As New ADOX.Catalog  '不用cat用另外一个名字也可以
    Dim pstr As String
    Dim tb1 As New Table
    pstr = "Provider=Microsoft.Jet.OLEDB.4.0;"
    pstr = pstr & "Data Source="C:\sss.mdb"
    pstr = pstr & ";Jet OLEDB:Database"
    cat.ActiveConnection = pstr
    tb1.Name = "sss"  '表的名称
    tb1.Columns.Append "姓名", adVarWChar, 20  '表的第一个字段
    tb1.Columns.Append "记录1", adInteger    '表的第二个字段
    tb1.Columns.Append "记录2", adInteger    '表的第三个字段
    tb1.Columns.Append "记录3", adInteger    '表的第四个字段
    tb1.Columns.Append "记录4", adInteger    '表的第五个字段
    cat.Tables.Append tb1    '建立数据表

追问

1、 pstr = pstr & "Data Source="C:\sss.mdb" 这段提示语法错误！
2、cat As New ADOX.Catalog 当前范围内声明重复
3、cat.Create pstr '创建数据库 指定的初始化字符串不符合 ole db 规定

追答

你自己改啊，我没有测试，第1个多一个“，去掉就行了。
第二了已经有了就不用，可以删除
第三个检查自定义连接字符串