rastreo de codigo.

[Yun-i]

hola foristas una pregunta podrian aydarme a ratreas este codigo?

Código Delphi [-]
procedure TdmRepDatos.ADOBDBeforeConnect(Sender: TObject);
var Coneccion: WideString; Programa: String;
begin
  Programa := ChangeFileExt(ExtractFileName(Application.ExeName),'');
  if not Assigned(WinReg) then winReg := TRegistry.Create;
  WinReg.RootKey := HKEY_LOCAL_MACHINE;
  if not WinReg.OpenKey('\Software\GrupoVRO\'+Programa, false) then
    ShowMessage('No existe información de la Empresa.  Llame al Administrador del Sistema para la Configuración.')
  else begin
    Coneccion := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog='+WinReg.ReadString('BaseDatos')+';Data Source='+WinReg.ReadString('Servidor');
    ADOBD.ConnectionString := Coneccion;
  end;
end;

desde ya muchas gracias

[Casimiro Notevi]

¿Y qué quieres que rastreemos?, ¿es una adivinanza?, ¿algún juego?...

[Yun-i]

olvidalo. GRacias...

[Casimiro Notevi]

Empezado por Yun-i

olvidalo. GRacias...

De nada, ya lo has solucionado, supongo

Deberías explicar algo sobre el tema, ya sabes, nuestra guía de estilo, para ayudar a otros que tengan el mismo problema.

[Yun-i]

sip antes de conectarme pregunta si esta en el registro de win.

el not fue el que me confundio

[[Al González]]

Yun-i:

Disculpa el sarcasmo de nuestro amigo Casimiro. Lo que sucede es que no queda muy claro lo que buscas. Por cada persona que responde a un mensaje hay varias decenas más que lo leen y estarían dispuestos a ayudar siempre que se comprenda lo que se pide.

Según se alcanza a distinguir en el código que pusiste, se trata de establecer una conexión ADO con base a información guardada en el Registro de Windows. A partir de ahí, dinos por favor cuál sería el problema, dificultad o inquietud que se te plantea.

Por cierto, un servidor jamás ha leído la famosa guía de estilo, pero con el tiempo vas tomando conciencia de lo importante que es detenerse a revisar lo que has escrito antes de oprimir el botón "enviar". Siempre bajo el sano ejercicio de ponerse en los zapatos de quienes lo van a leer, y sin flojear a la hora de dar detalles (la isla donde están los discos duros de Club Delphi es bastante grande, así que no te preocupes por una posible saturación*).

Esperamos tu respuesta.

Un abrazo.

Al González.

P.D.

Yun-i: Ahora veo que ya respondiste.

Casi: Gracias por el favor "privado" que me hiciste. El trabajo que los moderadores hacen fuera de los reflectores es también de gran importancia y debe ser reconocido.

* Contar con un respaldo en el continente y otro en América (en caso de que aún no se tengan), no vendría mal, por cualquier cosa que pudiera suceder.

[[newtron]]

Empezado por Al González

Por cierto, un servidor jamás ha leído la famosa guía de estilo

Aprovecho la ocasión para recomendarte que leas la guia de estilo. Gracias por tu colaboración.
(ya me sale casi como a los modes )

[[newtron]]

Empezado por Al González

Por cierto, un servidor jamás ha leído la famosa guía de estilo

Aprovecho la ocasión para recomendarte que leas la susodicha guía de estilo, gracias por tu colaboración. (Ya me sale casi como a los modes )

Edito: Catchis... que alguien borre este que me han salido dos con un problema de la adsl.