Delphi - Como creo un Alias ODBC con odbccp32.dll

 
Vista:

Como creo un Alias ODBC con odbccp32.dll

Publicado por Nelson (19 intervenciones) el 06/04/2004 17:16:37
Como puedo hacer para crear un alias en el odbc utilizando funciones de la biblioteca odbccp32.dll. O en todo caso de donde puedo sacar información a cerca de las funciones que contiene dicha biblioteca.
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como creo un Alias ODBC con odbccp32.dll

Publicado por Software Practico Libre (5 intervenciones) el 06/04/2004 17:42:42
Prueba esto
procedure TForm1.Button1Click(Sender: TObject);
var
Reg:TRegistry;
Path:String;
begin
Path:='c:\Neptuno.mdb';
Reg:=TRegistry.Create;
Try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\Software\ODBC\ODBC.INI\Luis',True);
Reg.WriteString('DBQ',Path);
Reg.WriteString('Driver','c:\windows\system\odbcjt32.dll');
Reg.WriteInteger('DriverId',25);
Reg.WriteString('FIL','MS Access;');
Reg.WriteInteger('SafeTransactions',0);
Reg.WriteString('UID','');
Reg.OpenKey('\Software\ODBC\ODBC.INI\Luis\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('jose','Microsoft Access Driver (*.mdb)');
finally
Reg.Free;
end;
end;
El driver necesario, en este caso odbcjt32.dll al tratarse de Access, se encuentra en el directorio de sistema de Windows. La ruta a este directorio se puede obtener con la función GetSystemDirectory.

El código mostrado puede utilizarse para crear un DSN de usuario con sólo cambiar:
Reg.RootKey:=HKEY_LOCAL_MACHINE por Reg.RootKey:=HKEY_CURRENT_USER.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar