Ver Mensaje Individual
  #5  
Antiguo 18-09-2006
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Reputación: 27
delphi.com.ar Va por buen camino
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!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita