delphi+sql做系统,如图,当我点击'添加'后,DBgrid表并不能更新信息,怎么样才行?
这是我的添加代码:TrywithADOQuery2dobeginClose;SQL.Clear;SQL.Add('insert资产明细表values(:a,:b,:c,:...
这是我的添加代码:
Try
with ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('insert 资产明细表 values(:a,:b,:c,:d)');
Parameters.ParamByName('a').Value := Trim(Edit1.Text);
Parameters.ParamByName('b').Value := datetimepicker1.date;
Parameters.ParamByName('c').Value := Trim(ComboBox1.Text);
Parameters.ParamByName('d').Value := Trim(edit2.Text);
ExecSQL;
end;
Application.MessageBox('添加成功。','提示',64);
Except
Application.MessageBox('系统出错。','提示',64);
Close;
end;
请高手指点,谢谢了,急!~~~ 展开
Try
with ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('insert 资产明细表 values(:a,:b,:c,:d)');
Parameters.ParamByName('a').Value := Trim(Edit1.Text);
Parameters.ParamByName('b').Value := datetimepicker1.date;
Parameters.ParamByName('c').Value := Trim(ComboBox1.Text);
Parameters.ParamByName('d').Value := Trim(edit2.Text);
ExecSQL;
end;
Application.MessageBox('添加成功。','提示',64);
Except
Application.MessageBox('系统出错。','提示',64);
Close;
end;
请高手指点,谢谢了,急!~~~ 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询