如何把listbox.items 的各条内容分别写到数据表某一个字段的各条记录中？ (100分)

B

belphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #1

listbox.items的内容：
X200205001
X200205002
X200205003
....
现要求把 单据号 X200205001，X200205002，X200205003，......写入
表T_xsls的xsdjh(单据号)字段中，每条记录中该字段写一个单据号

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #2

详细点

 

B

belphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #3

listbox.items的内容：
X200205001
X200205002
X200205003
....
现要求把 单据号 X200205001，X200205002，X200205003，......写入
表T_xsls的xsdjh(单据号)字段中，每条记录中该字段写一个单据号

 

L

lither

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #4

for i=0 to ListBox.Items.Count-1 do
begin
T_xsls.Append;
T_xsls.fieldbyname('xsdjh').asstring:=ListBox.Items
end;

 

S

scy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #5

procedure TForm1.Button2Click(Sender: TObject);
var
i:byte;
strsql:string;
begin
for i:=0 to listbox1.items.count-1 do
begin
sqlstr:='insert into T_xsls(xsdjh) values('''+listbox1.item+''')';
query1.close;
query1.sql.clear;
query1.sql.sql(strsql);
query1.execsql;
end;

end;

 

D

dfan2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #6

试一试下面的代码。别忘了给我给分呀！呵呵呵。。。
for i := 0 to ListBox.Count - 1 do
begin
TempADOQuery.Close;
TempADOQuery.SQL.text:='insert into T_xsls (xsdjh) values ('''+listbox.Items.Text+''')';
TempADOQuery.ExecSQL;
end;

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-08

• #7

procedure TForm1.Button2Click(Sender: TObject);
var
i:byte;
begin
with T_xsls do begin
open;
edit;
for i:=0 to listbox1.items.count-1 do
begin
append;
fields[1].AsString:=listbox1.Items;//假定是xsdjh字段
end;
post;
close;
end;

 

Z

zhongtu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-09

• #8

procedure TForm1.Button1Click(Sender: TObject); //append
var
i:byte;
begin
with T_xsls do begin
open;
edit;
for i:=0 to listbox1.items.count-1 do
begin
append;
fields[1].AsString:=listbox1.Items;//假定是1字段
end;
post;
close;
end;

 

B

belphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-09

• #9

多人接受答案了。