塑料排水板-植草格-土工膜厂家-泰安东诺工程材料有限公司

以文本方式查看主題

-  曙海教育集團(tuán)論壇  (http://m.rfoamep.cn/bbs/index.asp)
--  SQL Server數(shù)據(jù)庫  (http://m.rfoamep.cn/bbs/list.asp?boardid=67)
----  關(guān)于“EXCEL數(shù)據(jù)導(dǎo)入MS SQL SERVER2000”的技術(shù)討論！  (http://m.rfoamep.cn/bbs/dispbbs.asp?boardid=67&id=2517)

--  作者：wangxinxin
--  發(fā)布時間：2010-12-13 12:42:12
--  關(guān)于“EXCEL數(shù)據(jù)導(dǎo)入MS SQL SERVER2000”的技術(shù)討論！
1.問題：
在用DELPHI 7編程實(shí)現(xiàn)"EXCEL數(shù)據(jù)導(dǎo)入MS SQL SERVER 2000"時提示：
“已拒絕OLE DB提供程序‘Microsoft.Jet.OLEDB.4.0’的特殊訪問，必須通過鏈接服務(wù)器來訪問此提供程序。”
2.現(xiàn)狀：
   A:MS SQL SERVER 2000數(shù)據(jù)導(dǎo)入EXCEL程序如下：  -----程序運(yùn)行是成功的！
   第一：連接數(shù)據(jù)庫：Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\\chengji.xls;Extended Properties=excel 8.0
   第二：導(dǎo)入數(shù)據(jù)：SELECT bianhao,yuwen into cj_yuwen  FROM a_chengji IN [ODBC][ODBC;Driver=SQL   server;UID=sys;PWD=;Server=YUAN;DataBase=tbms;]
    說明：將a_chengji表中的bianhao,yuwen列的數(shù)據(jù)導(dǎo)出到e:\\chengji.xls的cj_yuwen工作表中.
   B:在MS SQL SERVER 2000查詢分析器執(zhí)行如下命令：  ----命令運(yùn)行是成功的！
    insert into a_chengji (bianhao,yuwen,shuxue,yingyu) select bianhao,yuwen,shuxue,yingyu FROM OpenDataSource(\'Microsoft.Jet.OLEDB.4.0\',\'Data Source="e:\\chengji.xls";Extended Properties="Excel 8.0;HDR=Yes;";Persist Security Info=False\')...chengji$
    說明: 將e:\\chengji.xls的chengji工作表中bianhao,yuwen,shuxue,yingyu列的數(shù)據(jù)導(dǎo)出到a_chengji表的bianhao,yuwen,shuxue,yingyu列中.
   C：在DELPHI 7編程實(shí)現(xiàn)"EXCEL數(shù)據(jù)導(dǎo)入MS SQL SERVER 2000"：
  procedure Tf_chengji.BitBtn1Click(Sender: TObject);
  var
  s_sql:string;
  begin
    s_sql:\'insert into a_chengji (bianhao,yuwen,shuxue,yingyu) select bianhao,yuwen,shuxue,yingyu FROM OpenDataSource    (\'\'\'+\'Microsoft.Jet.OLEDB.4.0\'+\'\'\'\'+ \',\'+\'\'\'\'+\'Data Source="\'+\'e:\\chengji.xls\'+\'";Extended Properties="Excel     8.0;HDR=Yes;";Persist Security Info=False\'+\'\'\'\'+\')...chengji$\';
    ADOConnection1.Connected:=false;
    ADOConnection1.ConnectionString:=\'Provider=SQLOLEDB.1;Persist Security Info=false;User ID=sys;Initial Catalog=tbms\';
    ADOConnection1.Connected:=true;
    ADOConnection1.Execute(s_sql);
  end;
  說明：MS SQL SERVER 2000本地數(shù)據(jù)庫tbms，用戶名：sys,密碼：無。
  運(yùn)行時，提示：
  “已拒絕OLE DB提供程序‘Microsoft.Jet.OLEDB.4.0’的特殊訪問，必須通過鏈接服務(wù)器來訪問此提供程序。”
3.分析：
  A和B的運(yùn)行成功，說明MS SQL SERVER 2000和EXCEL是正常的，我們排除了MS SQL SERVER 2000和EXCEL異常的可能性。問題就出在DELPHI 7的程序上，B中命令運(yùn)行成功，說明C中的s_sql語句是正確的，問題就應(yīng)該在“鏈接服務(wù)器”上。
4.解決方案：
  A：找出被拒絕特殊訪問的原因，從而解決此問題：“通過對TADOConnection控件ADOConnection1的屬性設(shè)置”。
  B：新建“鏈接服務(wù)器”，從而訪問此提供程序：
     sp_addlinkedserver N\'Excel\', N\'Jet 4.0\',
                   N\'Microsoft.Jet.OLEDB.4.0\',
                   N\'e:\\chengji.xls\', NULL, N\'Excel 5.0\'
     GO
     exec sp_addlinkedsrvlogin N\'Excel\', false, sa, N\'ADMIN\', NULL
     可我在查詢其chengji數(shù)據(jù)時：提示說找不到chengji表，或用戶名不具備訪問權(quán)限！
     SELECT * FROM EXCEL...chengji
5.新問題：
A：如何設(shè)置TADOConnection控件ADOConnection1的屬性設(shè)置，以解決其被拒絕？？？
B：如何編寫sp_addlinkedsrvlogin，以使“用戶名：sys,密碼：無”有權(quán)限？？？？
C: 如果用sp_addlinkedserver建立新鏈接服務(wù)器，又應(yīng)該如何在DELPHI 7編程實(shí)現(xiàn)"EXCEL數(shù)據(jù)導(dǎo)入MS SQL SERVER 2000"？？？