delphi中如何将listbox中数据存入数据库

[wslf111]

delphi中如何通过点击确认出库将listbox中数据存入数据库，如图所示，依次是模号=mh，数量=sl，单位=dw，仓库=ck。

[luxuewei5214]

用个for循环，一行行的执行sql语句，或者写好存储过程传参数都行

[yct0605]

procedure TForm1.ListBox1Click(Sender: TObject);
var
  i:Integer;
begin
  for i:=0 to ListBox1.Items.Count-1 do
    ShowMessage(ListBox1.Items[ListBox1.ItemIndex]);{循环取出每条数据，保存到数据库中}
end;

[yct0605]

上面有点问题，从新发一个

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
  mh,sl,dw,ck:string;
begin
  for i:=0 to ListBox1.Items.Count-1 do
  begin
    mh:=ListBox1.Items[i];
    sl:=ListBox2.Items[i];
    dw:=ListBox3.Items[i];
    ck:=ListBox4.Items[i];
    //保存到数据库 inset into zhongjian values(mh,sl,dw,ck);
  end;
end;

[wslf111]

引用 3 楼 yct0605 的回复:

上面有点问题，从新发一个

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
  mh,sl,dw,ck:string;
begin
  for i:=0 to ListBox1.Items.Count-1 do
  begin
    mh:=ListBox1.Items[i];
    sl:=ListBox2.Items[i];
    dw:=ListBox3.Items[i];
    ck:=ListBox4.Items[i];
    //保存到数据库 inset into zhongjian values(mh,sl,dw,ck);
  end;
end;

引用 3 楼 yct0605 的回复:

上面有点问题，从新发一个

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
  mh,sl,dw,ck:string;
begin
  for i:=0 to ListBox1.Items.Count-1 do
  begin
    mh:=ListBox1.Items[i];
    sl:=ListBox2.Items[i];
    dw:=ListBox3.Items[i];
    ck:=ListBox4.Items[i];
    //保存到数据库 inset into zhongjian values(mh,sl,dw,ck);
  end;
end;

[wslf111]

引用 3 楼 yct0605 的回复:

上面有点问题，从新发一个

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
  mh,sl,dw,ck:string;
begin
  for i:=0 to ListBox1.Items.Count-1 do
  begin
    mh:=ListBox1.Items[i];
    sl:=ListBox2.Items[i];
    dw:=ListBox3.Items[i];
    ck:=ListBox4.Items[i];
    //保存到数据库 inset into zhongjian values(mh,sl,dw,ck);
  end;
end;

我用的是adoquery怎么来写的？

[yct0605]

    //保存到数据库
  with adoquery1 do
   begin
     close;
     sql.text:='insert into table1 values(mh,sl,dw,ck)';
     sql.execsql;
   end;

[yct0605]

更正一下： with adoquery1 do begin close; sql.text:='insert into table1 values(mh,sl,dw,ck)'; execsql; end;

[lyhoo163]

var i,k:Integer;
    mh,sl,dw,ck,SQL,ID,ID1:string;
begin
  k:=100;
  DateTimetoString(ID1,'yymmddhhnnsszzz',now);
  for i:=0 to ListBox1.Items.Count-1 do
  begin
    k:=k+1;
    ID:=ID1+inttoStr(k);
    S1:=ListBox1.Items[i];
    S2:=ListBox2.Items[i];
    S3:=ListBox3.Items[i];
    S4:=ListBox4.Items[i];
    SQL:='INSERT INTO zhongjian(mh,sl,dw,ck,ID) VALUES('+
       #39+S1+#39+','+
       #39+S2+#39+','+
       #39+S3+#39+','+
       #39+S4+#39+','+
       #39+ID+#39+')';
    adoquery1.sql.text:=SQL;
    adoquery1.execsql;
  end;
end;

上述代码仅代参考: 表字段中就有主键ID，ADOQuery连接数据库的方式，不一样，代码有异。