Red de conocimiento informático - Problemas con los teléfonos móviles - Problema de conexión de vb listview. . . . ¿Quién puede enseñarme...?

Problema de conexión de vb listview. . . . ¿Quién puede enseñarme...?

ColumnHeaders.Add , , "Opción A"

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

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