TRAZER DADOS DO BANCO DE DADOS NA TELA DE PESQUISA

RICKSOUSA 20/02/2010 10:58:01
#334878

por favor alguem pode me ajudar!

RICKSOUSA 20/02/2010 18:52:56
#334910

Ninguem????

TECLA 20/02/2010 20:16:39
#334913

[txt-color=#0000f0]Set[/txt-color] tabela = banco.OpenRecordset([txt-color=#e80000][Ô]SELECT * FROM OS WHERE IdOs = [ô][Ô] & lblOS & [Ô][ô] [Ô][/txt-color], [txt-color=#0000f0]dbOpenDynaset[/txt-color])

RICKSOUSA 20/02/2010 21:15:01
#334920

eu fiz assim no textbox que estou fazendo a pesquisa.

Private Sub txtpes_Change()

If cbtipopes.Text = [Ô]OS[Ô] Then [ô]esse aqui é o combobox que verifica o tipo de pesquisa

Set banco = OpenDatabase(App.Path & [Ô]\bdOS.mdb[Ô]) [ô]conecta no banco
Set tabela = banco.OpenRecordset([Ô]SELECT * FROM OS WHERE IdOS = [ô][Ô] & nsopes & [Ô][ô] [Ô], dbOpenDynaset) [ô]conecta na tabela OS
Set tabela2 = banco.OpenRecordset([Ô]select * from produtos[Ô], dbOpenDynaset) [ô]conecta na tabela produtos
Set tabela3 = banco.OpenRecordset([Ô]select * from clientes[Ô], dbOpenDynaset) [ô]conecta na tabela clientes


If tabela.RecordCount = 0 Then

MsgBox ([Ô]Produto não encontrado![Ô]), vbExclamation, [Ô]Aviso![Ô]
txtpes.Text = [Ô][Ô]

Exit Sub

End If

tabela.MoveFirst

nsopes.Caption = tabela([Ô]idOS[Ô]) [ô]é o label que mostra o numero da OS
idclientepes.Caption = tabela3([Ô]IDcliente[Ô]) [ô]é o label que mostra o codigo do cliente
txtnomepes.Text = tabela3([Ô]Nome[Ô]) [ô]mostra o nome do cliente referente ao codigo
txtfonepes.Text = tabela3([Ô]telefone[Ô]) [ô]mostra o telefone do cliente referente ao codigo

For i = 1 To tabela2.RecordCount

MSflexpes.Row = i
MSflexpes.Col = 0
MSflexpes.Text = tabela2([Ô]IDproduto[Ô])
MSflexpes.Row = i
MSflexpes.Col = 1
MSflexpes.Text = tabela2([Ô]Descricao[Ô])
MSflexpes.Row = i
MSflexpes.Col = 2
MSflexpes.Text = Format(CCur(tabela2([Ô]ValorUnit[Ô])), [Ô]currency[Ô])
MSflexpes.Rows = MSflexpes.Rows + 1
tabela.MoveNext

Next i

End If

End Sub