SoloCodigo

k tal, ahora les pido ayuda por lo siguiente:
 tengo un objeto SQL en una forma donde tengo tambien un DBGrid, un Edit y un botón ke se supone k al precionarlo me debe dejar en el DBGrid solo los datos k contengan en el campo 'Folio' de mi tabla lo ke contenga el Edit, mi codigo está de la siguiente manera en el botón:


y el siguiente en la propiedad SQL->Tstrings



la tabla no la tengo en un DataModule, sino en la forma1, y el error ke me da es el siguiente:

"EDBEngineError Type mismatch expression"

gracias!!  

Hola mustang!

 Esa excepción salta porque no puede conectar a la Base de Datos, asegurate que tienes bien enlazado el query, en su propiedad DatabaseName introduce el Alias de la base de datos. Revisa que las rutas esten bien especificadas  .

 Chao!

Hola!

oye pues fijate que ya revise lo ke me comentabas y todo está en su lugar, el databasename esta bien ligado con mi base de datos, y tengo los demas elementos bien tambien, como el data source y el dbgrid, no tendras por ahi ahi otra opcion??

de ante mano gracias!!

Type mismatch expression, Mira este error sale cuando el query no tiene un valor para hacer la consulta por ejemplo:

Select * from encuesnta where folio='hgf
o
Select * from encuesnta where folio=

En si lo que significa la excepción es que un valor se perdio en la expresición, puede ser que el parametro no lo mandes bien, puedes hacer esto si usar parametros:

Query1.Close;
Query1.SQL.Text:='select * from encuesta where Folio ='+Edit1.Text;
Query1.Active:=true;

yo creo que con esto funcionara perfectamente pruebalo y si no sirve me avisas.

 

Type mismatch expression, Mira este error sale cuando el query no tiene un valor para hacer la consulta por ejemplo:

Select * from encuesnta where folio='hgf
o
Select * from encuesnta where folio=

En si lo que significa la excepción es que un valor se perdio en la expresición, puede ser que el parametro no lo mandes bien, puedes hacer esto si usar parametros:

Query1.Close;
Query1.SQL.Text:='select * from encuesta where Folio ='+Edit1.Text;
Query1.Active:=true;

yo creo que con esto funcionara perfectamente pruebalo y si no sirve me avisas.

 

oigan muchisias gracias a los dos makio y ayla, sus dos maneras funcionan bien!!! les agradezco el tiempo ke les tomo escribir,
hasta pronto!!
y gracias de nuevo

Como lo quieres guardar no se puede, abrelo en el bloc de notas para que veas que te dejo, una forma para guardarlo en otra tabla seria creando la tabla y moviendo el resultado del query con un BacthMove, ve el codigo es sencillo:

procedure TForm1.Button1Click(Sender: TObject);
var
 Table:TTable; //Tabla
begin
  query1.FieldDefs.Update; //los campos que tiene el query se refrescan
  Table := TTable.Create(nil); //se crea la tabla
  Table.TableName := 'C:\TablaPaso';
  {La ruta donde la deseas guardar esto lo puedes hacer con un savedialog          con  ruta ya espeficada}
  Table.TableType := ttParadox   ; //tipode tabla en la ayuda puedes ver los tipos
  Table.FieldDefs.Assign(query1.FieldDefs);
  {se le asignan los campos del query a la tabla}
  Table.CreateTable ;
  //se crea la tabla con contenido
  //esto es para mover los registros del query a la nueva tabla
  batchmove1.Destination:=Table;
  batchmove1.Source:=Query1;
  batchmove1.Execute;
end;

esa es una forma otra seria exportandolo a Excel para eso necesitas un componente que se llama scExcelExport1 el codigo para ese componente seria asi:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if savedialog1.Execute then
 begin
  scExcelExport1.ExportDataset;
  scExcelExport1.SaveAs(savedialog1.FileName,ffXLS);
  scExcelExport1.Disconnect;
 end;
end;

solamente tienes que poner en la propiedad Dataset el query que quieras exportar.

Espero que te sirva de ayuda...
el componente lo encuentras en la inter buscalo...