uno de mis lenguajes favoritos es C++ , tal vez se deba a que fue el primero en el cual empeze con esto de desarrollo de sistemas pero ahora no hablare de la mis historia de como aprendi C++, explicare de manera simple como mostrar datos en una aplicacion windows con el IDE de C++ Builder en mi caso uso la version XE4 de Embarcadero; pero funciona con la version 6.0 en adelante.
vamos a usar varias clases para conectarnos, quiero imaginarme que han tenido alguna experiencia con este IDE asi que pasare por alto algunos pasos, en nuestra Form agregamos dos controles, un boton y un TDBGrid al cual nombraremos grDatos. El codigo es el siguiente:
TADOConnection* cnn;
TADOQuery* consulta;
TDataSource* ds;
String conexion="Provider=SQLOLEDB.1;Password=1;Persist Security Info=True;User ID=usuario;Initial Catalog=BaseDatos;Data Source=Servidor";
cnn=new TADOConnection(this);
cnn->ConnectionString=conexion;
cnn->LoginPrompt=false;
try
{
cnn->Connected = true;
consulta=new TADOQuery(this);
consulta->Connection=cnn;
consulta->SQL->Add("SELECT * FROM Tabla");
consulta->Prepared=true;
consulta->Active=true;
ds=new TDataSource(this);
ds->DataSet=consulta;
ds->Enabled=true;
grDatos->DataSource=ds;
}
catch (EADOError& e)
{
MessageDlg("Error al conectar datos", mtError,
TMsgDlgButtons() << mbOK, 0);
return;
}
vamos a usar varias clases para conectarnos, quiero imaginarme que han tenido alguna experiencia con este IDE asi que pasare por alto algunos pasos, en nuestra Form agregamos dos controles, un boton y un TDBGrid al cual nombraremos grDatos. El codigo es el siguiente:
TADOConnection* cnn;
TADOQuery* consulta;
TDataSource* ds;
String conexion="Provider=SQLOLEDB.1;Password=1;Persist Security Info=True;User ID=usuario;Initial Catalog=BaseDatos;Data Source=Servidor";
cnn=new TADOConnection(this);
cnn->ConnectionString=conexion;
cnn->LoginPrompt=false;
try
{
cnn->Connected = true;
consulta=new TADOQuery(this);
consulta->Connection=cnn;
consulta->SQL->Add("SELECT * FROM Tabla");
consulta->Prepared=true;
consulta->Active=true;
ds=new TDataSource(this);
ds->DataSet=consulta;
ds->Enabled=true;
grDatos->DataSource=ds;
}
catch (EADOError& e)
{
MessageDlg("Error al conectar datos", mtError,
TMsgDlgButtons() << mbOK, 0);
return;
}
disculpa me podrias ayudar explicandolo mas extenso ya que eres el unico que publico este codigo ,no hay mas en internet porfavor
ResponderEliminardisculpa me podrias ayudar explicandolo mas extenso ya que eres el unico que publico este codigo ,no hay mas en internet porfavor
ResponderEliminarHola Fernando Moya. Tengo una duda. Como hago para que esta conexion me funcione en red para poder realizar consultas y demas desde un equipo a otro equipo, pero estos conectados a internet, no en una red local. De antemano gracias.
ResponderEliminar