Hola compañeros del foro, ahora estoy empezando a trabajar con StringGrids, he intentando llenar datos a partir de un query, ese es el codigo que he estado tratando de hacer:
Código Delphi
[-]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then begin
with QArticulo do begin
if active then Close; sql.Clear; SQL.Add(' SELECT ref, articulo, cantidad FROM articulos ');
SQL.Add('WHERE ref = '+Edit1.Text+'');
Open;
if not IsEmpty then begin
StringGrid1.Cells[1,1]:=fieldbyname('ref').AsString;
StringGrid1.Cells[2,1]:=fieldbyname('aticulo').AsString;
end else begin
ShowMessage('Articulo no existe');
end;
end;
end;
end;
pues como ven no me funciona me aparece ese error:
Cita:
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EOleException with message 'Parameter Q2612A has no default value'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
|
Estoy trabajando con ADO, nota es la primera vez que trabajo con stringGrids y no he documentacion suficiente acerca de ello a menos que este buscando mal, espero que me puedan echar una mano con eso.
saludos...