用VB创建数据库文件adox使用方法

'给你举个例子：引用ADO，如Microsoft ADO Ext. 2.8 for DDL and sec...

'用上面的方法建立一个空数据库，但建立表及其字段使用下面的方法

Dim ccn As ADODB.Connection

Set ccn = New ADODB.Connection

ccn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0Data Source=d:\test.accdbMode=Share Deny Read|Share Deny WritePersist Security Info=False"

ccn.CommandTimeout = 30

ccn.Open

On Error GoTo createtable_ERR:

ccn.Execute "CREATE TABLE Test1(Auto_ID LONG IDENTITY(1,1),tstField2 Text(12) DEFAULT abc,tstField3 SINGLE DEFAULT 256.33,tstField4 DATE DEFAULT #10/12/2010#,tstField5 Text(15) NOT NULL CONSTRAINT mk5_pk PRIMARY KEY)"

msgbox "建立成功"

createtable_ERR:

'以上例子建立自动编号的字段Auto_ID,其后三个字段是不同类型的字段，都具有默认值，最后一个字段是不允许字段为空(NOT NULL),并在该字段建立一个名为mk5_pk的主键

vb只是一个编程语言，并不能建立数据库，建立access数据库要完全在access中进行。

前提条件：必须安装微软access数据库。

步骤：

1、找好要存放数据库的路径，如C盘data路径；

2、路径下空白处点右键，新建-Microsoft

Access数据库，如图：

3、这时路径下就有了一个access文件，可以右键-重命名来为数据库起名，如，起名叫测试数据库；

4、双击access文件，在里边创建所要的表，函数等等即可。

---