Re: Dialog.Update(table) does not work

On 23 Mai, 09:14, "Josef Templ" <Josef.Te...@[EMAIL PROTECTED]
>
wrote:
> are you sure?
> It works perfectly for me.
> I have tried it under BB 1.6 RC and BB 1.5.
>
> BTW, in case you post an example please also include
> the GUI rsrc file.
>
> - JT
>
> "schrei" <sch...@[EMAIL PROTECTED]
> schrieb im
Newsbeitragnews:4652ce85$0$3815$5402220f@[EMAIL PROTECTED]
>
> > Hello,
>
> > I made a simple sql database program.
> > On the form i inserted a SqlControls.Table object, which i linked to
> > a 'table:SqlDB.Table' Object.
>
> > If i do a test, the result of a sql select statment, has no effect to
the
> > SqlControl object on the form. But if i delete and insert the
SqlControl
> > on the form again, the SqlControl works.
>
> > Do i make something wrong, or is that a bug?
>
> > Here the source code:
>
> > MODULE Test;
> > IM****T Dialog, Views, TextModels, TextControllers, SqlDB, SqlControls;
>
> > VAR statement*: ARRAY 1024 OF CHAR;
> >     table*: SqlDB.Table; (* anchor for database *)
>
> > PROCEDURE Execute*;
> > VAR res: INTEGER; db: SqlDB.Database;
> >     id, pwd, database, driver: ARRAY 32 OF CHAR;
> > BEGIN
> >   id := ""; password := "";
> >   database := "Test Database";
> >   driver := SqlOdbc3";
> >   IF table = NIL THEN
> >     SqlDB.debug:=TRUE;
> >
SqlDB.OpenDatabase(driver,id,pwd,database,SqlDB.async,SqlDB.showErrors,db,res);
> >     table := db.NewTable();
> >   END;
> >   table.Exec(statement);
> >   Dialog.Update(table); END Execute;
>
> > BEGIN
> > END Test.
>
> > Yours sincerely
> > Helmut


thanks for the answer!
I tried it also with BB 1.6 and 1.5

After a restart of BB and reload of the GUI, each executed select
returns no records in the SQLControl. But if i close the GUI and open
the GUI again, the records are displayed immediately.

This is the GUI:

StdCoder.Decode ..,, ..XH....
3Qw7uP5PRPPNR9Rbf9b8R79FTvMf1GomCrlAy2xhX,Cb2x
 
hXhC6FU1xhiZiVBhihgmRiioedhgrZcZRiXFfaqmSrtuGfa4700zdGrr8rmCLLCJuyKtYcZRiX
 7.2.s,6O7.,k,
5TWyql.bnayKmKKqGomC5XzET1.PuP.MHT9N9ntumaU2,CJuyKtQC98P9PP7O
 NbXmb.2.oq1k2ELD.,6.,U0eFTfQPfJHPNCbHZiYpedhgrZ6MwBuPZ1QCh0708T,U..w.
2f1U.
 2U1eFTfQqorG4bndMHT9N9HWUl1UnNHEWUmr.
6.gh0E3km8.,6.,.3oVyKrIijZhnpZEhin3h0
 hioZijph2hgnRAXzE.QcjphoV2hgnFtD.
2.e32.822U2Q7HntY89ntYCRlW2D9nlgi.YC9H.gc
 .2DQA.,E.0.U,.,6EnM.0oA4UURy9M13P08ssD2ktMMV9RHvPR9F91u.
2.842.e22U2.Y8QCd1
 bHuAAd1PnmoBd1bHu...,.U,.,kLqU.B1WrjPVEah1cUXzE.ocdhggZg2hgn,E.
6I6.6C6.G.E
 ektYCR,AAkq.E..U,.,kL6.99,WquyYrpv7cUCJuGqdCKtyKqmqm8rtuGf.
2.5.0.33D.J2,6.
 
8cHBigRcjpho,Gpk8KqKKWKqtMwbOQN1.5uPU2,Z50E..Ud.,kZaqtGpmCLuuGu4Klma.U..I3
 ,DX1.0.2eHJ.
6...z,nQv2sJY,xftTGbLL92E0.cUO2Coru4YBoZHZC5uPR1EWKqt2Ulr6..bf
 95uP.Y62.5011Z1cQ...sQR,.G20EtH.0..M0E.I.
6.3M.Vfl2cNk0U.M.E.ErnOcobww03Qw7
 0.50..h.0..2,2..2kLRCNN65J.nT32kwL,,sKFHKHGA,YV1...
 --- end of encoding ---

And here the source module:

MODULE KisTest;
	IM****T Dialog, Views, TextModels, TextControllers, SqlDB,
SqlControls, Log;

VAR
	statement*: ARRAY 1024 OF CHAR;

	table*: SqlDB.Table;	(* anchor for database *)

	PROCEDURE Execute*;
	VAR res: INTEGER; db: SqlDB.Database;
   		id, password, database, driver: ARRAY 32 OF CHAR;
	BEGIN
		id := ""; password := ""; database := "Test Database"; driver :=
"SqlOdbc3";
		IF table = NIL THEN
			SqlDB.debug:=TRUE;
			SqlDB.OpenDatabase(driver, id, password, database,SqlDB.async,
SqlDB.showErrors,db,res);
			table := db.NewTable();
		END;
		table.Exec(statement);
		Dialog.Update(table);
	END Execute;

BEGIN

END KisTest.

Yours sincerely
Helmut