你的query1是什么啊,是否应该改成
query1:=TQuery.Create(Owner);with query1 do
begin
.....
end;
query1:=TQuery.Create(Owner);with query1 do
begin
.....
end;
解决方案 »
- 各位高手这代码怎么翻译成C++
- 新手求助
- 哭求高手:怎样在Delphi中从数据集中得到某列的值,而这个列不是原有数据库中的,使用Fieldbyname老是出错
- 如何使自己编写的应用程序浮于其它程序的上方?
- 2k下重起机器的源码实现,解决立即给分
- 有谁用过ValueListEditor控件
- 100分问题!
- 小妹初学:请问打开我的EXE,窗体上面的标签和图画框不见了,最小化后,再打开才显示.
- cxLookUpComboBox的使用问题,怎么取得所选内容对应数据集的值呢?
- 想写个dll库,里面会使用TClientSocket,但不用TFORM怎样使用?
- 请看一下我的sql语句,问题出在哪里?
- 一个在notes中调用DELPHI编的DLL的问题,急啊
with tquery1.create(self) do
with TQuery.Create(nil) do try
// DatabaseName := ?;
finally
Free;
end;No.2
with Query1 do try
// Close;
exceptend;
sql.clear;
你第二次执行的时候, SQL已变成
select max(qt_id)+1 from qt select max(qt_id)+1 from qt
你说有没有错?????
var
MaxId: Integer;
begin
Table1.Insert;
with Query1 do try
Close;
SQL.Text := 'select max(qt_id)+1 from qt';
Open;
MaxId := Fields[0].AsInteger;
except
MaxId := -1;
end;
DBEdit5.Filed.DataSet.Edit;
DBEdit5.Filed.AsInteger := MaxId;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
MaxId: Integer;
begin
Table1.Insert; MaxId := -1;
with TQuery.Create(nil) do try
DatabaseName := Tabel1.DatabaseName;
SQL.Text := 'select max(qt_id)+1 from qt';
Open;
MaxId := Fields[0].AsInteger;
finally
Free;
end; DBEdit5.Filed.DataSet.Edit;
DBEdit5.Filed.AsInteger := MaxId;
end;
然后还要指定DATABASENAME啊。