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

Question

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

Answer 1

Dim cnn As ADODB.ConnectionPrivate 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