17 respuestas en este tema

[edgar_prospero]

que hay amigos aqui de nuevo con un problema, tratare de explicarme tengo una base de dtaos en mysql con informacion, como son folio nombre, fecha, precio, etc. bueno lo que quiero logra es que si pir ejemplo tengo folios del 1 al 50, en un tedit escribir un numero de folio por ejemplo 20 y al darle enter me traiga la informacion referente a ese folio y me lo muestre en el dbgrid lo intente de la siguiente manera pero nome funciono, haber si alguien me puede echar la mano:

delphi

procedure TForm4.folioKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
 
    tabla.Close;
    tabla.SQL.Text := 'select * from entradas where folio=:folio';
    tabla.Params[0].Value := folio.Text;
 
    tabla.Open;
 
        DBGrid1.DataSource.DataSet.FieldByName('nombre').value:= tabla.ParamByName('nombre').Value;
   DBGrid1.DataSource.DataSet.FieldByName('fecha').value:= tabla.ParamByName('fecha').Value;
..................

[poliburro]

qué error te aparece

[edgar_prospero]

'parameter 'nombre' not found'

[Fenareth]

Es porque no existe el parámetro "nombre" ni "fecha" 

Cámbialo por FieldByName 

delphi

procedure TForm4.folioKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
 
    tabla.Close;
    tabla.SQL.Text := 'select * from entradas where folio=:folio';
    tabla.Params[0].Value := folio.Text;
 
    tabla.Open;
 
        DBGrid1.DataSource.DataSet.FieldByName('nombre').value:= tabla.ParamByName('nombre').Value;  // AQUI
   DBGrid1.DataSource.DataSet.FieldByName('fecha').value:= tabla.ParamByName('fecha').Value; // Y AQUI
..................

Saludox !

[Nikolas]

delphi

procedure TForm4.folioKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  With tabla Do 
    begin
    Close;
    SQL.Text := 'select * from entradas where folio=:folio';
    ParamByName('folio').AsString:= folio.Text;
    Open;
    end: // With
  ...

[edgar_prospero]

gracias Fenareth pero ahora tengo el problema que nomas me agrega un registro de la base de datos, si tengo varios registros con el mismo folio nomas me pasa uno al dbgrid y me deberia de pasar todos

[Fenareth]

Porqué no ligas directamente tu DataSet (que veo que se llama Tabla) con el DBGrid que estás usando a través de un TDataSource ???

Algo así:

Suponiendo que tu DataSet se llama Tabla, el DataSource se llama dsDatos y el TDBGrid se llama GridDatos:

1. Propiedad DataSet del TDataSource (dsDatos)-> Tabla
2. Propiedad DataSource del TDBGrid (GridDatos) -> dsDatos

Y al momento de hacer el Open de Tabla, el grid GridDatos mostrará la información sin necesidad de que lo "agregues"...

Saludox !

[edgar_prospero]

si pues asi lo tengo pero no quiero que me muestre toda la informacion solo el los que contengan el numero de folio que ponga en el tedit, y que al darle clic me agregue al dbgrid los registros con ese numero de folio

[Fenareth]

El DBGrid únicamente muestra los registros que trae cargado el DataSet, ni más ni menos... si en la consulta de tu DataSet estás "filtrando" aquellos datos que coincidan con tu folio, el Grid no debe mostrar más que esos mismos datos...

Si el Grid te está mostrando más datos de los que deseas, el problema realmente no está en el Grid, si no en tu DataSet

Saludox !

[edgar_prospero]

exacto y ya logre que con el folio me mostrara un registro pero ese es el problema que si tengo 4 registros con el mismo folio  nomas me muestra el primero es en lo que estoy pidiendo apoyo, que me estara faltando hacer este es el codigo que estoy usando:

delphi

if Key = #13 then
begin
   query.Close;
    query.SQL.Text := 'select * from entradas where folio=:folio';
    query.Params[0].Value := folio.Text;
 
    query.Open;
 
     fecha.Date := query.FieldByName('fecha').AsDateTime;
    ClientDataSet1.Insert;
 
    ClientDataSet1.FieldByName('codigo').value:= query.FieldByName('codigo').Value;
     ClientDataSet1.FieldByName('nombre').value:= query.FieldByName('nombre').Value;
      ClientDataSet1.FieldByName('cantidad').value:= query.FieldByName('cantidad').Value;
       ClientDataSet1.FieldByName('precio').value:= query.FieldByName('precio').Value;
        ClientDataSet1.FieldByName('importe').value:= query.FieldByName('importe').Value;
             ClientDataSet1.Post;
 
    begin
      if Key = #13 then
      begin
        Key := #0;
        Perform(WM_NEXTDLGCTL, 0, 0);
      end
    end;
 
  end

[Fenareth]

Ok ahora comprendo... lo que te falta es recorrer el query con un ciclo (for o while) e ir instertando registro por registro al ClientDataSet

delphi

Query.First;
 
