求excel 匯入sql 工具原始碼，
平時有些作業是表格的，做起來麻煩，還是放在資料庫里方便操作。。
分不夠再加
uj5u.com熱心網友回復：
這是資料庫的基本操作：1、通過XLSReadWriteII4控制元件打開讀取EXCEL表，并資料讀取資料。讀取時指定行、列的Cell。
2、將讀入陣列。
2、將陣列通過SQL陳述句寫入（插入DBGrid）指定表中。
代碼大約如此，提示：
for Row := 6 to XLS.Sheets[0].LastRow-1 do
begin
First:=Row;
if (XLS.Sheets[0].AsString[0,First]<>'') and (XLS.Sheets[0].AsString[1,First]<>'') and
(XLS.Sheets[0].AsString[1,First]<>'') and (XLS.Sheets[0].AsString[17,First]='0') then // 正票
begin
if First=(XLS.Sheets[0].LastRow-1)
then begin
Last:=First;
end
else begin
if (XLS.Sheets[0].AsString[0,First+1]<>'') and (XLS.Sheets[0].AsString[1,First+1]<>'') and
(XLS.Sheets[0].AsString[1,First+1]<>'') and (XLS.Sheets[0].AsString[17,First+1]='0')
then begin
Last:=First;
end
else begin
Last:=First;
repeat
Last:=Last+1;
until (XLS.Sheets[0].AsString[9,Last]='小計') or (Last>=XLS.Sheets[0].LastRow-1);
end;
end;
A[Top,0]:=XLS.Sheets[0].AsString[6,First];
A[Top,1]:=XLS.Sheets[0].AsString[0,First];
A[Top,2]:=XLS.Sheets[0].AsString[1,First];
A[Top,3]:=XLS.Sheets[0].AsString[2,First];
A[Top,4]:=XLS.Sheets[0].AsString[9,Last]; // 小計
.....
Top:=Top+1;
end;
end;
XLS.Free;
DateTimetoString(ID1,'yyyyMMddnnss',Now);
for i:=0 to Top-1 do
begin
ID:=ID1+IntToStr(100+i);
with DBGridEh1.DataSource.DataSet do
begin
Append;
j:=Pos(' ',A[i,0]);
S:=Copy(A[i,0],1,J-1);
dDate:=StrToDate(S);
FieldByName('日期').asString:=FormatdateTime('yyyy-MM-dd',dDate);
FieldByName('發票代碼').asString:=A[i,1];
FieldByName('發票號碼').asString:=A[i,2];
FieldByName('受票人名稱').asString:=A[i,3];
else FieldByName('收入方式').asString:='現金';
FieldByName('開票人').asString:=A[i,30];
FieldByName('專案1').asString:=A[i,6];
FieldByName('金額1').asString:=A[i,7];
FieldByName('專案2').asString:=A[i,8];
FieldByName('金額2').asString:=A[i,9];
FieldByName('ID').asString:=ID;
Post;
end;
end;
uj5u.com熱心網友回復：
用AdoDataSet控制元件，可以打開excel檔案的，接下來操作就是記錄集的操作了。連接串是：
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\test.xls;Extended Properties="Excel 8.0;HDR=YES;IMEX=1";Persist Security Info=False
uj5u.com熱心網友回復：
如果資料庫是sql server，那處理好excel的格式，用ssms直接往里導。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/67835.html
標籤：數據庫相關
上一篇：請教 ，delphi中怎么通過HTTP訪問，從服務器請求資料，提交資料。
下一篇：base64轉成png圖片問題