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

Question

listboxdelphi数据库

Answer 1

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

Answer 2

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

Answer 3

上面有点问题，从新发一个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;

Answer 4

我用的是adoquery怎么来写的？

Answer 5

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

Answer 6

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

Answer 7

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连接数据库的方式，不一样，代码有异。