AyUda !!EXAMEN de SQL

[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

[__cadetill]

Código Delphi [-]
QConsulta.SQL.Text := 'update country set Capital = ' + 
         QuotedStr(t_capital.Text) + ' where Capital = ' + QuotedStr(t_pais.Text);
QConsulta.ExecSQL;

[marto]

Hola compañero,

veo que eres nuevo y que además andas un poquillo apurado
De todas maneras seria de agradecer que le echases un vistazo a la guia de estilo. Para empezar, podrías hacer un par de cosas, pon tu codigo entre etiquetas "[code]" o "[delphi]" para que se vea bien el codigo y abre un hilo nuevo para cada consulta. Piensa que así, si otro compañero tiene la misma duda, la podrá encontrar más facilmente en la herramienta de búsqueda

[marto]

Empezado por ricardocid

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

No te voy a traducir el código, pero mirando en la ayuda lo encontrarás fácil. Búsca lo siguiente:

OnKeyPress ->fíjate en los parámetros
Pos -> en lugar de InStr

suerte


por cierto... no hace falta que insistas más en lo urgente que es... piensa que aquí nadie pregunta por gusto

[ricardocid]

Estuve viendo la ayuda y sinceramente no es nada clara.
Por lo que interprete arme esta sentencia que me da error:

Código Delphi [-]
 
If KeyAscii = 13 Then 
  c_devuelto2.SetFocus
cadena := '0123456789' + Chr(8); 
If InStr(cadena, Chr(KeyAscii)) = 0 Then
  KeyAscii := 0;

Yo lo que tengo que hacer es que en el text solo me deje escribir numeros, agradeceria si alguien se tomara el tiempo de escribir el codigo
Con respecto a lo del apuro, pido disculpas. Y al ser nuevo en este foro no sabia algunas de las reglas con las cuales se manejan
Gracias por responder.

[Agar23]

Código Delphi [-]
procedure TForm.KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in (['0'..'9',#8])) then key:=#0;
end;

[marto]

Empezado por ricardocid

Con respecto a lo del apuro, pido disculpas. Y al ser nuevo en este foro no sabia algunas de las reglas con las cuales se manejan

Bueno, tranquilo, todos hemos sido nuevos, la gracia está en no tropezar dos veces con la misma piedra.

Por cierto, he editado tu mensaje para poner el código entre etiquetas "[delphi]", ¿ves la diferencia?....