Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 04-07-2013
aquiestamos aquiestamos is offline
Miembro
 
Registrado: ago 2006
Posts: 27
Poder: 0
aquiestamos Va por buen camino
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;
Gracias de antemano por vuestra ayuda.
Responder Con Cita
  #2  
Antiguo 08-07-2013
aquiestamos aquiestamos is offline
Miembro
 
Registrado: ago 2006
Posts: 27
Poder: 0
aquiestamos Va por buen camino
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 ;-)
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

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


La franja horaria es GMT +2. Ahora son las 01:38:04.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi