Conexión a base de datos con C++ de Borland



En los siguientes ejemplos asumiremos que existe una base de datos de cualquier tipo (Informix, access, Oracle, etc) a la que un ODBC apunta, también asumiremos que la utileria BDE de borland ya dio de alta dicho ODBC, y ya configuró un alias para esta base...Para nuestro ejemplo, este alias sería "acceso_base"...

                                                            Regresar a la página principal                

                   Funcion para conectarse y mantener dicha conexión a una base de datos 


                          /* verdadero si se conecta falso en otro caso*/        
                          #include    
                          bool inicia_conexion()
                           {          
                             TDatabase Sesion;
                             char usuario[30],clave[8];  
                           /* usuario y clave en un caso real serían llenados dinamicamente */

                             strcpy(usuario,"usuario1");
                             strcpy(clave,"clave1");  
                           /*****************************************************************/  
                           /*abajo se deshabilita diálogo default de login; se toman los parametros en TDatabase.Params*/
                           conexion.LoginPrompt=false;  
                           conexion.Params->Add(usuario); 
                           conexion.Params->Add(clave);
                           conexion.DatabaseName = string("acceso_base");
                           conexion.AliasName    = string("acceso_base");
                           try{
                                conexion.Open();
                              }
                           catch(EDatabaseError mi_error )
                      	   {
                                mi_error.Show();
                                return false;
               	          } 
                           /*para que la aplicación permanece en conexión con la base durante su ejecución*/
                           conexion.KeepConnection = true;
                           return true;  
                        }
1