如何用ADO实现在程序中动态的往ACCESS数据库中动态的添加新表及设计表结构?

[ophilier]

如题

[footballboy]

Dim cnn As ADODB.Connection

Private Sub Form_Load()
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\temp.mdb"
End Sub

'往数据库中添加一个新表
Private Sub Command1_Click()
cnn.Execute "create table newtable(StudentName text(8),age long)"
End Sub

'向新建的数据表中添加字段newfield
Private Sub Command2_Click()
cnn.Execute "alter table newtable add newfield text(50)"
End Sub

[ophilier]

有谁知道,能告诉我吗?先谢了!

[superhu]

这个问题其实比较简单，sql语句就能作到
添加新表：create table
修改表结构：alter table
运行方式就和记录集一样
比如，你期望查询，可以这样用
rs.open "select * from ...",....
那么，创建表，就这样
rs.open "create table ..."
sql语句的具体用法，你可以自己查一下msdn