不知道问题出在哪里?????

[rambolee]

Set cn = New ADODB.Connection
cn.Open "dsn=gz;uid=;pwd=;" 'your connection string
ProgressBar1.Visible = True
ProgressBar1.Value = 0
Set cmdalter = New Command
Set cmdupdate = New Command
Set rstblset = New Recordset
sqltr1 = "select * from tblset order by igznum"
rstblset.Open sqltr1, cn, 1, 3
rstblset.MoveLast
rstblset.MoveFirst
ProgressBar1.Max = rstblset.RecordCount
Do While rstblset.EOF
columnstr = rstblset("cSetGZItemName") & " money"
With cmdalter
.ActiveConnection = cn
.CommandText = "alter table wa_psn add COLUMN " & columnstr
.Execute
End With
ProgressBar1.Value = ProgressBar1.Value + 1
rstblset.MoveNext
Loop
MsgBox "所有工资数据已经导入"

[13161795500]

你说出在哪里？

[rambolee]

我知道就不发贴了

[13161795500]

在哪行出什么提示你总得告诉大家吧？

[Cooly]

这句错了吧

.CommandText = "alter table wa_psn add COLUMN " & columnstr

改成

.CommandText = "alter table wa_psn add " & columnstr

或

.CommandText = "alter table wa_psn add " & columnstr & " varchar"

试试

[rambolee]

还是不行

[Cooly]

错误提示是什么?

[rambolee]

就是没有提示

[XLYT]

没提示怎么知道错了？

[rambolee]

数据没有变化,算不算

[Cooly]

Set cn = New ADODB.Connection
cn.Open "gz","",""
ProgressBar1.Visible = True
ProgressBar1.Value = 0
Set cmdalter = New adodb.Command
Set cmdupdate = New adodb.Command
Set rstblset = New adodb.Recordset
sqltr1 = "select * from tblset order by igznum"
rstblset.Open sqltr1, cn, 3, 1
ProgressBar1.Max = rstblset.RecordCount
Do While rstblset.EOF
columnstr = rstblset("cSetGZItemName") & " money"
With cmdalter
.ActiveConnection = cn
.CommandText = "alter table wa_psn add " & columnstr
.Execute
End With
ProgressBar1.Value = ProgressBar1.Value + 1
rstblset.MoveNext
Loop
MsgBox "所有工资数据已经导入"

[Cooly]

我晕，数据不会变的，只是表结构会改变。

alter table wa_psn add " & columnstr
是用来向wa_psn表添加字段的.

[rambolee]

我说的就是表结构没有变化

[rambolee]

苦力，你试成功了吗？？？？