Utiliza el control: CommonDialog
tutorial aquí: http://www.recursosvisualbasic.com.ar/htm/tutoriales/control-commondialog.htm
tutorial aquí: http://www.recursosvisualbasic.com.ar/htm/tutoriales/control-commondialog.htm
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúSELECT CLIENTE, MAX(CIUDAD) AS CIUDAD FROM CLIENTES GROUP BY CLIENTE
RS.Open "SELECT DISTINCT CLIENTE FROM CLIENTES", DBConex, adOpenStatic, adLockReadOnly
If RS.RecordCount > 0 Then
Dim list_item As ListItem
Do While Not RS.EOF
Set list_item = ListView1.ListItems.Add(, , ,)
list_item.SubItems(1) = RS!CLIENTE
list_item.SubItems(2) = RS!CIUDAD
RS.MoveNext
DoEvents
Loop
End If
RS.Close
Set RS = Nothing