insert into openrowset('MICROSOFT.JET.OLEDB.4.0','dBase III;DATABASE=H:','select * from data.dbf') select * from JESS.dbo.data資料庫查詢分析器可以運行
但Delphi中報錯
uj5u.com熱心網友回復：
你得把你的運行環境說清楚，大家才好給建議DELPHI的運行環境，使用的控制元件
資料庫端的版本？MSSQL2K，2K5，2K8？
uj5u.com熱心網友回復：
還有的是報錯？報了什么錯誤？截圖或者文字說明一下uj5u.com熱心網友回復：
procedure TForm_ChangCSVToDBFF.N1Click(Sender: TObject);
var
llist,BBList:TStringList;
i,j:Integer;
Fname,Path:string;
begin
self.OpenDialog1.Title :='打開CSV檔案';
Self.OpenDialog1.FileName:='*.CSV';
Self.OpenDialog1.Filter :='CSV檔案(*.CSV)|*.CSV|所有檔案(*.*)|*.*';
if Self.OpenDialog1.Execute then
begin
Self.StatusBar1.Panels[1].Text :=Self.OpenDialog1.FileName;
Self.SaveDialog1.Title :='保存DBF為...';
Self.SaveDialog1.DefaultExt:='DBF';
Self.SaveDialog1.Filter :='dDBASE檔案(*.DBF)|*.DBF|所有檔案(*.*)|*.*';
Fname :=ExtractFileName(Self.OpenDialog1.FileName);
Fname:=ChangeFileExt(Fname,'');
Self.SaveDialog1.FileName:=Fname+'.dbf';
if Self.SaveDialog1.Execute then
begin
Fname:=ExtractFileName(Self.SaveDialog1.FileName);
Path :=ExtractFilePath(Self.SaveDialog1.FileName);
llist:=TStringList.Create;
llist.LoadFromFile(Self.OpenDialog1.FileName);
BBList:=TStringList.Create;
BBList.Delimiter:=',';
Self.Table1.Active :=False;
Self.Table1.DisableControls;
Self.Table1.DatabaseName:=Path;
Self.Table1.TableName:=Fname;
Self.Table1.TableType :=ttDbase;
Self.Table1.FieldDefs.Clear;
Self.Table1.IndexDefs.Clear;
BBList.DelimitedText:=llist.Strings[0];
Self.Table1.FieldDefs.Add(BBList[0],ftInteger,0,True);
for i:=1 to BBList.Count-1 do
begin
Self.Table1.FieldDefs.Add(BBList[i],ftFloat,0,True);
end;
Self.Table1.CreateTable;
Self.Table1.Active :=True;
Self.ProgressBar1.Min:=0;
Self.ProgressBar1.Max :=llist.Count -1;
for i:=1 to llist.Count-1 do
begin
Self.Table1.Append;
BBList.DelimitedText:=llist.Strings[i];
Self.Table1.Fields[0].AsInteger :=StrToInt(BBList[0]);
for j:=1 to BBList.Count-1 do
begin
if BBList[j]<>'' then
begin
Self.Table1.Fields[j].AsFloat:=StrToFloat(BBList[j]);
end else
begin
Self.Table1.Fields[j].Value:=-9999;
end;
end;
Self.Table1.Post;
Self.ProgressBar1.Position :=i;
end;
Self.Table1.EnableControls;
Self.ProgressBar1.Position :=0;
llist.Free;
BBList.Free;
end;
end;
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/64652.html
標籤：數據庫相關
上一篇：delphi如何通過sendMessage將Form2中的onMouseMove傳遞到Form1的Caption