如何动态在数据库中增加字段，新建查询？

[hongsongboy]

初学者，还望高手指点！！

[rdo-mark]

有帮助吗？

test --------- 表名
tt -----------字段名
我是用 ADODB.Connection


Option Explicit
Dim Cnnall As ADODB.Connection
Private Sub Command1_Click()
Dim Cn As New ADODB.Command
Set Cn = New ADODB.Command
Set Cn.ActiveConnection = Cnnall
Cn.CommandType = adCmdText
Cn.CommandText = "ALTER table test ADD column tt text(30) null"
Cn.Execute
End Sub

Private Sub Form_Load()

Set Cnnall = New ADODB.Connection
Cnnall.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WINDOWS\Desktop\s\db2.mdb;Persist Security Info=False"
End Sub

[hongsongboy]

有高手回答吗？

[hongsongboy]

数据库是access

[griefforyou]

看看T-SQL帮助吧!

[hongsongboy]

问题是现在手头没有合适的资料，还请各位帮帮忙.

[hongsongboy]

我试一下。

[hongsongboy]

还有没有别的方法?