Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 31-05-2006
Avatar de Arturo Cabrera
Arturo Cabrera Arturo Cabrera is offline
Registrado
 
Registrado: abr 2006
Posts: 8
Poder: 0
Arturo Cabrera Va por buen camino
Talking La solución que encontre

he luis muy buena la idea de trabajar con los dsn. mira dando vuelta por internet encontre este codigo que te genera el dsn de usuario:



Código:
bool TForm1::CreateODBCAlias(String sAlias, String sDB, String sDir, String sDescription,String sUsuario,String sPWD)

{
//bool ret;

//ret = CreateODBCAlias("MiAlias",

//"base de datos en mysql",
//"C:\directorio\datos\",
//"Esto es una prueba";
// Devuelve true si se crea correctamente
//ShowMessage(ret ? "Creado" : "Error"
 typedef BOOL (__stdcall *pSQLConfigDataSource)(HWND, WORD, LPCSTR, LPCSTR);
 pSQLConfigDataSource SQLConfigDataSource;
 HINSTANCE hLib;
 bool bRet = false;
 hLib = LoadLibrary("odbccp32.dll");
  if (hLib)
    {
      SQLConfigDataSource =  (pSQLConfigDataSource) GetProcAddress(hLib, "SQLConfigDataSource");
      if (SQLConfigDataSource)
        {
            char Param[1024];
            sprintf(Param, "DSN=%s; Description=%s; DefaultDir=%s; DBQ=%s; UID=%s; PWD=%s\0",sAlias.c_str(),sDB.c_str(),sDescription.c_str(),sDir.c_str(),sUsuario.c_str(),sPWD.c_str());
            bRet = SQLConfigDataSource(NULL, 1 /*ODBC_ADD_DSN*/,"MySQL ODBC 3.51 Driver",Param);
            //el 1 significa un dsn por usuario.
        }
      FreeLibrary(hLib);
  }
 // Devuelve true si se crea o false en caso contrario
 return bRet;
}
era para microsoft acces y lo estoy modificando para que me genere un dsn para mysql. ya me lo genera pero ahora tengo una duda que no puedo solucionar que capaz que me puedan ayudar.
me toma bien el nombre del alias. la descripcion. la direccion de la base de datos. PERO no me toma el nombre de la base de datos ni los datos del usuario y su pass. me imagino que es porque los atributos que le mando estan mal. es decir en ves de DBQ debe ir una cosa algo asi como DataBase para que lo tome.
si alguien sabe desde ya muchas gracias.
Responder Con Cita
 



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
ANN: AnyNET-Delphi: Herramienta para generar codigo fuente Delphi desde :NET mamcx Noticias 7 21-05-2007 02:12:36
¿Cómo puedo hacer un ODBC por codigo Delphi? Shidalis Varios 12 24-08-2005 22:44:49
conexion mediante ODBC a la base de datos mysql, por linea de codigo de delphi sakuragi Conexión con bases de datos 21 15-03-2005 18:43:59
ODBC mediante codigo sakuragi Conexión con bases de datos 2 04-12-2004 09:34:15
Alguien sabe como crear un alias en Fuentes de datos ODBC (32 bits) por codigo ? edson Conexión con bases de datos 2 15-04-2004 15:57:26


La franja horaria es GMT +2. Ahora son las 18:49:12.


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