On Tuesday 14 March 2006 00:38, Michael Van Canneyt wrote:
> On Mon, 13 Mar 2006, johnf wrote:
> > What I am attempting to do is re-use a TPQConnection with each form. I'm
> > thinking that it is best to have only one connection open to the database
> > engine (postgres). I placed the TPQConnection in a datamodule. Below
> > is some code from my login form:
> > procedure TForm3.Button1Click(Sender: TObject);
> > begin
> > data3.DataModule1.PQConnection1.UserName:=self.Edit1.Text;
> > data3.DataModule1.PQConnection1.password:=self.edit2.text;
> > data3.DataModule1.PQConnection1.HostName:=self.Edit3.text;
> > data3.DataModule1.PQConnection1.databasename:='Real-Accounting';
> > try
> > data3.DataModule1.PQConnection1.Open;
> >
> > self.Close;
> > except
> > showmessage('Sorry could not connect to the database');
> > self.close;
> > end;
> >
> > end;
> > This makes a connection. At least I think so! I also set the
> > keepconnection:=true. So I think the connection is open.
> >
> > Now in another form (unit2.pas) I added a TSQLTransaction and TSQLQuery.
> > I want to set the properties of DB objects dynamically. So I then
> > attempt the following:
> > procedure TForm2.FormCreate(Sender: TObject);
> > begin
> > self.SQLTransaction1.DataBase:= data3.DataModule1.PQConnection1;
> > try
> > self.DataSource1.DataSet := SQLQuery1;
> > SQLQuery1.SQL.Text := 'Select * from arcust';
> > SQLQuery1.Open;
> >
> > finally
> >
> > SQLQuery1.Close;
> > end;
> > end;
> >
> > But the 'SQLQuery1.Open' fails.
> > Error: database not assigned.
> >
> > What am I doing wrong?
>
> You must set the database property of your SQLQuery1:
>
> self.SQLTransaction1.DataBase:= data3.DataModule1.PQConnection1;
> SQLQuery1.Database:=data3.DataModule1.PQConnection1;
>
> Michael.
Thanks but it did not work. I added the following:
self.SQLQuery1.DataBase:= data3.DataModule1.PQConnection1;
self.SQLQuery1.Transaction :=data3.DataModule1.SQLTransaction1;
self.SQLQuery1.DataBase.DatabaseName :='Real-Accounting';
I still get 'Database not assigned'. I'm beginning to wonder if after making
the connection I loose the connection because it goes out of scope. Since I'm
a newbie - I really don't know what I'm doing. Is there a better way to
present this question?
John
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
