KingSunSha(弱水三千)大哥！！！请进！Sammo有一个急题请教！

[Sammo]

ACCESS数据库里，在两个MDB之间移动数据时，就好像如下语句：
INSERT INTO TABLE1(ID,COL1) IN 'OLD.MDB'
SELECT ID,COL1
FROM Table1;

现在有一个问题：当“OLD.MDB”文件有密码时，就无法插入数据了！
有什么办法可以解决呢？

[Sammo]

To icevi(按钮工厂):
如何做链接表？

[Pipi0714]

我说，你说的是不是数据库中两个表之间传递数据？而不是两个*.mdb之间传递数据。既然你都能连接上数据库，为什么你的sql语句就执行不了呢？你连接上数据库了么？有问题给我发E_mail:[e-mail]

[Sammo]

To Pipi0714(皮皮0714):
现在我是在两个MDB文件之间传送数据的！
有一个New.mdb的文件，里边有一个Mydata的表，
现在我要把Mydata表的所有内容传递到第二个MDB文件
Old.mdb里的Mydata表去！
我只是打开了New.mdb文件，没有打开Old.mdb文件！
在没有密码的情况下，使用上面的SQL语句可以实现数据传递！
但加有密码后就不行了！

[icevi]

用DAO可以，我不知道用其他方法可不可以。
Dim aa As Database
Set aa = OpenDatabase("mydatabase1.mdb")
Dim bb As New TableDef
Set bb = aa.CreateTableDef("dept")
bb.Connect = "MS Access;PWD=qqqwww;DATABASE=D:\mydatabase2.mdb"
bb.SourceTableName = "dept"
aa.TableDefs.Append bb
'下面就可以直接用DEPT这个表了
MsgBox aa.OpenRecordset("select * from dept").Fields(0)

[Sammo]

To icevi(按钮工厂):
谢谢您！但可不可以译成BCB呀？

[calligraphy]

你用我的方法试过没有,我写的是连接到数据库的字符串

[Sammo]

To calligraphy(小九):
老大啊！你的意思是指使用两个ADOConnect来连接数据库是吧！
就算是连通了，但怎么写SQL语句呢？

[Sammo]

我又在别的地方求到了一个VB的源代码：（哪位可以把它译成BCB的？）
看大家被骗得有些辛苦，这里有小例一个：
Function BeiFen()
'用于将数据备份至另一个加密的库
Dim wrks As Workspace
Dim dbsPubs As Database
Dim strSql As String
Set wrks = DBEngine.Workspaces(0)
Set dbsPubs = wrks.OpenDatabase("目标库", dbDriverNoPrompt, False, ";PWD=xxxx;")
strSql = "INSERT INTO 表A SELECT 表B.*" _
& "FROM 表B in '源库.mdb';"
dbsPubs.Execute strSql
dbsPubs.Close
wrkJet.Close

End Function
说明：
一、表A为目标库中的表，表B为源库中的表，为了简化代码，这里假设两表字段完全一样。
二、目标库密码为：xxxx；如果有工作组，要重新构造连接字符串。
三、代码在源库中运行。
四、这里的例是两个库都在同一个目录下，若为不同目录请指明完整路径（最好都指定完整路径，本人这里就偷点懒了）。

[Sammo]

敬请关注！

[KingSunSha]

三毛，你好！

我也不懂bcb，你知道的。其实按钮的写法就不错，只是我不会翻译 ：（

[Sammo]

三千大哥！使用SQL语句无法解决吗？

[Sammo]

关注!!!!!

[KingSunSha]

我昨天做了一些测试，比如插入纪录到另一个mdb，可以这么写（没有密码的话）：
INSERT INTO Table1(id) IN 'db2.mdb'
SELECT Table1.id
FROM Table1;


如果有密码，用query designer做出来的代码是这么写的：
INSERT INTO [;PWD=12345678].Table1 ( id ) IN 'db2.mdb'[;PWD=12345678]
SELECT Table1.id
FROM Table1;

但是我调试通不过 ：（

[Sammo]

三千大哥！我也是和您一样，试过按您上面写的代码，也是不行！不知Access搞什么鬼！
按它的提示是可以的！！但就是运行不能通过！

有什么好的解决办法呢?

[Sammo]

再顶一下！:)

[panther_totem]

upupupup!!!!

[Sammo]

Up...

[Sammo]

呵呵 ~~~
我再顶！！！:)

[Sammo]

三千大哥哪里去了？回去过年了？！ :)

[hongtao924]

我也有向三千同样的经历，我最后也只成功了没有加密码的语句。
我要学习学习，关注