Obtener un campo a a partir de otro

[giulichajari]

Bueno, tengo una tabla de alumnos, con dni, nombre y otras cositas.

Como hago para dado un nombre, obtener el dni, porque necesito asignar el pago de una cuota.
En la tabla cuotas, tengo el dni como relacion con el dni de la tabla alumnos, entonce necesito obtener el dni ingresado un nombre, y asignar segun ese dni el estado pago o algo asi del mes seleccionado.

Aunque sea me pueden decir que componentes se usan, yo luego busco. O si quieren mostrarme me da igual.

Tengo un formulario con un TTable para alumnos, y otro para cuotas. Dos DataSource y un Query.

Gracias

[Casimiro Noteví]

Veo que andas bastante perdido, lo que dices es como si alguien pregunta:
"Quiero correr una maratón olímpica, ¿cómo tengo que ponerme la gorra si hace viento?, cuento con un par de zapatillas, una camiseta y un calzón azul.

Te aconsejo este libro, es de lo mejorcito que puedes encontrar, y además es gratis.

[[ElDioni]]

Hola,

digo yo que lo normal sería buscar al alumno por el DNI y no por el nombre, imagina que tienes dos alumnos que se llaman igual, si haces una consulta en la que no compruebas si el resultado te devuelve más de un valor para los dos alumnos te dará el mismo resultado ya que mirarás el primer DNI de la consulta. De todas formas sería algo así.

Código Delphi [-]
Query1.Close;
Query1.SQL.Text:='SELECT dni FROM alumnos WHERE nombre LIKE '+quotedstr('%'+txtnombre.text+'%');
Query1.Open;
Query2.Close;
Query2.SQL.Text:='SELECT cuota FROM cuotas WHERE dni='+quotedstr(Query1.FieldByName('dni').AsString);
Query2.Open;
showmessage(Query2.FieldByName('Cuota').AsString);

Saludos.

[giulichajari]

Empezado por ElDioni

Hola,

digo yo que lo normal sería buscar al alumno por el DNI y no por el nombre, imagina que tienes dos alumnos que se llaman igual, si haces una consulta en la que no compruebas si el resultado te devuelve más de un valor para los dos alumnos te dará el mismo resultado ya que mirarás el primer DNI de la consulta. De todas formas sería algo así.

Código Delphi [-]
Query1.Close;
Query1.SQL.Text:='SELECT dni FROM alumnos WHERE nombre LIKE '+quotedstr('%'+txtnombre.text+'%');
Query1.Open;
Query2.Close;
Query2.SQL.Text:='SELECT cuota FROM cuotas WHERE dni='+quotedstr(Query1.FieldByName('dni').AsString);
Query2.Open;
showmessage(Query2.FieldByName('Cuota').AsString);

Saludos.

¿Y que es txtnombre en el primer select? Me da un error al compilar esa parte
Gracias.

[ecfisa]

Empezado por giulichajari

¿Y que es txtnombre en el primer select? Me da un error al compilar esa parte
Gracias.

Hola.

Creo que el amigo ElDioni está hablando de un TEdit que es lo que usualmente se utiliza. Le dió ese nombre para que fuera más representativo del contenido que almacena.

Saludos.

[giulichajari]

Empezado por ecfisa

Hola.

Creo que el amigo ElDioni está hablando de un TEdit que es lo que usualmente se utiliza. Le dió ese nombre para que fuera más representativo del contenido que almacena.

Saludos.

Pues tampoco, pruebo con el nombre de mi TEdit y lo mismo...

Saludos

[ecfisa]

Empezado por giulichajari

Pues tampoco, pruebo con el nombre de mi TEdit y lo mismo...

Saludos

¿ Y cuál es exáctamente el mensaje de error que recibis ?

Saludos.

[giulichajari]

Empezado por ecfisa

¿ Y cuál es exáctamente el mensaje de error que recibis ?

Saludos.

Undefined symbol
pero con el TEdit tampoco lo toma

[ecfisa]

A ver...

En un mensaje anterior (Relacionar Popupmenu con fila de DBGrid), hiciste la consulta en el foro C++ Builder.

¿ Estas trabajando en C++ ?

Saludos.

[giulichajari]

Empezado por ecfisa

A ver...

En un mensaje anterior (Relacionar Popupmenu con fila de DBGrid), hiciste la consulta en el foro C++ Builder.

¿ Estas trabajando en C++ ?

Saludos.

Si. Claro ahí puede estar el error. Mil disculpas

[ecfisa]

Hola.

Entonces el código de ElDioni quedaría:

  Query1->Close();
  Query1->SQL->Text = "SELECT dni FROM alumnos WHERE nombre LIKE " +
       QuotedStr("%" + tuEdit1->Text + "%");
  Query1->Open();

  Query2->Close();
  Query2->SQL->Text = "SELECT cuota FROM cuotas WHERE dni = " +
    QuotedStr(Query1->FieldByName("DNI")->AsString);
  Query2->Open();
  ShowMessage(Query2->FieldByName("Cuota")->AsString);

Recorda que la sintáxis de C++ es sensible a mayúsculas/minúsculas.

Saludos.

[giulichajari]

Empezado por ecfisa

Hola.

Entonces el código de ElDioni quedaría:

  Query1->Close();
  Query1->SQL->Text = "SELECT dni FROM alumnos WHERE nombre LIKE " +
       QuotedStr("%" + tuEdit1->Text + "%");
  Query1->Open();

  Query2->Close();
  Query2->SQL->Text = "SELECT cuota FROM cuotas WHERE dni = " +
    QuotedStr(Query1->FieldByName("DNI")->AsString);
  Query2->Open();
  ShowMessage(Query2->FieldByName("Cuota")->AsString);

Recorda que la sintáxis de C++ es sensible a mayúsculas/minúsculas.

Saludos.

Me da el siguiente problema. Mil disculpas

Código SQL [-]
Ambiguity between '_fastcall System:perator +(int,const System::Variant &)' and '_fastcall System:perator +(int,const System::Currency &)'

[giulichajari]

Bueno ya logre solucionarlo, habian algunas cosas mal, muchas gracias..

[giulichajari]

Empezado por ecfisa

Hola.

Entonces el código de ElDioni quedaría:

  Query1->Close();
  Query1->SQL->Text = "SELECT dni FROM alumnos WHERE nombre LIKE " +
       QuotedStr("%" + tuEdit1->Text + "%");
  Query1->Open();

  Query2->Close();
  Query2->SQL->Text = "SELECT cuota FROM cuotas WHERE dni = " +
    QuotedStr(Query1->FieldByName("DNI")->AsString);
  Query2->Open();
  ShowMessage(Query2->FieldByName("Cuota")->AsString);

Recorda que la sintáxis de C++ es sensible a mayúsculas/minúsculas.

Saludos.

Una pregunta:¿porqué ponen primero Close al SQL y luego de las instrucciones un Open y no al reves?

[ecfisa]

Empezado por giulichajari

Una pregunta:¿porqué ponen primero Close al SQL y luego de las instrucciones un Open y no al reves?

Hola giulichajari.

Por que si es necesario modificar alguna propiedad en la consulta SQL que afecte la selección del conjunto de datos, previamente es necesario cerrarlo.

En el código anterior, al ser una consulta simple, se asigna directamente a la propiedad SQL->Text, de tipo PChar y que apunta a la actual consulta SQL. Sobreescribiéndo de ese modo la cadena SQL previamente almacenada.

Pero, en consultas mas complejas, donde el uso del método Add de la propiedad SQL hace más entendible el código, también es necesario limpíar cualquier residuo anterior.

Tomando parte del código anterior para ejemplificar el uso de Add:

  Query1->Close();
  Query1->SQL->Clear();  // <== Limpiar posibles residuos
  Query1->SQL->Add("SELECT dni");
  Query1->SQL->Add("FROM alumnos");
  Query1->SQL->Add("WHERE nombre LIKE "+QuotedStr("%"+tuEdit1->Text+"%"));
  Query1->Open();
  ...

Saludos.

[giulichajari]

Empezado por ecfisa

Hola giulichajari.

Por que si es necesario modificar alguna propiedad en la consulta SQL que afecte la selección del conjunto de datos, previamente es necesario cerrarlo.

En el código anterior, al ser una consulta simple, se asigna directamente a la propiedad SQL->Text, de tipo PChar y que apunta a la actual consulta SQL. Sobreescribiéndo de ese modo la cadena SQL previamente almacenada.

Pero, en consultas mas complejas, donde el uso del método Add de la propiedad SQL hace más entendible el código, también es necesario limpíar cualquier residuo anterior.

Tomando parte del código anterior para ejemplificar el uso de Add:

  Query1->Close();
  Query1->SQL->Clear();  // <== Limpiar posibles residuos
  Query1->SQL->Add("SELECT dni");
  Query1->SQL->Add("FROM alumnos");
  Query1->SQL->Add("WHERE nombre LIKE "+QuotedStr("%"+tuEdit1->Text+"%"));
  Query1->Open();
  ...

Saludos.

Muchas gracias por responder
Saludos