Question

用VB创建Access表格

怎样用VB创建access表格？
要求不用可视化窗口，全部使用用语句新建文件，表格，字段，并制定字段类型和长度，然后打开表格输入数据。
请给个可运行的例程序谢谢。

Answer 1

1、vb创建access表可以使用DAO,ADO,ODBC等，这里使用ADO中的ADODC来完成。

2、从工程--部件--添加Microsoft ADO Data Control 6.0 (SP6) (OLEDB)。

3、从工具箱添加adodc到窗体。

4、示例代码如下：

Private Sub Command1_Click()
 On Error Resume Next
 
 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db2.mdb"
 Adodc1.RecordSource = "select 1"
 Adodc1.Refresh
 Adodc1.Recordset.ActiveConnection.Execute "create table[t_test](id Counter(1,1) primary key,u_name varchar(50),fatherid int)"
 Adodc1.Recordset.Close
 Adodc1.Recordset.ActiveConnection.Close
 
 MsgBox "ok"

End Sub

Answer 2

一个完整的程序：
Private Sub Command1_Click()
On Error Resume Next
db = "d:\aa.mdb"
If Dir(db) = "" Then CreateObject("ADOX.Catalog").Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
If Dir(db) = "" Or Err <> 0 Then If MsgBox("数据库创建失败！", 48) <> vbYes Then Exit Sub
Set con = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
Set rs.ActiveConnection = con
rs.open "create table aaa (aa char(2),bb date,cc int)"
rs.open "insert into aaa (aa,bb,cc) values ('aa',#" & Now & "#,11)"
rs.open "select * from aaa"
If Not rs.EOF Then
For i = 0 To rs.fields.Count - 1
Print "字段名："; rs.fields(i).Name, "字段值："; rs.fields(i)
Next
End If
rs.Close
End Sub
如果程序比较复杂，可添加引用：Microsoft Asctivex Data Objects 2.5 Library

Answer 3

有偿帮助。小事一件

追问

你好
谢谢
再见