abrir 3 tablas en un solo formulario

[waldobh]

Bueno hola amigo el problema que tengo es que yo deseo hacer uh formulario que me contenga datos de tres tablas, tienda,vendedores yproductos... y a la vez que tenga un grid mostrando los datos de los que se logran inssertar a l momento de seleccionar los campos de c/tabla..espero me entiendan este trabalengua y laverdad no se como hacerlo....quiero hacerlo en codigo no con el componete adodc...sino con eso de Microsft Object 2.0.....
Bueno espero su pronta respuesta..ah y tambien quiero saber como puedo hacer que una vez insertado los datos de las 3 tablas a la 4 tabla me muestran solo los productos seleccionados el dia actual.
BUeno gracos por todo



Cualquier alcance sera de gran ayuda!!!!

[GeoAvila]

bueno mira aqui tento abiertas dos tables pero asi podes abrir las que querras..

Código:

Dim Cxn As Connection
Function Buscar_Facs(Nit As String)
Dim AdoS As New Recordset
Set AdoS = New Recordset
AdoS.Open "SELECT `cxc`.`no_factura`, `cxc`.`nit_cliente`, `cxc`.`no_ingreso`, `cxc`.`fecha`, `cxc`.`total`, `cxc`.`descripcion`, `cxc`.`observaciones`, `cxc`.`cancelado` FROM `cxc` WHERE (`cxc`.`cancelado` = 0) AND (`cxc`.`nit_cliente` = '" & Nit & "') ORDER BY `cxc`.`fecha`", Cxn, adOpenStatic, adLockOptimistic
Set CboFactura.DataSource = AdoS
Set CboFactura.RowSource = AdoS
CboFactura.BoundColumn = "no_factura"
CboFactura.ListField = "no_factura"
If AdoS.RecordCount > 0 Then
CboFactura.Enabled = True
CmdIrFac.Enabled = True
Else
CboFactura.Enabled = False
CmdIrFac.Enabled = False
End If
End Function
Function Buscar_Datos_Fac(NoFacturaS As String, Nit As String)
Dim AdoF As New Recordset
Set AdoF = New Recordset
AdoF.Open "SELECT `cxc`.`no_factura`, `cxc`.`nit_cliente`, `cxc`.`no_ingreso`, `cxc`.`fecha`, `cxc`.`total`, `cxc`.`descripcion`, `cxc`.`observaciones`, `cxc`.`cancelado`, `cxc`.`fecha_vencimiento`, `cxc`.`total_operado` FROM `cxc` WHERE (`cxc`.`cancelado` = 0) AND (`cxc`.`nit_cliente` = '" & Nit & "') AND (`cxc`.`no_factura` = '" & NoFacturaS & "')", Cxn, adOpenStatic, adLockOptimistic
Clean
If AdoF.BOF = False Then
Me.LblFechaFac.Caption = AdoF("fecha")
Me.LblFechaFacV.Caption = AdoF("fecha_vencimiento")
Me.LblValorFac.Caption = Format$(AdoF("total"), "########0.00")
End If
End Function
Private Sub Form_Load()
Set Cxn = New Connection
Cxn.CursorLocation = adUseClient
Cxn.Open CxnFac ' aqui tu conexion a la base de datos..
End Sub

espero te sirva el ejemplo.

nos vemos..