por favor foreros, no soy de molestar pero este problemita me tiene de estúpido desde hace una semana. resulta que no puedo conseguir que el valor que selecciono con el datacombo (datos que toma de la tabla lineas de la base de datos MaryKay.mdb) no muestra valores de la tabla Cosmeticos. Lo que pretendo es que al elegir una línea de cosméticos, muestre todos los productos de esa linea.
el código que generé es el siguiente:
Por favor necesito que me adviertan del error que tengo.
-----
Option Explicit
' variables de conexión para tabla Clientes
'
Dim Conex1 As ADODB.Connection
Dim RegisCLI As ADODB.Recordset
Dim Conex1String As String
Dim buscarnrocli As String
' variables de conexión para tabla Cosméticos para mostrar
' en el datagrid
Dim Conex2 As ADODB.Connection
Dim RegisCOSMET As ADODB.Recordset
Dim Conex2String As String
' variables de conexión para filtrar datos y mostrar
' en en dataCombo
Dim ConexDLIST As ADODB.Connection
Dim RegisDLIST As ADODB.Recordset
Dim ConexDLISTString As String
Dim FILTRAR As String ' toma el valor del datacombo para
' filtrar el recordset
'
Private Sub cmdCERRAR_Click()
'
Unload frmPEDIDOS
frmMARYKAY.Show
'
End Sub
Private Sub dcLINEA_Click(Area As Integer)
'
Set dgPROD.DataSource = RegisCOSMET
dgPROD.Refresh
'
End Sub
'
'
Private Sub Form_Load()
' Asignar fecha al cuadro de texto
txtFECHA = Date
'
Call nropedido ' Generar nro de pedido
'
'
Call conexcosme
Call conexfiltro
RegisDLIST.Open "Select LINlinea from Lineas group by LINlinea", ConexDLIST, adOpenStatic, adLockOptimistic
'
'
' preparar el DataList dcLINEA
Set dcLINEA.DataSource = RegisDLIST
Set dcLINEA.RowSource = RegisDLIST
dcLINEA.DataField = "LINlinea"
dcLINEA.ListField = "LINlinea"
dcLINEA.BoundColumn = "LINlinea"
' Call conexcosme ' Conectar a tabla Cosmeticos
RegisCOSMET.Open "Select * FROM Cosmeticos WHERE PRODlinea='" & dcLINEA.BoundText & "'", Conex2, adOpenStatic, adLockOptimistic
'
Set dgPROD.DataSource = RegisCOSMET
'
End Sub
'
Private Sub nropedido()
' Generar nro de pedido
'
End Sub
'
'
Private Sub txtNROCLI_LostFocus()
'
If txtNROCLI.Text = "" Then
MsgBox "Debe ingresar un Nro. de Cliente", vbCritical
txtNROCLI.SetFocus
Else
buscarnrocli = txtNROCLI.Text
Call verinrocli ' Verificar si existe nro de cliente
'
dcLINEA.SetFocus
End If
'
End Sub
'
Private Sub verinrocli()
'
' Crear connectionString, primero Proveedor y luego BD
Conex1String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=F:\Yoli\MaryKay.mdb"
'
' Setear la conexión
Set Conex1 = New ADODB.Connection
'
' Indicar a la conexión la cadena de conexión a utilizar
Conex1.ConnectionString = Conex1String
'
' Abrir la conexion
Conex1.Open
'
' Crear nuevo recordset
Set RegisCLI = New ADODB.Recordset
'
' Ligar conexión al recordset
RegisCLI.ActiveConnection = Conex1
'
' Filtrar el Recordset
RegisCLI.Open "Select CLInrocli, CLIapellido, CLInombre, CLIdomicilio from Clientes WHERE CLInrocli='" & buscarnrocli & "'", Conex1, adOpenStatic, adLockReadOnly
'
If RegisCLI!clinrocli = "" Then
MsgBox "No hay datos que coincidan con la búsqueda especificada", vbInformation
txtNROCLI.Text = ""
txtAPELLNOMB.Text = ""
txtDOMIC.Text = ""
txtNROCLI.SetFocus
Else
txtNROCLI.Text = RegisCLI!clinrocli
txtAPELLNOMB.Text = RegisCLI!cliapellido & ", " & RegisCLI!clinombre
txtDOMIC.Text = RegisCLI!clidomicilio
txtAPELLNOMB.Enabled = False
txtDOMIC.Enabled = False
End If
'
End Sub
Private Sub conexcosme()
' Crear ConnectionString, primero Proveedor y luego BD
Conex2String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=f:\yoli\marykay.mdb"
'
' Setear la conexión
Set Conex2 = New ADODB.Connection
'
' Indicar a la conexión la cadena de conexión a utilizar
Conex2.ConnectionString = Conex2String
'
' Abrir la conexión
'
Conex2.Open
' Crear nuevo RecordSet
Set RegisCOSMET = New ADODB.Recordset
'
' Ligar la conexión al Recordset
RegisCOSMET.ActiveConnection = Conex2
'
End Sub
'
Private Sub conexfiltro()
' Crear ConnectionString, primero Proveedor y luego BD
ConexDLISTString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=f:\yoli\marykay.mdb"
'
' Setear la conexión
Set ConexDLIST = New ADODB.Connection
'
' Indicar a la conexión la cadena de conexión a utilizar
ConexDLIST.ConnectionString = ConexDLISTString
'
' Abrir la conexión
'
ConexDLIST.Open
' Crear nuevo RecordSet
Set RegisDLIST = New ADODB.Recordset
'
' Ligar la conexión al Recordset
RegisDLIST.ActiveConnection = ConexDLIST
'
End Sub
------
