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

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语句可以实现数据传递!
但加有密码后就不行了!
回复
Pipi0714 2001-12-30
我说,你说的是不是数据库中两个表之间传递数据?而不是两个*.mdb之间传递数据。既然你都能连接上数据库,为什么你的sql语句就执行不了呢?你连接上数据库了么?有问题给我发E_mail:cpipi0846@163.com
回复
Sammo 2001-12-30
To icevi(按钮工厂):
如何做链接表?
回复
加载更多回复
相关推荐
发帖
MS-SQL Server
创建于2007-09-28

3.3w+

社区成员

MS-SQL Server相关内容讨论专区
申请成为版主
帖子事件
创建了帖子
2001-12-21 04:51
社区公告
暂无公告