Consulta en Tabla

[tcp_ip_es]

existe un begin mal puesto...a parte el ramdom de 5 puede darte valor 0 y no lo tienes contemplado...mejor ponerlo a 4 ... el procedure quedaría asi.

Código Delphi [-]
procedure TForm1.EditPreguntaKeyPress(Sender: TObject; var Key: Char);
var
 respuesta : Integer;
 RespuestaCAD : String;
begin
 If key=#13 then
 begin
  Table1.Open;
  If Table1.Locate('pregunta',EditPregunta.Text, [loCaseInsensitive]) then
  begin
   Randomize;
   respuesta := Random(4);
   Case respuesta of
    0: RespuestaCAD := Table1.fieldByName('respuesta1').AsString;
    1: RespuestaCAD := Table1.fieldByName('respuesta2').AsString;
    2: RespuestaCAD := Table1.fieldByName('respuesta3').AsString;
    3: RespuestaCAD := Table1.fieldByName('respuesta4').AsString;
    4: RespuestaCAD := Table1.fieldByName('respuesta5').AsString;
   end;
   Table1.Close;
   ListBox1.Items.Add(EditPregunta.Text);
   ListBox1.Items.Add(RespuestaCAD);
   EditPregunta.Text :='';
  end;
 end;
end;

[Abuelo7]

Hola Tony.
Gracias por tu ayuda.

De todas formas, he modificado el procedure como tú me indicas y sigue pasando lo mismo, hay alguna frase que no me la contesta.
Supongo que debe haber algo más que esta mal.

Saludos

Manuel

[tcp_ip_es]

que raro, lo veo un poco imposible si haces un random de 4 solo puede salir 0,1,2,3,4 con lo que tienes acotada las posibilidades y RespuestaCAD siempre se rellena.... como no sea que en la tabla tengas alguna de las 5 respuestas vacia a alguna pregunta.....

[Abuelo7]

Hola otra vez Tony.

Parece ser que he encontrado el fallo.

En la tabla he tenido que renombrar los campos de respuesta, que estaban de respuesta1 a respuesta5, y poner de respuesta0 a respuesta4.

Y en el case, que estaba todo de 1 a 5, poner de 0 a 4.

Ahora lo he probado varias veces y no ha fallado ninguna.

Saludos.
Manuel

[*Caro*]

Empezado por Abuelo7

En la tabla he tenido que renombrar los campos de respuesta, que estaban de respuesta1 a respuesta5, y poner de respuesta0 a respuesta4.
Y en el case, que estaba todo de 1 a 5, poner de 0 a 4.
Ahora lo he probado varias veces y no ha fallado ninguna.

Hola de nuevo, como te has dado cuenta al utilizar solo Random te toma en cuenta el 0 mas, es por eso que en el primer codigo que te puse he utilizado RandomRange(1,5); para que siempre nos devuelva un valor entre 1 y 5.

Saluditos

[Abuelo7]

Hola Caro

Me pasa una cosa muy curiosa.
Ahora el programa siempre contesta a la frase de entrada y varía la respuesta, pero la respuesta4, que en realidad es la 5 no aparece nunca en ninguna de las 4 frases de entrada que tengo de prueba.

Lo que me comentabas de RandomRange(1,5), el Delphi5 que estoy utilizando no me lo acepta.

Gracias
Saludos amiga.
Manuel

[*Caro*]

Hola de nuevo amiguito, lo que pasa es que la función Random te va devolver un numero aleatorio que sea mayor o igual a 0 pero menor al parametro que le pasas, por lo tanto no debes pasarle 4 sino 5 Random(5).

Saluditos

[Elite237]

Hola, quisera pedir una ayuda, pues tengo un problema:

Tengo 3 combobox, un stringgrid y un boton. Lo que quiero hacer es que el usuario seleccione un estado, una sucursal y una zona, y que al momento de presionar sobre el boton me muestre los datos que seleccione para despues mandarlos a imprimir.

Espero me haya dado a entender y me tiendan su ayuda.

[Abuelo7]

