pasar datos de listbox a una tabla
Publicado por nick (1 intervención) el 15/01/2019 05:09:09
Saludos a todos me pudieran ayudar con este codigo el cual pretende como menciona el encabezado pasar los datos de listbox a una tabla usando sentencias SQL lo intente de esta manera:
si alguno sabe como mejorar el codigo para que funcione se los agradeceria mucho
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
ABRIR_RS 'Crea el objeto recordset
Sql = "Select*from [productos$]"
Rs.Open Sql, Cnn, 1, 1
With Lista 'listboxFor i = 0 To .ListCount - 1
Rs.AddNewRs!ID = .List(i, 0)
Rs!CODIGO = .List(i, 1)
Rs!ARTICULO = .List(i, 2)
Rs!PVP = .List(i, 3)
Rs!IVA = .List(i, 4)
Rs!MEDIDA = ComboBox1.List(ComboBox1.ListIndex, 0)
Rs!CATEGORIA = ComboBox2.List(ComboBox2.ListIndex, 0)
Rs!STOCK_MINIMO = .List(i, 7)
Rs!ESTATUS = .List(i, 8)
Rs.UpdateNext i
End With
CERRAR_RS 'cierra el recordsetsi alguno sabe como mejorar el codigo para que funcione se los agradeceria mucho
Valora esta pregunta
0