找出D盘1206目录下的所有txt文件,并用循环将其导入数据库中: K := FindFirst('d:\1206\'+ '*.txt', faAnyFile, vSearchRec); while K = 0 do begin if Pos(vSearchRec.Name, '..') = 0 then begin adoquery1.Close; adoquery1.SQL.Clear; str := vSearchRec.Name;//获取文件名 我希望在这里插入语句实现把这个文本文件中不规范的数据删除,或者是查找某条数据并删除它,文本文件的内容是0120051112075410002这种格式的记录.求助 adoquery1.SQL.Add('bulk insert AIS20050919163509..hl_employee from ''d:\1206\'+ str+''' with (DATAFILETYPE = ''char'',FIELDTERMINATOR = ''\n'',ROWTERMINATOR = ''\n'')');//导入数据库 adoquery1.ExecSQL; // showmessage(adoquery1.SQL.Text); K := FindNext(vSearchRec); end; end; FindClose(vSearchRec);
期待 SQL Server 啊 努力 奋斗-----------------------------------------------------
K := FindFirst('d:\1206\'+ '*.txt', faAnyFile, vSearchRec);
while K = 0 do
begin
if Pos(vSearchRec.Name, '..') = 0 then
begin adoquery1.Close;
adoquery1.SQL.Clear;
str := vSearchRec.Name;//获取文件名
我希望在这里插入语句实现把这个文本文件中不规范的数据删除,或者是查找某条数据并删除它,文本文件的内容是0120051112075410002这种格式的记录.求助 adoquery1.SQL.Add('bulk insert AIS20050919163509..hl_employee from ''d:\1206\'+ str+''' with (DATAFILETYPE = ''char'',FIELDTERMINATOR = ''\n'',ROWTERMINATOR = ''\n'')');//导入数据库
adoquery1.ExecSQL;
// showmessage(adoquery1.SQL.Text);
K := FindNext(vSearchRec); end;
end;
FindClose(vSearchRec);