Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   Problema con Búsqueda SQL Ayuda!!!!!!!!!:( (https://www.clubdelphi.com/foros/showthread.php?t=54523)

lKinGl 21-03-2008 19:19:12

Problema con Búsqueda SQL Ayuda!!!!!!!!!:(
 
Código Delphi [-]


procedure TForm8.RadioGroup1Click(Sender: TObject);
var
buscar:string;
begin
if RadioGroup1.ItemIndex=0 then
edit1.enabled:=true;
edit1.Clear;
dbgrid1.Enabled:=true;
if radiogroup1.ItemIndex=1 then
edit1.enabled:=true;
edit1.clear;
dbgrid1.Enabled:=true;
case RadioGroup1.ItemIndex of
0:edit1.Enabled:=true;
1:edit1.enabled:=true;
end;
end;
procedure TForm8.Edit1Change(Sender: TObject);
var
buscar:string;
begin
case RadioGroup1.ItemIndex of
0:buscar:='Select ced_cli,nom_cli,dir_cli,tel_cli From Database Where ced_cli Like "' + (Edit1.text) + '%"';
1:buscar:='Select ced_cli,nom_cli,dir_cli,tel_cli From Database Where ced_cli Like "' + (Edit1.text) + '%"';
end;
Query1.SQL.Clear;
Query1.SQL.Add(buscar);
Query1.Active:=True;
Query1.Open;
end;
procedure TForm8.DBGrid1CellClick(Column: TColumn);
begin
button1.Enabled:=true;
button1.SetFocus;
end;
procedure TForm8.FormCreate(Sender: TObject);
begin
button1.enabled:=false;
edit2.Visible:=false;
edit3.Visible:=false;
edit4.Visible:=false;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
Query1.DatabaseName:=ExtractFilePath(Application.ExeName)+'Data';
DataSource1.DataSet:=Query1;
DBGrid1.DataSource:=DataSource1;
end;
end.





Tengo este Form8
La Carpeta en donde se encuentra la base de datos se llama "Data"
La Tabla en Paradox7 se llama "Database"
Verifiqué que la tabla tuviera al menos 1 registro :(
Ya Revise los campos de mi tabla y están correctos :(

Dentro del Formulario Tengo un RadioGroup que tiene 2 opciones Cédula y Nombre si selecciono cédula la busqueda se ordena por cédula y si selecciono Nombre la búsqueda se ordena por Nombre

El problema que tengo es que cuando selecciono una de las opciones del radio group da este error

"Project Project1.exe raised exception class EDBEngineError with message 'Invalid use of keyword.
Token.Database
Line Number:1'. Process stopped. use Step or Run to continue."

Porfa Ayudenme con este error....Gracias Adelantadas

lKinGl 21-03-2008 19:48:25

Ya solucione el problema que tenia pero sigo con la duda

no entiendo porque al cambiar el nombre de la base de datos y Ajustar el codigo delphi "Database" a "datos" se quito el error

¿Tiene alguna importancia que el nombre de la tabla tenga una letra en mayuscula?

de Verdad no entiendo :mad:

Lepe 21-03-2008 21:30:01

Como dice el error "Database" es una palabra reservada de sql, así que no permite que la uses.

Intenta crear en delphi una variable:
"var integer : integer;"

¿a que no te deja? pues lo mismo.

Saludos

lKinGl 21-03-2008 21:32:16

Tienes razon si mal no recuerdo son sesenta y algo de palabras reservadas y no se pueden ni mirar por que si no da error gracias he quedado claro como el agua :D


La franja horaria es GMT +2. Ahora son las 09:22:18.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi