Visual Basic - conectar ListBox con Datagrid

Life is soft - evento anual de software empresarial
   
Vista:

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



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.Refresh
        End If
 
    End If
 
    rs2.Close
    'rs.Close
    DBconnect.Close
 
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder