On 23 Mai, 19:39, "Josef Templ" <Josef.Te...@[EMAIL PROTECTED]
>
wrote:
> aaah, you are using 'async' mode.
> Don't use it. It makes everything much more
> complicated and in 99.9 % it is not required at all.
>
> - JT
>
> "heli" <sch...@[EMAIL PROTECTED]
> schrieb im
Newsbeitragnews:1179941563.032866.238760@[EMAIL PROTECTED]
>
> > 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
thank you very much
Helmut
|
