从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 '' ,1 ' );
  ADOQuery1.SQL.Add( ' reconfigure ' );
  ADOQuery1.SQL.Add( ' exec sp_configure  '' Ad Hoc Distributed Queries '' ,1 ' );
  ADOQuery1.SQL.Add( ' reconfigure ' );
  ADOQuery1.ExecSQL;
   // 执行sql语句
  ADOQuery1.clsoe;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(sql);
  ADOQuery1.ExecSQL;
    // 关闭权限
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add( ' exec sp_configure  '' show advanced options '' ,0 ' );
  ADOQuery1.SQL.Add( ' reconfigure ' );
  ADOQuery1.SQL.Add( ' exec sp_configure  '' Ad Hoc Distributed Queries '' ,0 ' );
  ADOQuery1.SQL.Add( ' reconfigure ' );
  ADOQuery1.ExecSQL;

end;