Club Builder - Foros de discusión Club Builder
Foro de C++Builder en español
 
 FAQFAQ   BuscarBuscar   MiembrosMiembros   Grupos de UsuariosGrupos de Usuarios   RegistrarseRegistrarse 
 PerfilPerfil   Entra para ver tus mensajes privadosEntra para ver tus mensajes privados   EntrarEntrar 

Consultas con ADOQuery y enteros

 
Publicar nuevo tema   Responder al tema    Foros de discusión -> Consultas
Ver tema anterior :: Ver tema siguiente  
Autor Mensaje
Mensaje    Asunto: Consultas con ADOQuery y enteros Responder citando

Hola de nuevo, me he vuelto a atascar en una cosa, a ver, tengo en una tabla de mi BD Access 2 claves primarias para que así la combinación sea única, 1 de ellas permite duplicados y es de formato entero largo. En mi programa de builder necesito listar los registros que tienen un determinado valor en esa clave, para ello recojo el número que introduce el usuario en un edit y pretendo pasárselo a una ADOQuery, pero no sé cómo hacerlo porque es un tipo long y no un AnsiString(y los ejemplos que he visto en el foro están hechos con AnsiString) , he probado de diferentes maneras, la consulta funciona si le pongo directamente el número en el WHERE de la consulta SQL, os coloco el código:

void __fastcall TFormNuevaConv::EditOrigenKeyPress(TObject *Sender,
char &Key)
{
long Origen;

if (Key == 13)
{
if (!EditOrigen->Text.IsEmpty())
{
// El usuario ha introducido el código de la Titulación Origen
Origen = (long)EditOrigen->Text.ToInt();

DataModule1->ADOQueryOrigen->Close();
DataModule1->ADOQueryOrigen->SQL->Clear();
DataModule1->ADOQueryOrigen->SQL->Add("SELECT *");
DataModule1->ADOQueryOrigen->SQL->Add("FROM Planes");
DataModule1->ADOQueryOrigen->SQL->Add("WHERE Cod_Tit =
¿?¿?¿?");

// Realizamos la consulta
DataModule1->ADOQueryOrigen->Open();

DataModule1->DataSourceOrigen->DataSet = DataModule1->ADOQueryOrigen;
DBGrid1->DataSource = DataModule1->DataSourceOrigen;
}
}
}

Como puedo pasarle el parámetro en WHERE Cod_Tit = Origen??, me he explicado??Cómo encadeno la variable de tipo long a la consulta??


Muchas gracias ... Rolling Eyes
Volver arriba
Ver perfil de usuario Enviar mensaje privado Enviar email
Mensaje    Asunto: Responder citando

Intentalo de esta manera:

Código:

DataModule1->ADOQueryOrigen->SQL->Add("WHERE Cod_Tit ="+AnsiString(Origen));
Volver arriba
Mensaje    Asunto: Responder citando

Intentalo de esta manera:

Código:

DataModule1->ADOQueryOrigen->SQL->Add("WHERE Cod_Tit ="+AnsiString(Origen));


El del mensaje anterior fui yo, pero se me olvido logearme !!!
Embarassed
_________________
Dirección Municipal de Informática
H. Ayuntamiento de Tijuana
Arriba Lopez Obrador !!!
Los Mexicanos Merecemos Respeto !!!
Volver arriba
Ver perfil de usuario Enviar mensaje privado Visitar sitio web del autor MSN Messenger
Mensaje    Asunto: Responder citando

Vaya, era tan simple como eso, y llevaba toda la tarde dándole vueltas

Gracias .... Razz
Volver arriba
Ver perfil de usuario Enviar mensaje privado Enviar email
Mostrar mensajes de anteriores:   
Cambiar a:  
No puedes publicar temas nuevos en este foro
No puedes responder a temas en este foro
No puedes editar tus mensajes en este foro
No puedes borrar tus mensajes en este foro
No puedes votar en las encuestas de este foro


Hosting WordPress Indedmedia desde 3,99 €
© 2002–2026 Club Builder · Funciona con phpBB.