Va el codigo...
sel =
"SELECT a.CodigoScanner, a.Descripcion, a.PrecioDeLista as Precio, cp.Cantidad, cp.Talle, cp.Color "sel = sel &
" FROM ClienteFrec_Datos cd, ClienteFrec_Plu cp, Articulo a "sel = sel &
" WHERE cp.Fecha >= # "&Me.fecha1.Value.ToShortDateString & "#"sel = sel & " AND cp.Fecha <= #"& Me.fecha2.Value.ToShortDateString & "#"
sel = sel &
" AND cd.IdClienteFrec=cp.IdClieFrec "sel = sel &
" AND a.CodigoUnico=cp.CodigoUnico"sel = sel &
" AND cp.Sucursal= cd.Sucursal"sel = sel &
" AND cd.Grupo=cp.Descuento_Acumulador"sel = sel &
" AND cd.Sucursal="& Val(grilla1.Rows(grilla1.CurrentCellAddress.Y).Cells(0).Value())sel = sel &
" AND cd.Apellido='"& grilla1.Rows(grilla1.CurrentCellAddress.Y).Cells(3).Value() & "'"sel = sel &
" AND cd.IdClienteFrec= "& Val(grilla1.Rows(grilla1.CurrentCellAddress.Y).Cells(1).Value())Dim odbda AsNew OleDb.OleDbDataAdapter(sel, odbCnn1)Dim dT = New DataTable
odbda.Fill(dT)
Grilla2.DataSource = dT
Grilla2.Refresh()
A la conexion a la base de datos la tengo en un modulo:
Module
Module1Public odbCnn1 As System.Data.OleDb.OleDbConnectionPublicSub Abrir1()Dim connectionString AsString
connectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\BD.mdb;"odbCnn1 =
New OleDb.OleDbConnection(connectionString)EndSub
End
Module
saludos.
![An American Tail [1986] [DVD5-R1] [Latino]](http://iili.io/FjktrS2.jpg)
