ATUALIZAR LISTVIEW
Pessoal, primeiramente Boa tarde
Comecei a programar em vb há uns 02 anos e por outros motivos tive que parar,
pois ainda estou lá na epoca do VB 6 com o DAO. Quero aproveitar um sisteminha
que tinha iniciado e para isso e minha ajuda que peço a vocês é o seguinte.
Tenho uma Banco de dados ACCESS 2003, com uma tabela de nome [Ô]AGENDA[Ô] e tem os
campos DATA_AGENDA, NOME_AGENDA. No formulario tenho um COMBO [Ô]Combo_Data[Ô] e um
listview [Ô]LstAgenda[Ô]. O QUE EU QUERO E ESCOLHER UMA DATA ATRAVES DO COMBO AI
JOGAR NO LSTAGENDA TODOS OS DADOS QUE TIVER A MESMA DATA NA TABELA COM A REFERIDA
DATA ESCOLHIDA NO COMBO.
Obs.: uso banco de dados ACCESS 2003 com DAO 3.6 VB5 E VB 6
Caso alguem possa me ajudar desde ja agradeço a boa vontade!!!!!!!
PROGVB5, BOA TARDE.
[ô]SE VOCÊ ADEQUAR O EXEMPLO ABAIXO PODE FUNCIONAR, OU PELO MENOS, TE DAR UMA IDéIA.
[ô]A CONEXÃO DESTE EXEMPLO é ADO
Public rs As New ADODB.Recordset
Public db As New ADODB.Connection
[ô]Função Abre conexão(Altere o caminho do seu banco de dados)
[ô]No Evento Iniciar de seu Form chame essa função(Call AbreConexao)
Function AbreConexao() As Boolean
On Error GoTo Erro
AbreConexao = False
Set db = New ADODB.Connection
db.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Base.mdb;jet oledb:database;[Ô]
AbreConexao = True
Erro:
If Err Then
MsgBox [Ô]Ocorreu um erro na conexão com o banco de dados. Verifique seu acesso ao servidor[Ô], vbCritical, [Ô]Erro[Ô]
Err.Clear
AbreConexao = False
End If
End Function
[ô]Para buscar a informação:
Dim sql as string
Dim Fim as double
sql = [Ô][Ô]
sql = [Ô]SELECT * FROM AGENDA WHERE DATA_AGENDA = [Ô] & [Ô] [Ô] & Combo_Data.Text & [Ô][Ô]
Set rs = New ADODB.Recordset
rs.Open sql, db, adOpenKeyset, adLockReadOnly
If Err Then
MsgBox Err.Description, vbCritical, [Ô]Erro[Ô]
Err.Clear
end if
If rs.EOF Then
MsgBox [Ô]Dados não encontrados. Verifique![Ô], vbOKOnly & vbExclamation, [Ô]Consulta![Ô]
Exit Sub
End If
[ô]Para preencher o listview
With LstAgenda
.View = lvwReport
[ô]Aqui cria colunas via código
With .ColumnHeaders
.Clear
.Add , , [Ô]Data Agenda[Ô], 80
.Add , , [Ô]Nome Agenda[Ô], 120
End With
.HideColumnHeaders = False
.Appearance = cc3D
.FullRowSelect = True
.AllowColumnReorder = True
[ô]Verifica dados da consulta sql
Fim = rs.RecordCount
For i = 1 To Fim
.ListItems.Add , , rs!DATA_AGENDA
.ListItems(i).ForeColor = RGB(0, 0, 0)
.ListItems(i).ListSubItems.Add , , rs!NOME_AGENDA
.ListItems(i).ListSubItems.Item(1).ForeColor = RGB(0, 0, 0)
rs.MoveNext
Next
end With
TESTE E REPORTE.
ATT.
RICK
[ô]SE VOCÊ ADEQUAR O EXEMPLO ABAIXO PODE FUNCIONAR, OU PELO MENOS, TE DAR UMA IDéIA.
[ô]A CONEXÃO DESTE EXEMPLO é ADO
Public rs As New ADODB.Recordset
Public db As New ADODB.Connection
[ô]Função Abre conexão(Altere o caminho do seu banco de dados)
[ô]No Evento Iniciar de seu Form chame essa função(Call AbreConexao)
Function AbreConexao() As Boolean
On Error GoTo Erro
AbreConexao = False
Set db = New ADODB.Connection
db.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Base.mdb;jet oledb:database;[Ô]
AbreConexao = True
Erro:
If Err Then
MsgBox [Ô]Ocorreu um erro na conexão com o banco de dados. Verifique seu acesso ao servidor[Ô], vbCritical, [Ô]Erro[Ô]
Err.Clear
AbreConexao = False
End If
End Function
[ô]Para buscar a informação:
Dim sql as string
Dim Fim as double
sql = [Ô][Ô]
sql = [Ô]SELECT * FROM AGENDA WHERE DATA_AGENDA = [Ô] & [Ô] [Ô] & Combo_Data.Text & [Ô][Ô]
Set rs = New ADODB.Recordset
rs.Open sql, db, adOpenKeyset, adLockReadOnly
If Err Then
MsgBox Err.Description, vbCritical, [Ô]Erro[Ô]
Err.Clear
end if
If rs.EOF Then
MsgBox [Ô]Dados não encontrados. Verifique![Ô], vbOKOnly & vbExclamation, [Ô]Consulta![Ô]
Exit Sub
End If
[ô]Para preencher o listview
With LstAgenda
.View = lvwReport
[ô]Aqui cria colunas via código
With .ColumnHeaders
.Clear
.Add , , [Ô]Data Agenda[Ô], 80
.Add , , [Ô]Nome Agenda[Ô], 120
End With
.HideColumnHeaders = False
.Appearance = cc3D
.FullRowSelect = True
.AllowColumnReorder = True
[ô]Verifica dados da consulta sql
Fim = rs.RecordCount
For i = 1 To Fim
.ListItems.Add , , rs!DATA_AGENDA
.ListItems(i).ForeColor = RGB(0, 0, 0)
.ListItems(i).ListSubItems.Add , , rs!NOME_AGENDA
.ListItems(i).ListSubItems.Item(1).ForeColor = RGB(0, 0, 0)
rs.MoveNext
Next
end With
TESTE E REPORTE.
ATT.
RICK
Tópico encerrado , respostas não são mais permitidas