用select访问带密码的外部数据库，该如何写？

[dragonman7806]

用select访问带密码的外部数据库，该如何写？
ADOQuery1.SQL.Text:='insert into 法律全表 select * from 法律全表 in '+QuotedStr('D:\EXE\法律汇编软件\博实软件\最新\db1.mdb')

提示：密码错误，该如何改正？

[dinoalex]

[Code=SQL]
insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source=" c:\DB.mdb";User ID=Admin;Password=')...表名
(列名1,列名2)
select 列名1,列名2 from sql表
[/Code]

[dragonman7806]

如果按照我的那种写法，那应该怎么改呢？

[dinoalex]

原来是从MDB到MSSQL
[Code=SQL]
insert into B表 selet * from
openrowset('Microsoft.Jet.OLEDB.4.0','x:\A.mdb';'admin';'',A表)
[/Code]

[dinoalex]

insert into 法律全表
select * from openrowset('Microsoft.Jet.OLEDB.4.0',
'D:\EXE\法律汇编软件\博实软件\最新\db1.mdb';'admin';'yourpassword',法律全表)

[dragonman7806]

根据楼上的做了，还是有问题呀：

ADOQuery1.SQL.Text:='insert into 法律全表 select * from openrowset('microsoft.Jet.OLEDB.4.0', 'D:\EXE\法律汇编软件\博实软件\最新\db1.mdb';'admin';'o0o0o0',法律全表);
adoquery1.execsql;

上面一行编译错误：missing operator or semicolon
missing operator or semicolon
missing operator or semicolon
lllega character in input file ‘汇’($BBER3)
lllega character in input file ‘实’($CAB5)
lllega character in input file ‘\’($5C)
unterminated string
missing operator or semicolon
何解

[ron_xin]

先用ConnectionString 连接...再select
ConnString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'\DB\db.mdb'+';Persist Security Info=False';
ADOQuery1.ConnectionString := ConnString;
ADOQuery1.SQL.Text:='select * from 法律全表 '
ADOQuery1.active:= true;

然后再用一个ADOQuery一条条插入

[dragonman7806]

补充：是从一个MDB到另一个MDB中

[dragonman7806]

那是不是还要再建立一个adoquery呢？因为我是想从A数据库中选取符合条件的记录，添加到B数据库中，应该怎么写呢？有完整代码么？