adoconnnection1.begintrans;
with adoquery1 do
begin
Sql.Text := 'insert into table(a, b) values(:a, :b)';
Parameters.ParamByName('a').value :='a';
Parameters.ParamByName('b').value :='b';
ExecSql;
end;
adoconnnection1.committrans;adoquery1与adoconnection 连接都正确
单步执行,进行了向数据库插入操作,但就是插入不到数据库中,为什么?
数据库用oracle
还要其他设置不?
begin
close;
sql.clear;
Sql.Text := 'insert into table(a, b) values(:a, :b)';
Parameters.ParamByName('a').value :='a';
Parameters.ParamByName('b').value :='b';
ExecSql;
end;
if Not adoconnection1.Connected then
adoconnection1.Connected := True;
adoconnection1.begintrans;
with adoquery1 do
begin
Close;
Sql.Clear;
Sql.Add('insert into tbl(a, b) values(:a, :b)');
Parameters.ParamByName('a').value :='a';
Parameters.ParamByName('b').value :='b';
ExecSql;
end;
adoconnection1.committrans;
DataMDataBase.ADOConnection1.BeginTrans;
with TadoQuery.Create(self) do
begin
Connection := DataMDataBase.ADOConnection1;
close;
sql.Clear;
Sql.Text := 'insert into table(a, b) values(:a, :b)';
Parameters.ParamByName('a').value :='a';
Parameters.ParamByName('b').value :='b';
ExecSql;
end;
DataMDataBase.ADOConnection1.CommitTrans;
但是不行,我想是不是需要刷新参数?
Prepare一下?看不出有什么问题!