[求助]请问这样那出问题了? - VB6论坛

问题点数：0 回复次数：0

[求助]请问这样那出问题了?

Dim sqlStatement As String
Dim dbObj As Database
Set myworkspace = Workspaces(0)
Set dbObj = myworkspace.OpenDatabase("c:\db1.mdb")

sqlStatement = "ALTER TABLE " & Data1.RecordSource & " ADD [" & Data2.Recordset.Fields(1) & "] " & "text"
Call dbObj.Execute(sqlStatement)

RUN后出现资料库被别人使用.

请各位帮帮忙,谢谢!!!

搜索更多相关主题的帖子: sqlStatement　dbObj　Set　myworkspace　