Ayuda con conexion ADO en aplicacion de consola
 

Que tal, necesito hacer una conexion a un servidor de bases de datos remoto usando un ADO string, desde una aplicacion de consola. Alguien me puede enseñar como hacerla? La aplicacion ya la tengo, solo necesito crear la conexion pero no se como. El servidor al que trato de accesar es un servidor mySQL y estoy intentandolo con Delphi 5. Gracias por cualquier ayuda que puedan darme.

puedes crear un datamodule para poner ahi las conexiones y querys que necesites, la otra es que lo hagas en tiempo de ejecucion

ayuda
 

Alguien podria enseñarme a hacer la conexion en tiempo de ejecucion usando un ADO string? el problema es que no se como.

ayuda
 

Creo que no me he explicado bien, llevo tiempo pidiendo ayuda pero no la he conseguido. Necesito aprender acerca de como crear conexiones ADO en delphi, en especial como hacerlas en una aplicacion de consola. Hay alguien que pueda enseñarme como crearlas o saben la direccion de algun tutorial para aprender de eso? espero que puedan ayudarme. Mil gracias de antemano.

Te transcribo un fragmento de código de una de mis aplicaciones en modo consola, que crea una conexión ADO:

Código Delphi [-]
  with TADOConnection.Create(nil) do
    try
      with AScript.ADOConfig do

        ConnectionString := 'Provider=' +  Str64(Driver) + ';' +
                            'Data Source=' + Str64(Server) + ';' +
                            'Initial Catalog=' + Str64(DefaultDatabase) + ';' +
                            'Persist Security Info=True;' +
                            'User ID=' + Str64(UserId) + ';' +
                            'Password=' + Str64(Password);
      Open;

      BeginTrans;
      try
        Execute(AScript.Text, iRecAffected);
        CommitTrans
      except
        RollbackTrans;
        raise;
      end;

      Close;
    finally
      Free;
    end;

Previo a este código, es necesario ejecutar ColInitialize:

Código Delphi [-]
uses 
  ActiveX;

begin
  CoInitialize(nil);
  try
      {Crea la conexión ADO}...
  finally
    CoUninitialize;
  end;
...

Saludos!