有朋友問如何將excel導入數據庫，這是我做的uniGUI項目中代碼，實現uniDBGrid導入數據庫的函數，因為用了kbmMW,所以你看到是將uniDBGrid導入kbmMWClientQuery,然后提交的ClientQuery到數據庫。共享了！
function ImportFromFile(aDataSet: TkbmMWClientQuery; aGrid: TUniDBGrid; aFileName: string): Boolean;
var
?

r, c, i: integer;
? // v: TCellValue;
? xls: TExcelfile;
begin
? aDataSet.DisableControls;
? xls := TXlsFile.Create(False);
? try
??? xls.Open(aFileName);
??? xls.ActiveSheet := 1;

??? for r := 2 to xls.RowCount do
??? begin
????? if not IsBlankRow(xls, r) then // 不是空行則填加
????? begin
??????? aDataSet.Append;
??????? for i := 0 to aGrid.Columns.Count - 1 do
??????? begin
????????? c := GetColByName(xls, aGrid.Columns[i].Title.Caption);
????????? if c <> -1 then
????????? begin
??????????? case aDataSet.FieldByName(aGrid.Columns[i].FieldName).DataType of
????????????? ftDateTime, ftDate:
??????????????? aDataSet.FieldByName(aGrid.Columns[i].FieldName).AsDateTime := xls.GetCellValue(r, c).ToDateTime(False);
??????????? else
????????????? aDataSet.FieldByName(aGrid.Columns[i].FieldName).AsString := xls.GetCellValue(r, c)
??????????????? .ToString.Replace(' ', '').Replace('''', '');
??????????? end;
????????? end;
??????? end;

??????? aDataSet.Post;
????? end;
??? end;
??? result := aDataSet.Resolve;

? finally
??? aDataSet.EnableControls;
??? xls.Free;
? end;
end;

總結

以上是生活随笔為你收集整理的uniDBGrid导入数据库（转红鱼儿）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。