Visual Basic - Tabla de datos en vb6

Life is soft - evento anual de software empresarial
 
Vista:

Tabla de datos en vb6

Publicado por Ruben (5 intervenciones) el 13/07/2020 19:04:14
Buen dia , tengo un inventario el cual ya esta terminado solo que me gustaría ponerle una lista que me muestre los datos de la tabla access que estoy manejando , simplemente que los muestre no es necesario que interactúe con algún botón.

E visto que se usa combo list
Datagrid o algo asi

No soy programador pero me interesa el tema,

Mi programa es vb6.0 y uso acces2010 en windows 7

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Load()
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
 
con.Open "Provider=Microsoft.jet.OLEDB.40;Data Source=C:\Users\User\Desktop\inventario\proyecto inventario"
Database.mdb: PersistSecurityInfo = False
rs.CursorLocation = adUseClient
rs.Open "Select*from proyecto inventario_Info", con.adOpenKeyset, adLockPessimistic, adcmdtxt
SetDataGrid1.DataSource = rs
DataGrid1.Refresh
Setrs = Nothing

Intente con este pero me salen algunos errores que no entran en mi comprenncion.
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
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Tabla de datos en vb6

Publicado por Andres Leonardo (1798 intervenciones) el 13/07/2020 19:41:09
Con gusto

**PRegunto , pusiste las referencias, asi como los componentes de grid en el form?

Y si pones los errores seria improtante
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Tabla de datos en vb6

Publicado por ruben (5 intervenciones) el 13/07/2020 20:25:27
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load()
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
 
con.Open "Provider=Microsoft.jet.OLEDB.40;Data Source=C:\Users\User\Desktop\inventario\inventarios taller"
Database.mdb: PersistSecurityInfo = False
rs.CursorLocation = adUseClient
rs.Open "Select*from proyecto inventario_Info", con.adOpenKeyset, adLockPessimistic, adcmdtxt
SetDataGrid1.DataSource = rs
DataGrid1.Refresh
Setrs = Nothing
 
End Sub


Ese es mi from ,

Hay alguna forma de poner solo un listbox y que me muestre la tabla acces que estoy manejando sin tanto rollo?
Solo quiero ver la la lista que voy creando o modificando

C:\Users\User\Desktop\inventario\inventarios taller

esa es mi ub de acces
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Tabla de datos en vb6

Publicado por Andres Leonardo (1798 intervenciones) el 13/07/2020 21:52:26
Poe eso

cuando estes en el editor de visual --Proyectos --Referfencias

**Seleccionasl Microsoft Activex Data X.XX Objects. la version que tengas desde la 2.5 en adelante
el codigo es correcto solo te falta decir qeu tu codigo funcional con una tablade base de datos.

SAludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar