NJNEWS
|
AMPARO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 16/05/2011 23:58 hs
Public Sub Preenche_Lista()
ListaP.ListItems.Clear
Do Until RS.EOF
Set Lst = ListaP.ListItems.Add(, , RS(0))
Lst.SubItems(1) = "" & RS("NomeP")
Lst.SubItems(2) = "" & RS("FoneP")
Lst.SubItems(3) = "" & RS("DtaConsulta") RS.MoveNext
Loop
End Sub
|
|
|
|
|
|
Almir
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/05/2011 07:43 hs
Tente desta Forma Public Sub Preenche_Lista(ListaP As ListView,rs As Recordset)
Dim Lst As ListItem
ListaP.ListItems.Clear
Do Until RS.EOF
Set Lst = ListaP.ListItems.Add(, , RS(0))
Lst.SubItems(1) = "" & RS("NomeP")
Lst.SubItems(2) = "" & RS("FoneP")
Lst.SubItems(3) = "" & RS("DtaConsulta")
RS.MoveNext
Loop
End Sub |
|
|
|
NJNEWS
|
AMPARO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/05/2011 07:57 hs
da erro no Load Private Sub Form_Load()
'chama a sub de conexão com o banco de dados
Verifica_RS
rs.Open "SELECT * FROM Cad_Paciente", CnSql
Preenche_Lista
End Sub |
|
|
|
NJNEWS
|
AMPARO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/05/2011 12:26 hs
Eu tenho um outro modo de usar isso, é no MSFLEXGRIG mais o ruim é que fica muito lenta a pesquisa... |
|
|
|
Almir
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/05/2011 13:33 hs
Njnews;poste seu codigo deste a declaração das variavéis até a abertura do banco e tabela e preenchimento do listiview.Ai vamos tentar descobrir o erro. |
|
|
|
|
|
Postada em 17/05/2011 17:25 hs
em qual linha da o erro.
|
|
|
|
