Question

需要很多帮助。我插入数据后像dbgrid没有更新这里有很多问题。我需要多少个ado查询？使用param或不使用是更好的地方＆gt;谁能给我一些例子...

if (edit1.text='')  or (combobox1.text='') or (combobox2.text='') or(combobox3.text='') or(combobox4.text='')
then
  ShowMessage(' DATA BELUM LENGKAP' )
ELSE
  button2.enabled :=false;
datamodule1.adotable1.Open;
with datamodule1.ADOTable1 do
begin

      append;
      FieldByName('No_medrec').AsString := concat(Edit2.Text,'-',edit3.text);
      FieldByName('nama').AsString := edit1.Text;
      FieldByName('lama').AsString := combobox1.text;
      FieldByName('status').AsString :=combobox3.text;
      FieldByName('keterangan').AsString :=combobox2.text;
     FieldByName('tanggal_berobat').AsString :='';
     FieldByName('poli').AsString :=combobox4.text;
      Post;
         Showmessage('Data berhasil disimpan');
end;

我将adoquery1用于连接到dbgrid的datasource1 ...并使用adotable插入数据....

Answer 1

如果您的dbgrid已连接到adoquery1但您通过adotable1插入数据，则在调用adoquery1.Refresh之前，您将看不到更改。但是您不需要使用adotable1来执行插入 - 您可以通过插入adoquery1来执行它们，假设adoquery1和adotable1使用相同的Sql。

Delphi 7用mysql数据库（LAN）使用ado

1 个答案: