全部
基础类
应用实例
新技术前沿

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

Sammo 2001-12-21 04:51:25

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

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

...全文

252 点赞收藏 36

写回复

36 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

hongtao924 2002-01-31

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

回复赞

Sammo 2002-01-31

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

回复赞

Sammo 2002-01-26

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

回复赞

Sammo 2002-01-25

Up...

回复赞

panther_totem 2002-01-23

upupupup!!!!

回复赞

Sammo 2002-01-22

再顶一下！:)

回复赞

Sammo 2002-01-21

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

有什么好的解决办法呢?

回复赞

KingSunSha 2002-01-21

我昨天做了一些测试，比如插入纪录到另一个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 2002-01-21

关注!!!!!

回复赞

Sammo 2002-01-19

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

回复赞

KingSunSha 2002-01-19

三毛，你好！

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

回复赞

Sammo 2002-01-03

敬请关注！

回复赞

Sammo 2002-01-03

我又在别的地方求到了一个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 2001-12-31

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

回复赞

calligraphy 2001-12-31

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

回复赞

Sammo 2001-12-31

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

回复赞

icevi 2001-12-31

用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 2001-12-30

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

回复赞