Pregunta: | 63036 - PASAR DATOS DE UN DBGRID A OTRO BASE DE DATOS FIREBIRD |
Autor: | jose perez |
buenas tardes mi problema es que quiero hacer uno modulo de ventas en donde tengo dos dbgrid, en el primero ya hice la consulta y me esta funcionando bien es decir coloco en un edit el producto a vender y en el primer dbgrid me salen en articulo el hecho es que no se como hacer para que cuando yo seleccione el producto en esta dbgrid pase al segungo. utilizo delphi 6 + firebird 1.5 tengo el siguiente codigo en el edit1 para que me bustre la busqueda en el dbgird procedure TVenta.Edit1Change(Sender: TObject); VAR A: string; begin A := '%'+edit1.text+'%'; Tablas.adicionar2.Database:=Tablas.BaseDatos; Tablas.adicionar2.Transaction:=Tablas.Transaccion; DataS1.DataSet:= Tablas.adicionar2; dbgrid1.DataSource:=DataS1; tablas.adicionar2.sql.text:='select * from productos where nombre LIKE '''+A+''''; Tablas.adicionar2.Active:= true; edit1.SetFocus; end; |