Almacenamiento de varios registros.

[carlos79]

Estimados amigos miren lo siguiente :

Option Explicit

Dim Tabla() As Clientes

Private Type Clientes
cod_producto as integer
producto as string
End Type


Private Sub List1_Click()

Dim bandera As Boolean
Dim f As Long
Dim i As Integer

For i = 0 To List1.ListCount - 1

If List1.Selected(i) = True Then
Text11.Text = List1.ItemData(i)
End If

Next

For i = 0 To UBound(Tabla) - 1
If Tabla(i).cod_producto = Text11.Text Then
bandera = True
Exit For
End If
Next i
If Not bandera Then
i = UBound(Tabla)
Tabla(i).cod_producto = Text11.Text
ReDim Preserve Tabla(i + 1)
Else
MsgBox "El valor ya ha sido agregado"
End If

End Sub


Private Sub Command6_Click()

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim i As Long

On Error Resume Next

Set cnn = New ADODB.Connection
cnn.ConnectionString = "DRIVER={mysql odbc 3.51 driver};" _
& "SERVER=11.11.11.11;" _
& "Database=seg;" _
& "UID=segi;" _
& "password=dsfSFsdfSVsd;" _
& "port=3306;option3 "

cnn.Open

Set rst = New ADODB.Recordset

For i = 0 To UBound(Tabla) - 1
With rst
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open "INSERT INTO tb_plan VALUES ('" & Tabla(i).cod_producto & "')", cnn


End With
Next
' cnn.Close

End Sub



Les explico como opera el control :

Yo cargo el listbox con productos... y le pongo como indice el código de ese artículo.... Cuando yo le hago click por ejemplo al producto "JAMON", en un control de texto me coloca el código de ese cliente (22)... Pero si elijo varios productos, en ese text box me va colocando uno por uno los códigos.

Que pasa... Cuando yo le de al botón "GRABAR" el debe agarrar TODOS los códigos que fuéron almacenados en la matriz e irlos pasando uno a uno con su descripción para almacenarlos a la base de datos...


No me genera ningun error en tiempo de ejecución pero cuando consulto la base de datos no me almacena valores... me pueden ayudar ??

Gracias y disculpen mi torpeza !!!

Saludos.

Carlos.