for i := 0 to Query.RecordCount do
 begin
      // Inserta en ClientDataset
      Query.Next;
 end;

Saludox !

[edgar_prospero]

intente lo que me dijiste de este modo pero me sigue mostrando nomas un registro este es mi codigo para que le eches un vistaso porfa para ver en que estoy mal

delphi

procedure TForm4.folioKeyPress(Sender: TObject; var Key: Char);
var i:integer;
begin
 
 
  if Key = #13 then
begin
 
   query.Close;
    query.SQL.Text := 'select * from entradas where folio=:folio';
    query.Params[0].Value := folio.Text;
 
    query.Open;
 
    Query.First;
 
for i := 0 to Query.RecordCount do
 begin
 
 
   ClientDataSet1.Edit;
    ClientDataSet1.FieldByName('fecha').value:= query.FieldByName('fecha').Value;
    ClientDataSet1.FieldByName('codigo').value:= query.FieldByName('codigo').Value;
     ClientDataSet1.FieldByName('nombre').value:= query.FieldByName('nombre').Value;
      ClientDataSet1.FieldByName('cantidad').value:= query.FieldByName('cantidad').Value;
       ClientDataSet1.FieldByName('precio').value:= query.FieldByName('precio').Value;
        ClientDataSet1.FieldByName('importe').value:= query.FieldByName('importe').Value;
         ClientDataSet1.Post;
 
         Query.Next;
 end;

[Fenareth]

Revisa ésta linea...

delphi

ClientDataSet1.Edit;

La idea es editar el DataSet o insertar una nueva línea en cada iteración del ciclo ??? 

Saludox !

[edgar_prospero]

es insertar ya cambie esa parte pero creo que no va por ahi el problema porque sigue nomas insertandome un solo registro y con ese folio tengo 3 en mi base de datos..

[Fenareth]

Acabo de hacer un ejemplo rapidísimo... te platico los componentes que utilicé y el cómo los ligué y también el código:

1. ZQuery llamado Query
2. ClientDataSet llamado CDSDatos
3. DataSetprovider llamado Prov
4. DataSource llamado dsDatos
5. DBGrid llamado Grid

La relación entre ellos es:

1. Prov en su propiedad DataSet -> Query
2. CDSDatos en su propiedad Provider -> Prov
3. dsDatos en su propiedad DataSet -> CDSDatos
4. Grid en su propiedad DataSource -> dsDatos

Coloqué un botón que manda llamar el siguiente código...

delphi

procedure TFormulario2.Button1Click(Sender: TObject);
var
 i: Integer;
begin
   cdsDatos.Open;
 
   Query.Close;
   Query.ParamByName('cobo').AsString := ' 1145624';
   Query.Open;
   Query.First;
 
 
   for i := 0 to Query.RecordCount - 1 do
     begin
       cdsDatos.Append;
       cdsDatos.FieldByName('num_cobo').AsString := Query.FieldByName('num_cobo').AsString;
       cdsDatos.FieldByName('num_fact').AsString := Query.FieldByName('num_fact').AsString;
       cdsDatos.Post;
 
       Query.Next;
     end;
end;

Y no tengo ningún problema en visualizar mis facturas en el Grid... algo no estamos haciendo bien por ahí... revísalo sale ? y nos comentas... 

Saludox !

[edgar_prospero]

excelente ya con esto vi donde estaba mi problema muchas gracias por tu tiempo en ayudarme 

[Fenareth]

Y dónde estaba el detalle amigo ??? 

Saludox !

[edgar_prospero]

aqui esta el codigo final que me funciono

delphi

procedure TForm4.folioKeyPress(Sender: TObject; var Key: Char);
var i:integer;
begin
 
  if Key = #13 then
begin
 
     ClientDataSet1.Open;
   query.Close;
    query.SQL.Text := 'select * from entradas where folio=:folio';
    query.Params[0].Value := folio.Text;
 
      query.Open;
  Query.First;
 
 
   for i := 0 to Query.RecordCount - 1 do
     begin
       ClientDataSet1.Append;
 
    ClientDataSet1.FieldByName('fecha').value:= query.FieldByName('fecha').Value;
    ClientDataSet1.FieldByName('codigo').value:= query.FieldByName('codigo').Value;
     ClientDataSet1.FieldByName('nombre').value:= query.FieldByName('nombre').Value;
      ClientDataSet1.FieldByName('unidad').value:= query.FieldByName('unidad').Value;
      ClientDataSet1.FieldByName('cantidad').value:= query.FieldByName('cantidad').Value;
       ClientDataSet1.FieldByName('precio').value:= query.FieldByName('precio').Value;
        ClientDataSet1.FieldByName('importe').value:= query.FieldByName('importe').Value;
       ClientDataSet1.Post;
 
       Query.Next;
     end;
 
    begin
      if Key = #13 then
    begin
        Key := #0;
        Perform(WM_NEXTDLGCTL, 0, 0)
 
 
      end
    end;
  end
 
end;