FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problema al crear DSN en tiempo de ejecución, pero sólo al ejecutar, no desde Delphi
Hola, buenos dias.
Tengo un problema al crear un DSN en tiempo de ejecución desde una aplicacion en Delphi 7. Cuando ejecuto el código desde Delphi, me crea el DSN sin problemas, pero al hacerlo desde el ejecutable, me devuelve el error "ERROR:Microsoft Access Settings NOT reset". He estado buscando y no he encontrado nada, espero no haber sido muy torpe en mi búsqueda. Este es el código que uso. Código:
const ODBC_ADD_DSN = 1; // Add data source ODBC_CONFIG_DSN = 2; // Configure (edit) data ODBC_REMOVE_DSN = 3; // Remove data source ODBC_ADD_SYS_DSN = 4; // add a system DSN ODBC_CONFIG_SYS_DSN = 5; // Configure a system DSN ODBC_REMOVE_SYS_DSN = 6; // remove a system DSN ODBC_REMOVE_DEFAULT_DSN = 7; // remove the default DSN function SQLConfigDataSource( hwndParent: HWND; fRequest: WORD; lpszDriver: LPCSTR; lpszAttributes: LPCSTR): BOOL; stdcall; external 'ODBCCP32.DLL'; procedure TForm1.Button1Click(Sender: TObject); var szAtributos:PChar; bResult:bool; begin szAtributos:= PChar('DSN=ABC' + chr(0) + 'FIL=MS Access' + chr(0) + 'JetIniPath=odbcddp.ini' + chr(0) + 'DBQ=D:\ABC.mdb' + chr(0) + 'DefaultDir=D:\' + chr(0) + chr(0)); try bResult := SQLConfigDataSource( HWND(NIL), ODBC_ADD_SYS_DSN_W7, 'Microsoft Access Driver (*.mdb)', szAtributos); finally if (bResult=FALSE) then MessageDlg('ERROR: Microsoft Access Settings NOT reset.',mtError,[mbOK],0); end; end; |
#2
|
|||
|
|||
Me autocontesto y doy por cerrado el tema.
El problema venía por permisos de administración del equipo. Al ejecutar la aplicación como Administrador (os recuerdo que era en Windows 7), se han corregido todos los problemas, sin embargo, me quedo con la duda de porqué desde Delphi si lo ha podido completar. En fin, lo dejo por si a alguien le sirve de ayuda alguna vez ;-) |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Ejecutar lineas de codigo solo en tiempo de ejecucion | Cecil | Varios | 10 | 22-02-2008 03:22:25 |
Creación de directorios en tiempo de ejecución desde aplicación Delphi | vick | Conexión con bases de datos | 1 | 16-12-2005 22:18:17 |
Creación de directorios en tiempo de ejecución desde aplicación Delphi | vick | API de Windows | 1 | 16-12-2005 22:13:35 |
Quiero crear objetos en tiempo de ejecución con IntraWeb en Delphi 7 | atirado | OOP | 3 | 12-03-2004 00:06:31 |
Como configurar un alias en el DataBaseDesktop, pero por codigo (tiempo de ejecución) | hhuillcen | Conexión con bases de datos | 1 | 14-06-2003 07:16:45 |
|