Como llenar un stringGrid a partir de un Query?
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:
pues como ven no me funciona me aparece ese error: Cita:
saludos... |
Re:
Cita:
Prueba ESTO:
|
gracias pcicom me funciono perfecto, ahora tengo otra consulta, luego de agregar los datos como enfoco a una celda específica y recorrer cada columna mediante tab o enter y que en la ultima columna vuelva el edit y agregar otra linea??...
|
bueno termine optando por usar un dbgrid, y he podido hacer lo que queria hacer, tengo:
1-DataSetProvider 1-ClientDataSet 2-ADOQuery1 y 2 1-Dataccess 1-Edit 1-DBGrid hice la siguiente configuración: ->DataSetProvider->DataSet->ADOQuery ->ClientDataSet->ProviderName->DataSetProvider ->DataAccess->DataSet->ClientDataSet supongo que esa configuración esta correcta, en el evento OnKeyDown del DBGrid puse este codigo:
en el evento OnKeyPress del Edit puse este codigo:
hasta todo bien se agregan los datos al dbgrid mediante un edit, ahora tengo este problema y es cuando intento grabar los datos, puse un boton con este codigo:
y me tira este error: Cita:
adjunto codigo: Archivo Adjunto 955 |
Hola,
Mientras estaba leyendo tu mensaje e iba por aquí... Código:
... values ("'+DBGrid1.fields[1].Value+'", "'+DBGrid1.Fields[2].Value+'", ... Código:
... "+double(0.00)", "+double(0.00)", "+double(0.00)", "", "", "", "") ... |
en realidad es un tollo de codigo dec, solo era una idea dado que es la primera vez que hago tipo de codigos, el codigo lo he dejado de esta manera:
y me sale ese error que tantas veces me lo han dicho ni me acuerdo: Cita:
debo aclarar que los campos donde puse '+double(0.00), son campos numericos con formato standard con decimal (3,579.00) lo quiero almacenar valores de costo, precios y montos, y estoy usando componentes ADO base de datos ACCESS.. |
Hola
No llevo seguimiento de esto pero creo que el problema puede ser el orden ademas del tipo de dato, prueba esto: Edito: trate de arreglarlo, no pude, lo hago en el siguiente post. Saludos |
Hola
Asi: Saludos |
[quote=pcicom;227652]Prueba ESTO:
Yo trabajando en DBE , lleno datos en un stringgrid asi: Código Delphi [-]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var c:integer;begin if Key=#13 then begin query.sql.Closequery.sql.Clear; query.SQL.Add(' SELECT ref, articulo, cantidad FROM articulos '); query.SQL.Add('WHERE ref = '+QuotedStr(Edit1.Text) ); Open; while not query.Eof do begin StringGrid1.Cells[1,c]:=query.Fields[0].asstring; //campo de cantidad StringGrid1.Cells[2,c]:=query1.Fields[1].asstring;//campo de articulo inc(c);query.next; end;if c=1 then ShowMessage('Articulo no existe'); query.close; end; end; Pero en un ADO ,debe ser a ese estilo o... no se. |
[quote=pcicom;227652]Prueba ESTO:
Yo trabajando en DBE , lleno datos en un stringgrid asi: Código Delphi [-]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var c:integer;begin if Key=#13 then begin query.sql.Closequery.sql.Clear; query.SQL.Add(' SELECT ref, articulo, cantidad FROM articulos '); query.SQL.Add('WHERE ref = '+QuotedStr(Edit1.Text) ); Open; while not query.Eof do begin StringGrid1.Cells[1,c]:=query.Fields[0].asstring; //campo de cantidad StringGrid1.Cells[2,c]:=query1.Fields[1].asstring;//campo de articulo inc(c);query.next; end;if c=1 then ShowMessage('Articulo no existe'); query.close; end; end; Pero en un ADO ,debe ser a ese estilo o... no se. |
Alguin sabes como crear un stringgrid a modo de un DBgrid?
(no se por donde puedo enviar a todos este mensaje...)
Quiero que mi StringGrid sea al modo del DBGrig. Es decir yo quiero que mi Stringgrid, sea al modo de el DBgrid, osea que las columnas se ajusten al modo del usuario usando el mouse,....al momento de ejecutarlo. Por favor ayudenme en ese problemita. Gracias. Johnnysan |
[quote=pcicom;227652]Prueba ESTO:
Yo trabajando en DBE , lleno datos en un stringgrid asi: Código Delphi [-]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var c:integer;begin if Key=#13 then begin query.sql.Closequery.sql.Clear; query.SQL.Add(' SELECT ref, articulo, cantidad FROM articulos '); query.SQL.Add('WHERE ref = '+QuotedStr(Edit1.Text) ); Open; while not query.Eof do begin StringGrid1.Cells[1,c]:=query.Fields[0].asstring; //campo de cantidad StringGrid1.Cells[2,c]:=query1.Fields[1].asstring;//campo de articulo inc(c);query.next; end;if c=1 then ShowMessage('Articulo no existe'); query.close; end; end; Pero en un ADO ,debe ser a ese estilo o... no se. |
como llenar un stringgrid
y como hay que hacer para llenar un stringgrid utilizando solo un zconection y un zquery que estan en un datamodul esto es con el Zeos Access
|
La franja horaria es GMT +2. Ahora son las 00:49:01. |
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