Puxar dado do banco de dados para uma label

[GabrielFerrari 41]

Olá pessoal

 

Tenho um pequeno conhecimento em visual Basic só usei o 6.0 até hoje

 

Estou tentando montar um sistema para controlar os jobs aqui do escritório

 

Consegui fazer inserir e puxar os dados o problema é que ele está mostrando o resultado em um DataGrid

 

Por ser muitos campos ele acaba criando um scrol muito grande dificultando a visualização

 

Resolvi mostrar em labels igual ao de cadastro

 

Consegui pesquisando na internet descobrir que vou ter que utilizar o recordset e que vou ter que fazer 1 para cada campo

 

Só que com os exemplos que encontrei não deu certo aqui.

 

Tem como alguém me dar uma força ?!

 

Para quem quiser entender melhor segue o arquivo: http://rapidshare.com/files/120259174/vb.rar

 

Obrigado.

[NaPraia 12]

thelon, eu até ia tentar te ajudar, mas o firewall bloqueou a tua página.

não vá quebrar nada por aqui.

[GabrielFerrari 41]

Se poder me passar seu e-mail posso mandar.

 

valeu NaPraia você está atacando todas as áreas mesmo. rsrs

[scorpio 7]

Um recordset pra cada tabela thelon! se quiser...

 

Qual conexão você está usando ?

Independente da forma que esta conectando (DAO/ADO) acho que da pra fazer assim

Label1.Caption = seu_recorset("campo")

Qualquer coisa vaolta a posta!

 

Flw

[]'s

[GabrielFerrari 41]

E ai Scorpio Beleza ?

 

Então cara acho que tem algo errado no código

 

Tem como dar uma olhadinha para ver se tem algum erro ?!

 

Ele ta assim ó:

 

________________________________________________________________________________

 

Dim c As New ADODB.Connection

Dim r As New ADODB.Recordset

Dim s As String

 

Private Sub Command1_Click()

 

s = "select * from job where cliente like '%" & Text1 & "%';"

r.Open

If r.EOF = False Then

Label1.Caption = r("cliente")

End If

End Sub

 

________________________________________________________________________________

 

 

 

Muito obrigado pela resposta. :)

[scorpio 7]

Você deve ter feito isso em algum lugar né?

 

Set c = CreateObject("ADODB.Connection")

Set r = CreateObject("adodb.recordset")

c.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dados.mdb"

 

Quando você for chamar você faz assim:

r.Open s, c

(recordset.Open <tabela/SQL>, <conexão>)

 

Dai depois você faz o que tiver que fazer... ^_^

 

flw

[]'s