Error Lost Connection when Exit Form (Tmyquery - Fatchall=false)
Posted: Fri 19 Apr 2013 10:29
I have a problem when exit form , because the object Tmyquery, on select properties patchall = false. under his following query
sds_view_mst_kend.Close;
//sds_view_mst_kend.FetchAll := False;
sds_view_mst_kend.SQL.Text := 'select * from mst_kendaraan';
sds_view_mst_kend.FetchAll := False;
sds_view_mst_kend.FetchRows := 5;
dbg_view_mst_kend.DataSource :=ds_view_mst_kend;
sds_view_mst_kend.Open;
then the following script in the form exit button
if LibMY.GetMessage_NY('sure will exit ...?') = True then
begin
c_db.Close;
Action:=caFree;
end
else
Action:=caNone;
please help me...
Thank's
Azis
sds_view_mst_kend.Close;
//sds_view_mst_kend.FetchAll := False;
sds_view_mst_kend.SQL.Text := 'select * from mst_kendaraan';
sds_view_mst_kend.FetchAll := False;
sds_view_mst_kend.FetchRows := 5;
dbg_view_mst_kend.DataSource :=ds_view_mst_kend;
sds_view_mst_kend.Open;
then the following script in the form exit button
if LibMY.GetMessage_NY('sure will exit ...?') = True then
begin
c_db.Close;
Action:=caFree;
end
else
Action:=caNone;
please help me...
Thank's
Azis