FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Creacion de DSN con ODBC para MySql en tiempo de ejecucion
Necesito en tiempo de ejecucion crear un DSN para una bd MySql en tiempo de ejecucion, consegui este codigo pero para access y no se que tengo que cambiar, me gustaria que me ayudaran, gracias.
Última edición por dec fecha: 28-09-2005 a las 08:15:45. Razón: ¡¡Encerrad el código fuente entre las etiquetas [DELPHI] ... [/DELPHI]!! |
#2
|
|||
|
|||
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. |
|
|
|