求助，如何把文本文件中的数据内容倒入到数据库（sql server） 我做delphi程序，上一组人作出的结果放在文本文件中，请问我该如何将其倒入到数据库中，求java 高手们解答，小弟再次现谢过了。

另外请问高手，我delphi要用到雷达图（玫瑰图），请问这个组件从哪儿能下载，以便我能在编程时 使用 雷达图。

可能只有自己写了

？是要用程序来实现吗？
ＳＱＬ　ＳＥＲＶＥＲ　里有　数据转换服务　可以做到．ＤＴＳ

SQL的导入导出支持许多文件类型，其中包括文本文件，但是文本文件必须满足格式要求，一般是一行一条记录，第一行为标题，字段之间以逗号分隔。
如果是固定字段宽度的，可以用 EXCEL 打开文本文件，转为 EXCEL 再导入SQL。

◆在表单上添加一个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;

不过在导入之前要先将文本内容读入到Richedit1中