vb6 如何用sql 创建access库

dzy123 发布于 2017-09-05 10:46， 1957 次点击

vb6 如何用sql语句创建access库
Adodc1.RecordSource = "Create('Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d\sh.mdb;Jet OLEDB:Engine Type=5);' "不能成功创建，提示“未发现数据源名称并且未指定默认驱动程序

[此贴子已经被作者于2017-9-5 10:55编辑过]

6 回复

dzy1232017-09-05 10:50

Adodc1.RecordSource = "Create('Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d\sh.mdb;Jet OLEDB:Engine Type=5'); "
这个语句没有成功创建

ZHRXJR2017-09-05 11:55

好像 ADO 控件不能新建Access数据库，一般使用 ADOX 对象或 DAO 对象创建Access数据库的吧？
新建数据库必须有特定界面，要输入数据库名称，添加字段，包括字段名称、字段数据类型、字段大小、是否容许空的文本框或下拉框。
好像不是一个语句就能创建数据库的吧。

dzy1232017-09-05 14:54

以下是引用ZHRXJR在2017-9-5 11:55:02的发言：

好像 ADO 控件不能新建Access数据库，一般使用 ADOX 对象或 DAO 对象创建Access数据库的吧？
新建数据库必须有特定界面，要输入数据库名称，添加字段，包括字段名称、字段数据类型、字段大小、是否容许空的文本框或下拉框。
好像不是一个语句就能创建数据库的吧。

字段，类型，大小是数据库表吧？

ZHRXJR2017-09-05 19:00

回复 4楼 dzy123

是呀，创建数据库、数据表，在数据表创建字段，因此有数据库名称；数据表名称；字段名称、字段数据类型、字段大小、字段是否为空，对于ID字段还要设置主键。

xiangyue05102017-09-06 09:07

百度的，自己研究一下
https://zhidao.baidu.com/question/129741296.html

dzy1232017-09-06 15:18

回复 6楼 xiangyue0510

    Dim cat As New ADOX.Catalog  '不用cat用另外一个名字也可以
    Dim pstr As String
    Dim tb1 As New Table
    pstr = "Provider=Microsoft.Jet.OLEDB.4.0;"   '不能把这里的4.0改为3.51
    pstr = pstr & "Data Source=d:\dat.mdb;"
    cat.Create pstr
这样能实现谢谢各位