Foros Club Delphi - CONEXIOn en RED LOCAL con ADOCAONNECTION

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - CONEXIOn en RED LOCAL con ADOCAONNECTION (https://www.clubdelphi.com/foros/showthread.php?t=84418)

CONEXIOn en RED LOCAL con ADOCAONNECTION

Como hago para conectar el adoconnetion para poder trabajar en red local
Gracias...:D
uso mysql
delphi 2010

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

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