Consulta en Tabla

[[felipe88]]

Intenta un query simple:

Código SQL [-]
select respuesta from tu_tabla where pregunta = 'tu_pregunta'

O si usas la tabla, prueba con un Locate

[tcp_ip_es]

en esencia es lo que dice Felipe pero para completar....
En principio el Datasource no te serviría para nada ya que no tienes ningún
control que lo utilice yo utilizaría un Tquery y un database (entendiendo que accedes por BDE a la BD) con lo que nos quedaría:

1 button, 2 Edit, un query y un database

El database lo apuntas a la bd y el query al database y

Código Delphi [-]
//en el onbuttonclick del button
tuquery.clear;
tuquery.add('select respuesta from tu_tabla where pregunta = ''' +Editpregunta.text + '''');
tuquery.open;
if not(tuquery.isempty) then
 editrespuesta.text:=tuquery.fieldbyname('respuesta').asstring
else
 editrespuesta.text:='No existe respuesta a tu pregunta.';
//fin del onbuttonclick del button

[*Caro*]

Hola de nuevo Abuelo7, puedes utilizar la función Locate para buscar la pregunta, si la opción es loPartialKey te hara una busqueda aproximada si es loCaseInsensitive te hara una busqueda exacta sin tomar en cuenta mayusculas y minusculas.

Código Delphi [-]
 //Si el locate nos devuelve True, es porque a encontrado
 if Table1.locate('pregunta',EditPregunta.Text,[loCaseInsensitive]) then  
  begin
    //En esta linea solo estamos colocando otro campo en el edit2
    EditRespuesta.Text := Table1.fieldByName('respuesta').AsString;
 
   //En vez de la anterior linea entraria el codigo que te puse al principio
   //porque ya estamos posicionados sobre esa pregunta
  end;

Yo te aconsejo que utilises un query en vez un table, también trae la función Locate y se usa de la misma forma, ademas que tienes opción para hacer consultas. Una observación, no sería mejor que al usuario le permitieras escoger la pregunta en vez de que la escriba, porque si es una pregunta larga y no la escribe bien, no la encontrara.

Saluditos

[Abuelo7]

Hola a todos.
Ante todo muchas gracias a vosotros por vuestra ayuda.Al fin lo conseguí.

Lo he hecho como tú me decías amigo Caro.
En cuanto a lo que me comentas de que el usuario escoja la pregunta, no es posible por una razón.

Lo que estoy empezando a construir es un programa de IA, donde el usuario entrará una frase o palabra y el programa contestará, si encuentra, con alguna frase o palabra asociada.

En principio tengo una tabla para hacer la prueba, que ha resultado bien, la tabla tiene 3 preguntas y tres respuestas.
Buenos días, contesta--muy buenos
Buenas tardes,contesta--buenas las tengas
Hola, contesta--hola amigo.

Esta prueba ha ido perfecta.

Ahora lo siguiente es que tanto la entrada como la salida aparezcan en un ListBox, con lo cual el usuario irá viendo como va la conversación.

Ademas y a ser posible en lugar de una respuesta, habrán varias, y que con un Randomize contestará una de ellas aleatoriamente.

Bueno y muchas mas ideas que tengo para ir haciendo.

Que os parece?

Creo que no está mal para mis 70 años.

Un cordial saludo.

[*Caro*]

Empezado por Abuelo7

Lo he hecho como tú me decías amigo Caro.

Soy amiga, amiguito Abuelo7.

Sobre añadir al ListBox, tendras que hacerlo, una vez que encuentra la respuesta.

Código Delphi [-]
  ListBoxPreguntas.Items.Add(RespuestaCad);
  ListBoxRespuestas.Items.Add(EditPregunta.Text);

Saluditos

[Abuelo7]

Perdona amiga Caro.

Repito gracias por todo.
Estupendo lo del ListBox.

Ya te tendré al corriente de como voy desarrollando el tema.

Saludos cordiales.
Manuel Reixach

[yusnerqui]

[quote=Caro]
Soy amiga, amiguito Abuelo7.
[quote]

Menos mal, me tranquiliza que yo no sea el único

[yusnerqui]

[quote=Caro]
Soy amiga, amiguito Abuelo7.
[quote]

Menos mal, me tranquiliza que yo no sea el único

[*Caro*]

Empezado por yusnerqui

Menos mal, me tranquiliza que yo no sea el único

No eres el unico amiguito, solo ayer, en 3 hilos me han llamado amigo .

Empezado por Abuelo7

Ya te tendré al corriente de como voy desarrollando el tema.

Ok

Saluditos