Additional
dbCAP
AnyDAC
ThinDAC
NCOCI8
Topic: Getting databases
Getting databases
Posted: 2007/08/04 16:15
 
I have DataSource, DBGrid and ADQuery1.

How do I use them to display all databases I have after I connect in DBGrid ?

I tried to use:

  adquery1.Close; adquery1.sql.clear; adquery1.SQL.Add('SHOW DATABASES;'); adquery1.execsql;



but it says:

  Cannot execute command returning row set or metainfo



What should I do in this case ?

Post edited by: MaestroS, at: 2007/08/04 16:16
Re:Getting databases
Posted: 2007/08/06 04:38
 
Hello

Replace adquery1.execsql with adquery1.Open.

Regards,
Dmitry
Re:Getting databases
Posted: 2007/08/07 07:34
 
But look.

With this code

 try adquery1.Close; adquery1.sql.clear; adquery1.ObjectView := true; adquery1.SQL.Add('SHOW DATABASES;'); adquery1.open; while adquery1.Eof do begin     allistbox1.items.Add(adquery1.fieldbyname('Database').asstring);     adquery1.Next; end; except allistbox4.Items.add('Error while receiving databases...'); end;



And this settings:

  //adconnection1.Params.Add('Database='+aledit4.text);             adconnection1.Params.Add('User_Name='+aledit2.text);             adconnection1.Params.Add('Password='+aledit3.text);             adconnection1.Params.Add('Host='+aledit1.text);               adconnection1.Connected := true;



It doesn't work...

No errors occur during connecting and executing "SHOW DATABASES;", but also no databases are displayed in ALListbox1

It works only when I use DBGrid, but I want to do it with ALListbox :/

What's going on ?

Post edited by: MaestroS, at: 2007/08/07 07:37
Re:Getting databases
Posted: 2007/08/07 09:05
 
Replace

 while adquery1.Eof do begin


with:

 while not adquery1.Eof do begin