以下是引用傻马难骑在2013-5-7 20:47:00的发言:
期待狐狸爸爸解释下,应该有解决的办法吧
曲线救国的办法也是有的: 储存 ==> 删除 ==>增加 ==> 赋值
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT * From {客户}"
dt = cmd.ExecuteReader()
Dim Builder As New ADOXBuilder("Sale") '要指定数据源名称
Builder.Open()
With Builder.Tables("客户")
.DeleteColumn("客户名称")
.AddColumn("客户名称" ,ADOXType.String, 100)
End With
Builder.Close() '关闭ADOXBuilder
For Each dr As DataRow In dt.datarows
Dim cmd1 As New SQLCommand
cmd1.C
cmd1.CommandText = "UPDATE {客户} SET 客户名称 = '" & dr("客户名称") & "' WHERE 客户ID = '" & dr("客户ID") & "'"
cmd1.ExecuteNonQuery()
Next
Syscmd.Project.Open(ProjectFile)