Question

急急急急！！Delphi中如何将combobox中的选中值可完成对数据库的添加，保存，修改和删除

我尝试写了将combobox中选中值添加到数据库中，但是运行时提示有错。代码具体是什么还请大家指教，包括添加，修改，删除和保存的。我用了Ado连接access，其中有Adoquery1，DataSource。
我写的添加代码如下，当按按钮添加时触发。但是运行时出错，还请高手指点。
procedure TForm9.Button1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select provinceno from province');
adoquery1.SQL.Add('select schoolno from school');
adoquery1.Open;
adoquery1.Append;
adoquery1.SQL.Append('insert into testplace(tprovinceno)values(''+combobox1.text+'')');
adoquery1.SQL.Append('insert into testplace(tschoolno)values(''+combobox2.text+'')');
adoquery1.ExecSQL;
end;

Answer 1

with adoquery1 do
begin
Close;
sql.Clear;
sql.Add('select provinceno from province');
open;
Append;
FieldByName('provinceno').AsString:=combobox1.text;
post;
end;

Answer 2

语句写错了。

我给出一个示例，不知道你的代码是从哪里抄来的，太寒了。

procedure TForm9.Button1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select provinceno from province');
adoquery1.Open;
adoquery1.Append;
adoquery1.fieldbyname('tprovinceno').asstring:=combobox1.text;
adoquery1.post;
end;

Answer 3

('insert into testplace(tprovinceno)values(''+combobox1.text+'')');
改为
('insert into testplace(tprovinceno)values('''+combobox1.text+'')'');

用“代表‘