有关连接两个或多个数据源（菜鸟问题）

Question

It's ConnectionStr, not contentionStr
//xixi

Answer 1

  S1.Close;
  S1.ConnectionString:=
    'Provider=MSDASQL.1;'+
    'Persist Security Info=False;'+
    'Extended Properties='+
    '"'+
    'DBQ='+ExtractFilePath(Application.EXEName)+'datasource\scan.mdb'+';'+
    'DefaultDir='+ExtractFilePath(Application.EXEName)+'datasource'+';'+
    'Driver={Microsoft Access Driver (*.mdb)};'+
    'DriverId=281;'+
    'FIL=MS Access;'+
    'FILEDSN='+ExtractFilePath(Application.EXEName)+'datasource\scan.dsn'+';'+
    'MaxBufferSize=2048;'+
    'MaxScanRows=8;'+
    'PageTimeout=5;'+
    'SafeTransactions=0;'+
    'Threads=3;'+
    'UID=admin;'+
    'UserCommitSync=Yes;'+
    '"';
  S1.Open;以上是我的程序中相关的内容，修改Driver等设定数据库类型，DBQ等设定数据源

Answer 2

  S1.Close;
  S1.ConnectionString:=
    'Provider=MSDASQL.1;'+
    'Persist Security Info=False;'+
    'Extended Properties='+
    '"'+
    'DBQ='+ExtractFilePath(Application.EXEName)+'datasource\scan.mdb'+';'+
    'DefaultDir='+ExtractFilePath(Application.EXEName)+'datasource'+';'+
    'Driver={Microsoft Access Driver (*.mdb)};'+
    'DriverId=281;'+
    'FIL=MS Access;'+
    'FILEDSN='+ExtractFilePath(Application.EXEName)+'datasource\scan.dsn'+';'+
    'MaxBufferSize=2048;'+
    'MaxScanRows=8;'+
    'PageTimeout=5;'+
    'SafeTransactions=0;'+
    'Threads=3;'+
    'UID=admin;'+
    'UserCommitSync=Yes;'+
    '"';
  S1.Open;以上是我的程序中相关的内容，修改Driver等设定数据库类型，DBQ等设定据源。
非所有内容都写上，可视情况简写，但这是完全的。通过多设session或多次关闭开即可实现你的要求

Answer 3

  S1.Close;
  S1.ConnectionString:=
    'Provider=MSDASQL.1;'+
    'Persist Security Info=False;'+
    'Extended Properties='+
    '"'+
    'DBQ='+ExtractFilePath(Application.EXEName)+'datasource\scan.mdb'+';'+
    'DefaultDir='+ExtractFilePath(Application.EXEName)+'datasource'+';'+
    'Driver={Microsoft Access Driver (*.mdb)};'+
    'DriverId=281;'+
    'FIL=MS Access;'+
    'FILEDSN='+ExtractFilePath(Application.EXEName)+'datasource\scan.dsn'+';'+
    'MaxBufferSize=2048;'+
    'MaxScanRows=8;'+
    'PageTimeout=5;'+
    'SafeTransactions=0;'+
    'Threads=3;'+
    'UID=admin;'+
    'UserCommitSync=Yes;'+
    '"';
  S1.Open;

Answer 4

完全版本(session为例)：  S1.Close;
  S1.ConnectionString:=
    'Provider=MSDASQL.1;'+
    'Persist Security Info=False;'+
    'Extended Properties='+
    '"'+
    'DBQ='+ExtractFilePath(Application.EXEName)+'datasource\scan.mdb'+';'+
    'DefaultDir='+ExtractFilePath(Application.EXEName)+'datasource'+';'+
    'Driver={Microsoft Access Driver (*.mdb)};'+
    'DriverId=281;'+
    'FIL=MS Access;'+
    'FILEDSN='+ExtractFilePath(Application.EXEName)+'datasource\scan.dsn'+';'+
    'MaxBufferSize=2048;'+
    'MaxScanRows=8;'+
    'PageTimeout=5;'+
    'SafeTransactions=0;'+
    'Threads=3;'+
    'UID=admin;'+
    'UserCommitSync=Yes;'+
    '"';
  S1.Open;

Answer 5

  S2.Close;
  S2.ConnectionString:=
    'Provider=MSDASQL.1;'+
    'Persist Security Info=False;'+
    'Extended Properties='+
    '"'+
    'DBQ='+ExtractFilePath(Application.EXEName)+'datasource\scan.mdb'+';'+
    'DefaultDir='+ExtractFilePath(Application.EXEName)+'datasource'+';'+
    'Driver={Microsoft Access Driver (*.mdb)};'+
    'DriverId=281;'+
    'FIL=MS Access;'+
    'FILEDSN='+ExtractFilePath(Application.EXEName)+'datasource\scan.dsn'+';'+
    'MaxBufferSize=2048;'+
    'MaxScanRows=8;'+
    'PageTimeout=5;'+
    'SafeTransactions=0;'+
    'Threads=3;'+
    'UID=admin;'+
    'UserCommitSync=Yes;'+
    '"';
  S2.Open;

Answer 6

a example: 
  S4.Close;
  S4.ConnectionString:=
    'Provider=MSDASQL.1;'+
    'Persist Security Info=False;'+
    'Extended Properties='+
    '"'+
    'DBQ='+ExtractFilePath(Application.EXEName)+'datasource\scan.mdb'+';'+
    'DefaultDir='+ExtractFilePath(Application.EXEName)+'datasource'+';'+
    'Driver={Microsoft Access Driver (*.mdb)};'+
    'DriverId=281;'+
    'FIL=MS Access;'+
    'FILEDSN='+ExtractFilePath(Application.EXEName)+'datasource\scan.dsn'+';'+
    'MaxBufferSize=2048;'+
    'MaxScanRows=8;'+
    'PageTimeout=5;'+
    'SafeTransactions=0;'+
    'Threads=3;'+
    'UID=admin;'+
    'UserCommitSync=Yes;'+
    '"';
  S4.Open;

Answer 7

我搞不懂你的意思请给我写信[email protected]