求助,如何把文本文件中的数据内容倒入到数据库(sql server) 我做delphi程序,上一组人作出的结果放在文本文件中,请问我该如何将其倒入到数据库中,求java 高手们解答,小弟再次现谢过了。
另外请问高手,我delphi要用到雷达图(玫瑰图),请问这个组件从哪儿能下载,以便我能在编程时 使用 雷达图。
求助,如何把文本文件中的数据内容倒入到数据库(sql server) 我做delphi程序,上一组人作出的结果放在文本文件中,请问我该如何将其倒入到数据库中,求java 高手们解答,小弟再次现谢过了。
另外请问高手,我delphi要用到雷达图(玫瑰图),请问这个组件从哪儿能下载,以便我能在编程时 使用 雷达图。
◆在表单上添加一个TRichEdit控件RichEdit1
◆在implementation后面定义三个函数
Function RegulateStr(aString:String;Sepchar:String):String;
var
i,Num:Integer;
Flag:Boolean;
MyStr,TempStr:String;
begin
Flag:=False;
Num:=Length(aString);
for i:=1 to Num do
begin
TempStr:=Copy(aString,i,1);
if TempStr<>SepChar then
begin
MyStr:=MyStr+TempStr;
Flag:=True;
end
else
if(Flag=True)then
begin
Mystr:=Mystr+TempStr;
Flag:=False;
end;
end;
if MyStr[Length(MyStr)]<>SepChar then
MyStr:=MyStr+SepChar;
RegulateStr:=MyStr;
end;
Function GetSubStr(var aString:string;SepChar:String):String;
var
Mystr:String;
//StrLen:Integer;
SepCharPos:Integer;
begin
//StrLen:=Length(aString);
SepCharPos:=Pos(SepChar,aString);
MyStr:=Copy(aString,1,SepCharPos-1);
Delete(aString,1,SepCharPos);
GetSubStr:=MyStr;
end;
Function GetSubStrNum(aString:String;SepChar:String):Integer;
var
i:Integer;
StrLen:Integer;
Num:Integer;
begin
StrLen:=Length(aString);
Num:=0;
for i:=1 to StrLen do
if Copy(aString,i,1)=SepChar then
Num:=Num+1;
GetSubStrNum:=Num;
end;
◆导入数据
procedure Tfrmsales.Button6Click(Sender: TObject);
var
vNString;
I,j:integer;
tempstring:string;
stringlist:tstringlist;
begin
//导入数据
Richedit1.Lines.LoadFromFile('Temp.txt');//假设文本文件为Temp.txt
with ADOquery1 do
begin
close;
sql.clear;
sql.Add('select * from product');
Open;
for i:=0 to RichEdit1.Lines.Count-1 do
begin
MyLine:=RegulateStr(Richedit1.Lines[i],Space);
Append;
for j:=1 to GetSubStrNum(MyLIne,Space) do
begin
fields[j].AsString:=GetSubStr(MyLine,Space);
end;
Post;
ADOQuery1.Next;
end;
end; end;