Problema de conexión de vb listview. . . . ¿Quién puede enseñarme...?
ListView1.ColumnHeaders.Add , , "Opción B"
ListView1.ColumnHeaders.Add , , "Opción C"
ListView1.ColumnHeaders.Add, , "Respuesta"
ListView1.ColumnHeaders.Add. Agregar, "Respuesta"
ListView1.ColumnHeaders.Add, "Juicio", 1000
Atenuar r como nuevo ADODB.Recordset
Atenuar SQL como cadena p>
Dim itmx As ListItem
ListView1 .ListItems.Clear
'SQL="select top " amp; txtTS amp " * from tiku order by newid()"
SQL = "select top " & txtTS & " * from tiku donde categoría='" & cmbLB & "' ordenar por rnd(idd)"
Abre SQL, cn.
Hacer mientras no esté r.EOF
Establecer itmx = ListView1.ListItems.Add
itmx.Text = Trim(r. idd amp; ")idd amp " ")
itmx.SubItems(1) = Trim(r!Title amp; " ")
itmx.SubItems(2) = Trim(r! A amp; " ")
itmx.SubItems( 3) = Trim(r!b amp; " " )
itmx.SubItems(4) = Trim(r!c amp; " " )
itmx.Tag = UCase(Trim(r!answer amp; " "))
r.MoveNext
Bucle
r .Cerrar
Fin Sub