Ver Mensaje Individual
  #2  
Antiguo 17-01-2012
Avatar de olbeup
olbeup olbeup is offline
Miembro
 
Registrado: jul 2005
Ubicación: Santiago de la Ribera (España)
Posts: 685
Reputación: 19
olbeup Va camino a la fama
Porque no utilizas TADOConnection para realizar la conexión, ésta es otra forma.
Código Delphi [-]
procedure TFP.Button1Click(Sender: TObject);
var
  Cnn: TADOConnection;
begin
  Cnn := TADOConnection.Create(nil);
    Cnn.ConnectionString :=  'DRIVER={MySQL ODBC 5.1 Driver};SERVER=192.168.1.9;test;USER=root;PASSWORD=123456;OPTION=3';
    Cnn.LoginPrompt := False;

  with TADOQuery.Create(nil) do
  begin
    Connection := Cnn;
    SQL.Add('SELECT * FROM T1');
    Open;
    Cnn.Close;
    Free;
  end;

  with TADOQuery.Create(nil) do
  begin
    Connection := Cnn;
    SQL.Add('SELECT * FROM T2');
    Open;
    Cnn.Close;
    Free;
  end;

  with TADOQuery.Create(nil) do
  begin
    Connection := Cnn;
    SQL.Add('SELECT * FROM T3');
    Open;
    Cnn.Close;
    Free;
  end;

  Cnn.Free;

  ShowMessage('OK');
end;
Un saludo.
__________________
Al hacer una consulta SQL, haz que los demás te entiendan y disfruten de ella, será tú reflejo de tú saber.
Responder Con Cita