Problemas Con Arrays

[emilio21]

Estoy Haciendo Una Aplicacion Donde Genero Automaticamente Una Cantidad De Checks Al Cual Por Supuesto Trabajan Con Arrays, Pero El Problema Es Que Quiero Enviar A La Base De Datos Los Checks Seleccionados. Por Ejemplo Si Seleccionan El Check Que Dice "hola" Quiero Que "hola" Se Envie A La Base De Datos. Si Pueden Ayudarme Se Lo Agradezco.

[jc_moty]

Proba asi:

Código:

For i = 0 To Check1.Count - 1
    If Check1(i).Value = 1 Then
        ' Sentencias para agregar datos a la BD
    End If
Next i

Como tenes un array de checks tenes que hacer referencia de que elemento del array queres obtener el caption.
Eso se hace con:
Check1(indice_de_elemento).Caption

Saludos.

[emilio21]

ok los he generado, pero me funciona con el print y el msgbox. me explico:

tengo por ejemplo 25 checks, con caption a1, a2, a3, a4, a5......... hasta a25, luego al momento de enviarlo a la base de datos me envia solo el ultimo que tengo seleccionado, por ejemplo si los tengo todos seleccionados envia a la base de datos el a25..... pero al momento de enviarlos a un list, o por print o msgbox me aparece todos los que tengo seleccionados, por ejemplo si tengo hasta el a6 seleccionado me aparecen todos, entonces como hago para que lo envie todos los seleccionados a la base de datos y con un "-" entre ellos.

Ej: a1-a6-a20-a21

gracias, necesito esto urgente por favor se los agradecere.

saludos!!!!!!