急求VB高手帮忙!
大家好,我是一个VB新手,现在遇到一个问题,已经研究一天了,还是没有解决,请高手指点:
我做了一个系统,用Access做为数据库,另有一个升级库,两个数据库均有密码(密码不同),现需要将升级库中的一个表复制一份到系统数据库中,我查了很多网上的资料,但就是不行,请指点。
If ConnAC.State = ConnectionState.Closed Then ConnAC.Open() ’打开系统数据库
Dim CMDAC As New OleDb.OleDbCommand
CMDAC.Connection = ConnAC
CMDAC.CommandText = "Select * Into " & TableName & " In '" & PubAppPath & "\升级库.mdb' From " & TableName 'TableName为需要复制的数据库表名
CMDAC.ExecuteNonQuery() '执行时此句话报错:查询输入必须包含至少一个表或查询。
CMDAC = Nothing
ConnAC.Close()
注:我将升级库.mdb的密码去掉后,错误是一样的。
[解决办法]
CMDAC.CommandText = "Select Into " & TableName & " FROM "& TableName &" IN " & PubAppPath & "\升级库.mdb
TableName 必须在目标数据库中不存在
如果存在,则
CMDAC.CommandText = "INSERT Into " & TableName & "SELECT * FROM "& TableName &" IN " & PubAppPath & "\升级库.mdb
[解决办法]
http://www.2cto.com/database/201111/110572.html