執行：
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);
varsql:
string
;begin
ifassfile =''
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;
Excel資料匯入到Access
下面是asp的全部程式，需要做的是建乙個test.mdb資料庫和乙個test.xls的excel 查詢excel準備匯入到access sql select from sheet1 要匯入的excel資料裡面的表的名稱，後面一定要加 set rs conn2.execute sql while no...
Excel資料匯入到Access
下面是asp的全部程式，需要做的是建乙個test.mdb資料庫和乙個test.xls的excel 查詢excel準備匯入到access sql select from sheet1 要匯入的excel資料裡面的表的名稱，後面一定要加 set rs conn2.execute sql while no...
Access的資料匯入到Mysql
dim drivername,chs drivername driver server localhost database discuz uid root pwd set conn server.createobject adodb.connection conn.open drivername ...