从access导入数据到sqlserver

执行：
select * into 巡查记录1  from OPENDATASOURCE ('Microsoft.Jet.OLEDB.4.0','Data Source=E:/导入导出/black_hd_catayou_20071128.mdb;Persist Security Info=false;Jet OLEDB:Database Password=;' )...black_client
因为安全机制，sqlserver默认情况下关闭了组件 'Ad Hoc distributed Queries' 的 STATEMENT'OpenRowset/OpenDatasource' 的访问

正确方法：

procedure TFrmMain.suiButton4Click(Sender: TObject);

var

  sql: string ;

begin

   if  assFile  =   ''  then Exit;

  sql : ' select * into 巡查记录 from OPENDATASOURCE ( Microsoft.Jet.OLEDB.4.0 ,  +

           ''' Data Source= assfile ;Persist Security Info=false;Jet OLEDB:Database Password=;  )...black_client  ;

  ADOQuery1.Close;

  ADOQuery1.sql.Clear;

   // 打开权限

  ADOQuery1.sql.Add( exec sp_configure  show advanced options );

  ADOQuery1.sql.Add( reconfigure Ad Hoc distributed Queries );

  ADOQuery1.Execsql;

   执行sql语句   ADOQuery1.clsoe;

  ADOQuery1.sql.Clear;

  ADOQuery1.sql.Add(sql);

  ADOQuery1.Execsql;

    关闭权限   ADOQuery1.Close;

  ADOQuery1.sql.Clear;

  ADOQuery1.sql.Add( );

  ADOQuery1.Execsql;

end;