本地excel 文件如何导入远程SQL服务器?(50分)

  • 主题发起人 主题发起人 start_abc
  • 开始时间 开始时间
S

start_abc

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);<br>var<br> &nbsp;selectsql,FieldName:string;<br>begin<br> &nbsp; FieldName:='d:/aaa.xls';<br> &nbsp; SelectSQL:='Insert into [TABLE1] (a,b,c)' ; <br> &nbsp; SelectSQL:=SelectSQL+'select * &nbsp;FROM OpenDataSource( ' &nbsp;;<br> &nbsp; SelectSQL:=SelectSQL+QuotedStr('Microsoft.Jet.OLEDB.4.0')+',' &nbsp;;<br> &nbsp; SelectSQL:=SelectSQL+QuotedStr('Data Source=&quot;'+FieldName+'&quot;;Extended Properties=excel 8.0')+')...[Sheet1$]';<br> &nbsp; try<br> &nbsp; &nbsp; ADoc1.Execute(SelectSQL);<br> &nbsp; &nbsp; showmessage('成功!');<br> &nbsp; &nbsp; except<br> &nbsp; &nbsp; showmessage('失败');<br> &nbsp; &nbsp; end; &nbsp; &nbsp; <br>end;<br>本地excel 文件导入本地SQL服务器用上面的代码成功(adoc1 连接本地SQL服务器),<br>但是<br>导入远程SQL服务器时便出错(adoc1 连接远程SQL服务器),不知为什么?
 
连接的远程服务器不对,看看连上了吗,不行的话,弄个中间库倒入。这个比我倒腾图片简单些吧,我的图片没有头绪呢
 
连接远程测试成功的啊!
 
提示:<br>服务器: 消息 7399,级别 16,状态 1,行 1<br>OLE DB 提供程序 'Microsoft.Jet.OLEDB.4.0' 报错。提供程序未给出有关错误的任何信息。<br>OLE DB 错误跟踪[OLE/DB Provider 'Microsoft.Jet.OLEDB.4.0' IDBInitialize::Initialize returned 0x80004005: &nbsp;提供程序未给出有关错误的任何信息。]。
 
因为你的SelectSQL+'select * &nbsp;FROM OpenDataSource...语句中的FieldName是在后台SQL服务器的路径
 
请问高手,该如何实现将本地文件的EXCEL文件导入到远程的数据SQL里面?
 
我直接用AdoConnection连接excel怎么不行?
 
请问高手,该如何实现将本地文件的EXCEL文件导入到远程的数据SQL里面?
 
我也想知道
 
http://www.delphibbs.com/keylife/iblog_show.asp?xid=101<br><br>ACCESS/EXCEL数据库里的数据导入网络上其它电脑中的SQL SERVER<br>新建ADO连接,连接上ACCESS或EXCEL文件(连接EXCEL要设置Extended Properties=Excel 8.0)<br>新建ADOCommand,执行以下SQL<br>Select * Into 新表名 IN [ODBC]<br>[ODBC;Driver=SQL Server;UID=sa;PWD=pwd;Server=192.168.0.100;DataBase=yourdb;]<br>From [Sheet1$]
 
自己一格一格读,再insert不就可以了
 
后退
顶部