PDA

Ver la Versión Completa : CONEXIOn en RED LOCAL con ADOCAONNECTION


Alejandro890429
16-10-2013, 22:29:03
Como hago para conectar el adoconnetion para poder trabajar en red local
Gracias...:D
uso mysql
delphi 2010

oscarac
16-10-2013, 22:46:05
yo lo conecto mas o menos asi

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

[Serie]
Origen=V06
Serie=6
Igv=18
[Precio]
Precio=8.5
[Data]
Data=0
[Server]
Servidor=portatil
[DataBase]
Base=Bozovich

radenf
17-10-2013, 22:25:32
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:

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