FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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 |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Ayuda en busqueda usando ADO | Victor Vega | SQL | 6 | 06-09-2007 06:21:35 |
Ayuda con la busqueda en una tabla | mjjj | Conexión con bases de datos | 5 | 02-04-2007 23:48:12 |
¿Alguien me ayuda con la busqueda? | sergiotur | Tablas planas | 3 | 06-03-2007 20:52:34 |
Ayuda Con Busqueda En Un Filelistbox | rob1 | Varios | 4 | 20-09-2005 01:47:02 |
Ayuda a completar una busqueda | salvanano | SQL | 10 | 20-05-2005 20:06:56 |
|