AyUda !!EXAMEN de SQL

[marcoszorrilla]

Te falta decir con que componentes te conectas y a qué base de datos. Access, Dbase, Paradox?

Código SQL [-]
busqueda := t_pais.Text;
QConsulta.Close;
QConsulta.SQL.Text:='Select Nombre from paises where Nombres = ' +QuotedStr(Edit1.Text);
QConsulta.Open;
result :=QConsulta.fields[0].asstring;

Lo que te pongo puede ser una solución fácil.

Un Saludo.

[weke]

¡Buenas!

Yo para comprobar si existe un registro o no, antes de insertarlo, lo hago sin utilizar una consulta SQL, de la siguiente manera:

	esta:=Table1.FindKey([campo_calve_primaria, campo_calve_primaria]);
	if (esta = false) then
//inserto el elemento

Nota: 'esta' es una variable boolean, que no es necesaria si lo haces de la siguiente forma:

	if (Table1.FindKey([campo_calve_primaria, campo_calve_primaria]) = false) then
//inserto el elemento

La cuestión es que en el 'FindKey' introduces el campo o campos que forman la clave primaria para que busque en la tabla, si existe te devuelve cierto y si no existe de devuelve falso.

Espero que te sirva.

Saludos.

[sanxpue]

Bueno las respuestas anteriores son unas de varias opciones,

Tambien puedes hacerlo con Locate
o levantando una excepcion y mandando un mensaje diciendoles
ejele ejele ese ya esta

osease ya tienes 4 opciones

[ricardocid]

gRACIAS POR responder, ese tema ya lo solucione gracias a ustedes, ahora tengo que validar los campos,
*nombre(campo clave)(LETRAS)
*capital(LETRAS)
*poblacion(NUMEROS)
*area(NUMEROS)
*densidad(NUMEROS)

YO EN VISUAL LO HACIA ASI, EN DELPHI COMO ES?
Private Sub c_devuelto_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then c_devuelto2.SetFocus
cadena = "0123456789" + Chr(8) 'chr(8) = delete, es decir admitimos borrar
If InStr(cadena, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub

MUCHAS GRACIAS Y POR FAVOR SIGANME AYUDANDOME

[ricardocid]

QConsulta.Close;
QConsulta.SQL.Text:='Select Name, Capital, Continent, Area, Population from country where Name = ' + QuotedStr(t_pais.Text);
QConsulta.Open;

¿Como hago para poner el nambre en un text, capital en otro text, area en otro text y population en otro text,
Aclaro que el nombre por el cual hagola busqueda es campo unico, por lo tanto me va a devolver u solo registro. Yo en visual usaba
capital.text=rs!Capital,
En delphi ¿como tengo que hacer?
Gracias por ayudarme

[marcoszorrilla]

Código SQL [-]
Capital.Text:=Field[0].AsString;

El 0 tienes que sustituirlo por el lugar que ocupe el campo en el Sql empezando por 0 hast x -1.

Si creas campos persistentes:
Entonces podrías hacer:

Código SQL [-]
Capital.TExt:=Quer1Micampo.Value;

Un Saludo.

[guillotmarc]

Otra opción.

Capital.Txt = Query1.FieldByName('Capital').AsString;

Saludos.

[ricardocid]

La de asigncion sobre una sentencia SQL ya lo solucione ahora me falta:

El update en delphi como lo toma?

QConsulta.Close;
QConsulta.SQL.Text:='update country set Capital := t_capital.Text where Capital = ' + QuotedStr(t_pais.Text);
QConsulta.Open;

tengo que actualizar el campo capital con lo ingresado en un text, y lo busca con lo ingresado en el textpais, ese vendria a ser el campo unico
¿COMO SERIA LA SENTENCIA?

NO ME RESPONDIERON LA CONSULTA SOBRE EL KEYPRESS EN DELPHI, POR FAVOR AYUDENME YA QUE ES PARA ENTRAR A UN LABURO