Question

delphi7 如何实现excel导入sql server2000

Answer 1

如果直接导入 不判断
那就
SELECT * into newtable
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]

如果还要处理过数据再导入
那delphi像数据库一样用ADOConnection1连接excel
用ADOConnection2 连接sql server2000
用adoquery1连接ADOConnection1
用adoquery2连接ADOConnection2
然后
adoquery1.close;
adoquery1.sql.text:='select * from [Sheet1$]' ;
adoquery1.open;

adoquery2.close;
adoquery2.sql.text:='select * from newtable' ;
adoquery2.open;

while not adoquery1.eof do
begin
adoquery2.append;
adoquery2.fieldByname('字段1').value:=adoquery1.fieldbyname('字段11').asstring;
adoquery2.fieldByname('字段2').value:=adoquery1.fieldbyname('字段22').asstring;
adoquery2.post;
adoquery1.next;
end;

大致思路是如此 没有经过编译

Answer 2

相当2个数据库的表复制数据.
一条SQL语句就可以了。

Answer 3

var
sSQL:string;
EXLfile:string;
sheet,XLApp,workbook : variant;
c,H,W,iRow,MaxRow,i:integer;
begin
EXLfile:=dOpenopendlg.FileName;
edtExcel.Text:=EXLfile;
screen.Cursor:=crHourGlass;
try
//创建对象
XLApp:=createOleObject('Excel.Application');
XLApp.displayAlerts:=false;
XLApp.ScreenUpdating:=false;
XLApp.WorkBooks.Add(EXLfile);
workbook := XLApp.workbooks[1];
sheet:=workbook.worksheets[1];
XLApp.ActiveCell.SpecialCells(xlLastCell).Select;
maxRow:=XLApp.ActiveCell.Row; //最大行数
for iRow:=3 to MaxRow-1 do // 循环次数为excel最大行数字-1，因为excel的第1行为ID name表头。
begin
qry1.Append ;
qry1.fieldByName('Qname').asString:=sheet.cells[iRow,1]; //导入
qry1.fieldByName('QPrice').AsFloat:=sheet.cells[iRow,2]; //导入
qry1.fieldByName('QQiDing').asString:=sheet.cells[iRow,3]; //导入
qry1.fieldByName('QTime').asString:=sheet.cells[iRow,4]; //导入
{ w:=(Sheet.cells[iRow,5].width)/3; //取得单元格宽度浮动 匹配用户插入的图片宽度，这里却要对比的单元格的三分之一
h:=(Sheet.cells[iRow,5].height)/3; //取得单元格高度浮动，匹配用户插入的图片高度
if (Sheet.Pictures(iRow).top>=Sheet.cells[iRow,5].top-h) and (Sheet.Pictures(iRow).top<=Sheet.cells[iRow,5].top+h) then//对比top和width
if (Sheet.Pictures(iRow).left>=Sheet.cells[iRow,5].left-w) and (Sheet.Pictures(iRow).left<=Sheet.cells[iRow,5].left+w) then
begin
Sheet.Pictures(iRow).Copy;
finally
Clipboard.Close;
end;
end; }
qry1.fieldByName('QLuJin').asString:=sheet.cells[iRow,6]; //导入
qry1.fieldByName('QYuanJia').AsFloat:=sheet.cells[iRow,7]; //导入
qry1.fieldByName('QMemo').asString:=sheet.cells[iRow,8]; //导入
end;
finally
if not VarIsEmpty(XLApp) then begin //释放对象
XLApp.displayAlerts:=false;
XLApp.ScreenUpdating:=true;
XLApp.quit;
end;
screen.Cursor:=crDefault;
end;