| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
shackletta Lt JG

Registrado: 01 Dic 2004Mensajes: 68
|
Publicado: Mar 14 Dic, 2004 7:24 pm Asunto: Consultas con ADOQuery y enteros |
|
|
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 ...  |
|
| Volver arriba |
|
 |
Invitado
|
Publicado: Mar 14 Dic, 2004 8:35 pm Asunto: |
|
|
Intentalo de esta manera:
| Código: |
DataModule1->ADOQueryOrigen->SQL->Add("WHERE Cod_Tit ="+AnsiString(Origen));
|
|
|
| Volver arriba |
|
 |
LordNemesis Master


Registrado: 31 Dic 2003Mensajes: 340Ubicación: México
|
Publicado: Mar 14 Dic, 2004 8:39 pm Asunto: |
|
|
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 !!!
 _________________ Dirección Municipal de Informática
H. Ayuntamiento de Tijuana
Arriba Lopez Obrador !!!
Los Mexicanos Merecemos Respeto !!! |
|
| Volver arriba |
|
 |
shackletta Lt JG

Registrado: 01 Dic 2004Mensajes: 68
|
Publicado: Mar 14 Dic, 2004 8:53 pm Asunto: |
|
|
Vaya, era tan simple como eso, y llevaba toda la tarde dándole vueltas
Gracias ....  |
|
| Volver arriba |
|
 |
|