Este es un extracto del código que yo utilizo. Debes sustituir las palabras clave (en negrita) por los valores apropiados (En NombreMaquina debes ponerlo sin \\ ;Ejemplo: NombreMaquina=SERVIDORBD):
Código Delphi
[-]
varConexion := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=usuario;Password=clave;Initial Catalog=NombreBaseDatos;Data Source=NombreMaquina'
ADOConexion := TADOConnection.Create(nil);
ADOConexion.Close;
ADOConexion.CommandTimeout := 30;
ADOConexion.ConnectionTimeout := 15;
ADOConexion.CursorLocation := clUseClient;
ADOConexion.IsolationLevel := ilCursorStability;
ADOConexion.LoginPrompt := False;
ADOConexion.ConnectionString := varConexion;
ADOQuery := TADOQuery.Create(nil);
try
try
ADOConexion.Open;
ADOQuery.Connection := ADOConexion;
except
ADOQuery.Close;
ADOConexion.Close;
end;
ADOQuery.Close;
ADOQuery.SQL.Clear;
strSQL := 'Select ......';
ADOQuery.SQL.Add(strSQL);
ADOQuery.Open;
if ADOQuery.RecordCount <> 0 then
while not ADOQuery.EOF do
begin
otener datos....;
ADOQuery.Next;
end;
ADOQuery.Close;
finally
ADOQuery.Free;
ADOConexion.Free;