conectar ListBox con Datagrid
Publicado por Lucas (1 intervención) el 07/10/2015 04:40:05
Hola a todos, necesito ayuda al conectar un listbox que contiene los proveedores y cuando se selecciona un proveedor, me muestre en un datagrid todas las boletas de ese proveedor, Ya e probado con muchas formas
y e llegado hasta aquí, que me muestra rápidamente las boletas en el datagrid pero desaparece al instante,
El que me pueda ayudar muchas gracias, soy nuevo en esto. Saludos
y e llegado hasta aquí, que me muestra rápidamente las boletas en el datagrid pero desaparece al instante,
El que me pueda ayudar muchas gracias, soy nuevo en esto. Saludos
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub List1_Click()
Set rs = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
conectar 'llena el list con los proveedores
rs.ActiveConnection = DBconnect
rs.Source = "SELECT RUC FROM Proveedores WHERE Nombre = '" & List1.Text & "';"
rs.Open '''Chequeo que haya RUC en el proovedor consultado'''
If (rs.BOF And rs.EOF) Then
MsgBox "Error, este proovedor no tiene RUC."Else
'''Obtengo los datos para el DataGrid
rs2.CursorLocation = adUseClient
rs2.LockType = adLockOptimistic
rs2.Open "SELECT * FROM Compras WHERE RUC = '" & rs!RUC & "';", DBconnect, adOpenStatic
If Not (rs2.BOF And rs2.EOF) Then
Set DataGrid1.DataSource = rs2
DataGrid1.RefreshEnd If
End If
rs2.Close 'rs.Close
DBconnect.CloseEnd Sub
Valora esta pregunta
0