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"...Tambien asumiremos que en esta base de datos existe una tabla llamada "tabla_ejemplo" que contiene los campos llamados "campo_entero" y "campo_cadena"
#include "vdbt/bdto.h" // del include de borland
/****************************************************************************/
/* Esta función realiza una consulta simple */
/****************************************************************************/
void acceso_consulta()
{
char dato[8];
int dato2;
/****************************************************/
/*en un caso real "dato2" se llenaría dinamicamente */
/****************************************************/
dato2 = 10;
TQuery *Consulta;
Consulta = new TQuery();
/***********************************************************************************************/
/* con respecto a la línea siguiente ver Conexion a bases de datos */
/***********************************************************************************************/
try
{
Consulta->DatabaseName = string("acceso_base")
Consulta->Close();
Consulta->Clear();
Consulta->Add("Select * from tabla_ejemplo where campo_enttero = 10");
Consulta->Open();
}
catch( EDatabaseError el_error)
{
el_error.Show();
}
Consulta->Close();
delete Consulta;
return 0;
}