Faz 2 anos que eu,não programava mais no VB.


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Faz 2 anos que eu,não programava mais no VB.

claudinei

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 04/10/2005 20:43 hs

Galera !!!fiquei praticamente 2 anos parado sem programar no vb, e agora NAO ME LEMBRO MAIS COMO QUE FAZ ISTO....

VB6- ADO-ACCESS2000-XP
O Seguinte:Tenho uma Tabela no access com o nome de Tab_produto, preciso pesquisar produtos vendidos nesta tabela,através de datas,e carregar na listview.
Ex:
No meu form está assim vejam:2combox,2text,1listview
cmb_produto=Mouse
cmb_marca=Vcom
txt_dataini =01/01/2004
txt_datafim=04/10/2005
Lista_Produtos=exibir produtos

Fiz assim, e não carega nada,vejam:

Dim rst_produto As ADODB.Recordset
Set rst_produto = New ADODB.Recordset
Dim lv As ListItem

Set rst_produto = bd.Execute("Select * From Tab_produto where data Between #" & txt_dataini & "# And #" & txt_datafim & "#")

rst_produto.MoveMin

Do Until rst_produto.EOF

If rst_produto!Data = txt_data And rst_produto!Data = txt_data2 Then
     Set lv = lista.ListItems.Add(, , rst_produto!Id_produto)
      lv.SubItems(1) = rst_produto!produto
      lv.SubItems(2) = rst_produto!descricao
      lv.SubItems(3) = rst_produto!valor
      lv.SubItems(4) = rst_produto!data

End If

rst_produto.MoveNext
Loop

Set rst_produto = Nothing

GALERA AGRADEÇO DEDE JÁ!!!
GRATO""

kerplunk

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 05/10/2005 08:29 hs

A rotina parece estar certa... talvez o problema seja dados... certifique-se que existe ao menos um registro com o filtro que vc pediu...

claudinei

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 05/10/2005 10:15 hs

Meu ,a tabela possui os dados que eu pesquiso e tb as datas,porém não fununcia!!

esta assim agora o select.

Set rst_produto = bd.Execute("Select * From Tab_produto where data Between #" & Format(txt_dataini, "mm/dd/yyyy") & "# And #" & Format(txt_datafim, "mm/dd/yyyy") & "#")

Gboese

SANTO ANDRÉ
SP - BRASIL

ENUNCIADA !

Postada em 05/10/2005 10:46 hs

Tenta assim:

Dim rst_produto As ADODB.Recordset
Set rst_produto = New ADODB.Recordset
Dim lv As ListItem

rst_produto.open "Select * From Tab_produto where data Between #" & txt_dataini & "# And #" & txt_datafim & "#"

Do Until rst_produto.EOF

End If

rst_produto.MoveNext
Loop

Set rst_produto = Nothing

Gustavo Boese

rdeletric

SÃO JOSÉ DO RIO PRETO
SP - BRASIL

ENUNCIADA !

Postada em 05/10/2005 15:50 hs

Voce pode fazer assim:

List1.Clear

bb1$ = "select * from 'nome da tabela no banco de dados' where 'nome do campo da tabela no banco de dados' like '*" & Trim(nome do textbox que vc vai usar para inserir os valores para busca) & "*'"

Set tabela = olddb.OpenRecordset(bb1$, dbOpenDynaset)

mortos.Sort = "nome do campo da tabela no banco de dados indexado "
Set NOVO = mortos.OpenRecordset()

If NOVO.RecordCount = 0 Then Beep: Beep: Beep: Beep: MsgBox "Item não Encontrado.", 16, fext10: GoTo fim

NOVO.MoveMin

contar = NOVO.RecordCount

u = 1
For u = 1 To contar
If u = 1 Then GoTo dois
NOVO.Move 1
dois:
T1 = Trim(NOVO("nome do campo da tabela no banco de dados"))
=>nesta linha vc coloca a condição para diferenciar as duas datas, se esta condiçao estiver verdadeira continua o algoritimo senão vai para "pulo"
vetor$ = Left(Trim(T1), 17)

Real = Real + 1

List1.AddItem vetor$

pulo:
Next

XP! = List1.ListIndex + 1
Tet8 = List1.ListCount
fim:
End Sub

claudinei

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 05/10/2005 16:02 hs

É pois é, assim também não vai.

???????

Me arrependo tanto de ter ficado parado 2anos ser programar no vb,parece que estou começando tudo de novo.tztztztztz

VAzei na Braquiara

Página(s): 1/2 PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR