CARGAR COMBO - VB-MUNDO

karl · #1 (**permalink**) 15-10-2005, 07:53:50

SALUDOS AMIGOS, tengo un problema con el llenado de un combo y no he podido

TENGO UN COMBO2 DONDE CARGO LAS LINEAS Y TENGO OTRO COMBO3 PARA CARGAR LAS SUBLINEAS, LA IDEA ES QUE CUANDO DE CLICK EL LA LINEA ME MUESTRE EN EL COMBO3 LAS SUBLINEAS PERTENECIENTES A LA LINEA ESCOJIDA EN EL COMBO2

SERA QUE ALGUIN ME PUEDE AYUDAR

Private Sub Cargarlinea()

Dim Cn As New ADODB.Connection
Dim ruta As String

ruta = App.Path & "\SystemChi_final.mdb"
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path + "\SystemChi_final.mdb" & ";" & _
"Jet OLEDB

atabase Password=aml"

Set j = New ADODB.Recordset
With j
.Open "SELECT * FROM TblLinea ORDER BY DescripcionLinea", Cn, adOpenStatic, adLockOptimistic
If .RecordCount > 0 Then
Do While Not .EOF
Combo2.AddItem !DescripcionLinea
Combo2.ItemData(Combo2.NewIndex) = !CodigoLinea

.MoveNext
Loop
End If
.Close
End With

End Sub

Private Sub Combo3_Click()

Dim Cn As New ADODB.Connection
Dim ruta As String

ruta = App.Path & "\SystemChi_final.mdb"
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path + "\SystemChi_final.mdb" & ";" & _
"Jet OLEDB

atabase Password=aml"

Dim j As New ADODB.Recordset

With j
.Open "SELECT * FROM TblSublinea WHERE CodigoLinea = " & Combo2.ItemData(Combo2.ListIndex) & " ORDER BY DescripcionSublinea", Cn, adOpenStatic, adLockOptimistic
If .RecordCount > 0 Then
Do While Not .EOF
Combo3.AddItem !DescripcionSublinea
Combo3.ItemData(Combo3.NewIndex) = !CodigoSublinea

.MoveNext
Loop
End If
.Close
End With

End Sub

Private Sub Command1_Click()
FrmLinea.Show
End Sub

Private Sub Command2_Click()
FrmSublinea.Show

End Sub

Private Sub Form_Load()
DTPicker1.Value = Date
Call Cargarlinea
'Call Combo3_Click
Call Cargar_proveedores
End Sub

Private Sub Cargar_proveedores()

Dim Cn As New ADODB.Connection
Dim ruta As String

ruta = App.Path & "\SystemChi_final.mdb"
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path + "\SystemChi_final.mdb" & ";" & _
"Jet OLEDB

atabase Password=aml"

Set j = New ADODB.Recordset
With j
.Open "SELECT * FROM TblProveedores ORDER BY NombreProveedor", Cn, adOpenStatic, adLockOptimistic
If .RecordCount > 0 Then
Do While Not .EOF
Combo1.AddItem !NombreProveedor
Combo1.ItemData(Combo1.NewIndex) = !NitProveedor

.MoveNext
Loop
End If
.Close
End With

End Sub

J.M.Movilla · #2 (**permalink**) 15-10-2005, 10:32:35

No lo tomes como reprimenda; sólo como lo que es: mi intención de ayudarte:

No te has sentado a pensar lo que quieres hacer ANTES de empezar tu proyecto... Si lo hubieras pensado antes, no estarías venga a establecer la misma conexión en cada subrutina... Ni habrías despreciado la memoria que ocupas al definir la variable "ruta" para nada... En todas las subrutinas describes ruta = App.Path & "\SystemChi_final.mdb"
y a renglón seguido pones "Data Source=" & App.Path + "\SystemChi_final.mdb", cuando lo lógico parece ser que pusieras "Data Source=" & Ruta, ¿no te parece?

Pero es más importante lo referido a las conexiones... Lo que tienes que hacer es definir la conexión una sola vez, cuando ejecutes el Form_Load... Y cierras esa conexión cuando hagas el Form_UnLoad.

Aparte de eso, no veo cuándo quieres llenar esos combos que pones, porque no sé si las líneas llevan o no relación con los proveedores. Supongo que sí, pero no veo por dónde. Y es que lo tienes todo tan lleno de líneas supérfluas, que se pierde uno entre tanto maremagno... Haz eso que te he dicho, deja el proyecto lo más limpio posible y mira a ver si continúas con una pregunta concreta: en tal línea me da tal error, o cuando pulso en Comando1 no me hace nada y yo quisiera que hiciese tal cosa. Así puedes estar seguro de que recibirás la respuesta adecuada, como tú bien sabes que te ocurre siempre; pero antes haznos el favor de ayudarnos tú también.

karl · #3 (**permalink**) 15-10-2005, 20:23:58

el codigo que puse es referente al formulario de ingreso de articulos, por eso cargo los proveedores, para cuando ingrese un nuevo articulo pueda escojer el proveedor que me lo vendio, si no esta en la lista puede ir a crearlo.

mi problemas es que la lineas me cargan bien pero en las sublineas no me aparece nada no me carga las sublineas deacuerdo a la linea que escoja

J.M.Movilla · #4 (**permalink**) 15-10-2005, 23:50:41

¿Sabes, Carlos? Yo te hablo de una cosa, tú contestas lo que a tí te va... (aquí se dice "contestas por peteneras"...) Das por hecho que ya sabemos de qué va lo que cuentas "teóricamente" por primera vez... y resulta que es que este tema que acabas de abrir es en realidad continuación de otros temas que has abierto en otras ocasiones... Lo cuelgas en el foro de Crystal Report y tu tema va del ComboBox... ¿De verdad crees que así podemos enterarnos de algo?

Lo que me extraña es que tú llegues a enterarte... Dentro de una temporadita, cuando te pongas a revisar tu propio código vas a volverte loco tratando de situarte...

Pierde unas horas en ordenarlo todo, y con ello ganaras días enteros, y sobre todo salud mental...

Para más inri, me bajo de nuevo tu proyecto y me encuentro con que todo lo que te corregí hace días, con lo que ya funcionaba esto de cargar los combos está otra vez como lo tenías tú, sin que hayas actualizado los cambios que yo te hice... De verdad que se le hace a uno cuesta arriba comprobar que el tiempo invertido es tiempo perdido... ¿qué quieres que te diga?