Hola Caro.

La consulta anterior con tu respuesta el programa funcionó correctamente colocando lo [begin] en su lugar.

Quisiera hacerte otra consulta.

Tengo 2 tablas que estan ya llenas de datos y si lograse aprovecharlas me irían muy bien para el programa que estoy haciendo.

La tabla 1, tiene 2 campos 'palabra' y 'numero'
La tabla 2, tiene 2 campos 'numero' y 'respuesta'

Por lo que he podido analizar, parece ser que el número de la primera tabla se corresponde al numero de la segunda tabla.

Resumiendo, si introduces mediante programa una palabra cuyo numero es 2, enlaza con el numero 2 de la segunda tabla que es la respuesta.

Las tablas son .dbf

Crees que podría utilizarlas?
De que forma podría enlazar estos campos?

Gracias amiga.

Saludos
Manuel

[Elite237]

Hola Caro, gracias por tu tip, ya pude lograr lo del combobox, ahora mi duda es la siguiente, quiero que al momento de hacer doble clic me genere una consulta que me valide que lo que estoy haciendo clic sea igual a otro campo y me la muestre en otro DBgrid. Como le hago?Este es mi codigo de prueba:se que lo tengo que hacer en el evento dblclic, pero me manda un error con la sintaxis.

Código Delphi [-]
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
     query1.close;
     query1.sql.clear;
     query1.sql.add('select scob_ncobros,scob_periodo,scob_vendedor,scob_fecha from TSCOBROS');
     query1.sql.add('where scob_vendedor = '''+DBgrid1.cells[6, sgPorVenta.row]+''' and scob_fecha>=''2008-08-01 09:00:00'' and scob_fecha<=''2008-08-31 21:00:00''');
     query1.open;
     showmessage(IntToStr(query1.recordcount));

[Abuelo7]

Hola ninguno.

Gracias por tu ayuda. En verdad lo he probado y tu código funciona perfectamente.

El problema es que ahora ya estoy trabajando con 4 tablas.

El asunto del Memo tiene que salir siempre la palabra o frase que introduzca el usuario y la respuesta que encuentre en la tabla 2 o en la 4.
Esto es: frase y respuesta.

Si has seguido el hilo verás que lo que estoy intentando es crear un programa de IA, na especie de Chattbot.

La mejor referencia que tengo es de un programa llamado Zebal que se escribió en Clipper. No hay código fuente, pero si las BD y tablas que utilizaba.

Es muy curioso el funcionamiento que se descubre al analizar las tablas.
Si le entras por ejemplo la frase 'estoy frito', te contesta 'que se siente al estar frito' o bien 'dime como es estar frito'. Como verás al detectar la palabra 'estoy' busca en las tablas y si la encuentra contesta con una de las frases vinculadas 'que se siente al estar' o 'dime como es estar' añadiéndole la palabra frito.

Como verás todo un lío.

Ademas hay palabras o frases con una número de clave en la tabla1 que se vinculan en la tabla2 con dicho número de clave, pero que a veces existe 5 o 6 veces. Es decir escoge la respuesta entre ellas ara que no sea siempre la misma.

Bueno además tiene otras lindezas, como preguntar el nombre del usuario, guardarlo y si vuelves a "charlar" al cabo de 3 meses, te dice qye cuanto tiempo sin hablar contigo.

Bueno, no te canso más.

Veremos como salgo de ésta.

Saludos.

Manuel Reixach

[*Caro*]

Empezado por Elite237

ahora mi duda es la siguiente, quiero que al momento de hacer doble clic me genere una consulta que me valide que lo que estoy haciendo clic sea igual a otro campo y me la muestre en otro DBgrid. Como le hago?Este es mi codigo de prueba:se que lo tengo que hacer en el evento dblclic, pero me manda un error con la sintaxis.

Hola Elite237, escribe cual es el error que te sale, que recuerde estas manejando StringGrid verdad, o es que ya lo has cambiado a DBGrid, lo digo por el nombre que tiene "DBgrid1".

Saluditos