Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 03-01-2006
jabim jabim is offline
Registrado
 
Registrado: dic 2005
Posts: 8
Poder: 0
jabim Va por buen camino
Conexion a BD

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'
  { Se abre la conexión a la base de datos }
  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
      { Error al abrir la base de datos }
      ADOQuery.Close;
      ADOConexion.Close;
    end;
    { Se obtienen los datos }
    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;

Última edición por vtdeleon fecha: 03-01-2006 a las 15:48:34.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 02:52:59.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi