请问怎样将EXCEL中的记录通过Delphi导入到SQL Sever 数据库呢,反过来又该怎么做呢?十万火急!!!(100分)

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

seiko_b

Unregistered / Unconfirmed
GUEST, unregistred user!
1。怎样将EXCEL中的记录通过Delphi导入到SQL Sever 数据库?
2。怎样将SQL Sever数据库中的记录通过Delphi导入到EXCEL?

那为能够给我详细的解答,我将追加100分!!!!
 
你可以用excel的odbc driver在控制面板的odbc data sources里
建立user data source,比如叫myexcel,设定workbook为your.xls
,然后你就可以用delphi自带的datadump把xls里的内容导入到sql server里了

反过来是一样的
 
1。用DATAPUMP

CONST
ROWNUM=
COLMN=
VAR
I,J:INTEGER;
MsExcel,WBook,WSheet:OLEVARIANT;
BEGIN
MsExcel:= CreateOleObject('Excel.Application');
WBook:=MsExcel.Application;
WBook.Visible:= True;
wbook.workbooks.Open(ExtractFileDir(paramstr(0))+'/SHHH.xls');
WSheet:=WBook.ActiveSheet;
WITH QUERY1 DO
BEGIN
CLOSE;
SQL.CLEAR;
SQL.ADD('INSERT INTO YOURTABLE () VAULES ()');
FOR I:=1 TO ROWNUM DO
BEGIN
CLOSE;
FOR J:=1 TO COLMN DO
PARAMS[J-1].VALUE:=WSHEET.CELLS[I,J].VALUE;
// PARAMS[J-1].ASSTRING:=WSHEET.CELLS[I,J].VALUE;//也可以用这一句
EXECSQL;
END;
END;

2.
用EXCEL 中的数据菜单中的新件数据库查询即可
用SQL7的OLE自动化借口,在EXCEL中写一段宏,我手头只有
ORACLE的借口资料,没有SQL7的,你可以给我发一份
EMAIL: 425007@SINA.COM
 
用SQLServer7.0的Import and Export Data
 
Sql server publish
 
接受答案了.
 
后退
顶部