cs_othland
Messages postés298Date d'inscriptionjeudi 18 décembre 2003StatutMembreDernière intervention 9 février 20101 18 nov. 2006 à 14:54
essaies cette portion de code!
///////////////////////
procedure TForm1.Button1Click(Sender: TObject);
var
ch:string;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('sp_helpdb');
ADOQuery1.open;
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
ch:=ch+', '+ADOQuery1.FieldByName('name').AsString;
ADOQuery1.Next;
end;
ShowMessage(ch);
end;
end.
////////////////////
au fait, la commande 'sp_helpdb' retourne une table qui contient les noms des bases disponibles ainsi que leurs caractéristiques!!
______________________
Ottomané!