Question

这是把Delphi中的数据存入到数据库中的代码，运行时弹出关闭的数据库等字样，请帮帮看一下哪里出现了错误

procedure TForm2.Button1Click(Sender: TObject);begin with ADOQuery1 do begin ADOQuery1.Close; ADOQuery1.Open; ADOQuery1.Append; ADOQuery1.FieldByName('phone').AsString:=Edit4.Text; ADOQuery1.Fieldbyname('date_in').AsDateTime:=DateTimePicker3.Date; ADOQuery1.Fieldbyname('date_out').AsDateTime:=DateTimePicker4.date; ADOQuery1.Fieldbyname('customer_name').AsString:=Edit1.Text; ADOQuery1.Fieldbyname('customer_id').AsString:=Edit3.Text; ADOQuery1.Fieldbyname('hotel_name').AsString:=ComboBox6.Text; ADOQuery1.Fieldbyname('room_type').AsString:=ComboBox3.Text; ADOQuery1.Fieldbyname('customer_type').AsString:=Combobox1.Text; ADOQuery1.Post; end;end；

Answer 1

不知你界面有没有adocommection控件，如果没有拖上。拖到窗体上后设置好数据库连接，如果你告诉我连接不会设置的话，这程序你也别写了。

设置完连接后，把ADOQuery1与adocommection相连。要保证adocommection处于连接功成状态。然后再开始写如下程序:
procedure TForm2.Button1Click(Sender: TObject);
begin
ADOQuery1.sql.clear;
ADOQuery1.sql.text:='select * from 表名'; //这是你要进行操作的数据表
ADOQuery1.sql.open;
ADOQuery1.Append;
ADOQuery1.FieldByName('phone').AsString:=Edit4.Text;
ADOQuery1.Fieldbyname('date_in').AsDateTime:=DateTimePicker3.Date;
ADOQuery1.Fieldbyname('date_out').AsDateTime:=DateTimePicker4.date;
ADOQuery1.Fieldbyname('customer_name').AsString:=Edit1.Text;
ADOQuery1.Fieldbyname('customer_id').AsString:=Edit3.Text;
ADOQuery1.Fieldbyname('hotel_name').AsString:=ComboBox6.Text;
ADOQuery1.Fieldbyname('room_type').AsString:=ComboBox3.Text;
ADOQuery1.Fieldbyname('customer_type').AsString:=Combobox1.Text;
ADOQuery1.Post;
ADOQuery1.close;
end；
复制的你的代码，没有测试。功能完成后，可以把代码简化一下。

Answer 2

ADOQuery1
的adocommection是否打开了？

追问

怎么打开啊，都找不到adocommection

追答

找不到就新建一个