Club Delphi  
    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 Temas de Hoy

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 16-10-2013
Alejandro890429 Alejandro890429 is offline
Registrado
NULL
 
Registrado: oct 2013
Posts: 3
Poder: 0
Alejandro890429 Va por buen camino
CONEXIOn en RED LOCAL con ADOCAONNECTION

Como hago para conectar el adoconnetion para poder trabajar en red local
Gracias...
uso mysql
delphi 2010
Responder Con Cita
  #2  
Antiguo 16-10-2013
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 2.010
Poder: 20
oscarac Va por buen camino
yo lo conecto mas o menos asi

Código Delphi [-]
procedure TdmComedor.DataModuleCreate(Sender: TObject);
Var ini:TIniFile; fName : String;
Begin
  fName := ChangeFileExt(Application.ExeName,'.ini');
   ini := TIniFile.Create(fName);
  _Origen := ini.ReadString(CONFIG_SECTION, 'Origen', STR_EMPTY);
  _Serie := ini.ReadString(CONFIG_SECTION, 'Serie', STR_EMPTY);
  _Igv := ini.ReadString(CONFIG_SECTION, 'Igv', STR_EMPTY);
  _PrecioMenu := StrToFloat(ini.ReadString('precio','Precio', STR_EMPTY));
  _Server := ini.readString('Server','Servidor',STR_EMPTY);
  _Base := ini.readString('DataBase','Base',STR_EMPTY);
  Comedor.ConnectionString:= 'Provider=SQLOLEDB.1;Password=docotito;Persist Security Info=True;User ID=sa;Initial Catalog=' + _Base +';Data Source=' + _Server;
  Comedor.Connected := True;
end;

y el archivo INI
Cita:
[Serie]
Origen=V06
Serie=6
Igv=18
[Precio]
Precio=8.5
[Data]
Data=0
[Server]
Servidor=portatil
[DataBase]
Base=Bozovich
__________________
Dulce Regalo que Satanas manda para mi.....
Responder Con Cita
  #3  
Antiguo 17-10-2013
Avatar de radenf
radenf radenf is offline
Miembro
 
Registrado: oct 2007
Ubicación: Viña del Mar,Chile
Posts: 608
Poder: 17
radenf Va por buen camino
Lo mismo pero más simple.
Crear un DataModule (Data1) y asignarle un ADOConnection y las respectivas ADOTables.
En el evento OnCreate del DataModule asignar el siguiente código:

Código Delphi [-]
procedure TData1.DataModuleCreate(Sender: TObject);
begin
Data1.ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=
'+ ExtractFilePath(Application.ExeName) + 'TuBD.mdb;Persist Security Info=False';
Data1.ADOConnection1.Provider := 'Microsoft.Jet.OLEDB.4.0';
Data1.ADOConnection1.Connected:= True;
Data1.Tabla1.Active:= True;
Data1.Tabla2.Active:= True;
Data1.Tablaetc.Active:= True;
end;

Donde '+ ExtractFilePath(Application.ExeName) + 'TuBD.mdb es la ruta donde se encuentra tu base de datos.

Saludos
Responder Con Cita
Respuesta



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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
conexion red local php mysql kapcomx PHP 6 08-12-2011 05:59:56
conexion a una red local alfil123 Conexión con bases de datos 6 25-10-2006 01:14:10
Impresion Local con una conexion VPN Ricsato Impresión 0 07-05-2005 21:24:14
Conexion ADO , puerto salida Local EITB Conexión con bases de datos 0 17-12-2004 16:45:29
conexion BD Local scooterjgm Conexión con bases de datos 1 03-11-2004 20:39:20


La franja horaria es GMT +2. Ahora son las 02:42:17.


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