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
...
finally
CoUninitialize;
end;
...
Saludos!