FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
es asi para mysql
procedure TForm1.Button1Click(Sender: TObject);
var Reg:TRegistry; Path:String; begin Path:='C:\Archivos de programa\MySQL\MySQL Server 4.1\data\bdhcaead'; // path de la bas ede datos Reg:=TRegistry.Create; Try Reg.RootKey:=HKEY_LOCAL_MACHINE; Reg.OpenKey('\Software\ODBC\ODBC.INI\DSEcologia',True); Reg.WriteString('dbq',Path); Reg.WriteString('DATABASE','bdhcaead'); // asignamos la base de atos Reg.WriteString('Driver','c:\windows\system32\myodbc3.dll'); Reg.WriteInteger('DriverId',25); Reg.WriteString('FIL','MSDASQL.1;'); Reg.WriteString('PWD','publico'); // pasword Reg.WriteInteger('SafeTransactions', 0); Reg.WriteString('UID','root'); // usuario Reg.WriteString('SERVER','localhost'); // servidor Reg.OpenKey('\Software\ODBC\ODBC.INI\DSEcologia\Engines\Jet',True); Reg.WriteString('ImplicitCommitSync',''); Reg.WriteInteger('MaxBufferSize',2048); Reg.WriteInteger('PageTimeout',5); Reg.WriteInteger('Threads',3); Reg.WriteString('UserCommitSync','Yes'); Reg.OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources',True); Reg.WriteString('DSEcologia','MySQL ODBC 3.51 Driver'); // driver de mysql finally Reg.Free; end; // se comprueba la creacion del datasource Reg:=TRegistry.create; Reg.RootKey := HKEY_LOCAL_MACHINE; if Reg.OpenKey('SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources',FALSE) then begin Reg.WriteString('DSEcologia', 'MySQL ODBC 3.51 Driver'); Reg.Destroy; ShowMessage(' ALIAS CREADO. '); end; end; end. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|