List Box Urgente

[Diegoldb]

Galera a parada é o seguinte

estou fazendo um sistema onde tenho um cadastro de peças

Eu gostaria que acontecece o seguinte

tenho um list box para informar todas as pessas que possuo

eu quero que quando clicasse em uma dessas peças carregace os outros campos do Form com os outros dados do cadastros.............

Obrigado

Diego

[CKorneLL]

Faz o seguinte...

No evento Click...

Var1 = Listbox.ItemData(ListBox.ListIndex) // Aqui você pega o index da ListBox

Com isso você faz um SQL e resgata os valores nos Campos do Form...

Entendeu??? Se não estiver claro, posta de novo aí...

[Diegoldb]

Faz o seguinte...

No evento Click...

Var1 = Listbox.ItemData(ListBox.ListIndex) // Aqui você pega o index da ListBox

Com isso você faz um SQL e resgata os valores nos Campos do Form...

Entendeu??? Se não estiver claro, posta de novo aí...

Bom vamos ver se entendi mesmo

'Aqui eu declro uma variavel onde no evento clique eu falo qual o IDVar1 = Listbox.ItemData(ListBox.ListIndex) // Aqui você pega o index da ListBox

'Aqui eu pego este ID e mando um Select para carregar os campos correspondentes deste ID

Com isso você faz um SQL e resgata os valores nos Campos do Form...

[Diegoldb]

Fiz o Seguinte

Private Sub lstProduto_Click()

Dim Var1 As String

Dim sql As ADODB.Recordset

'Só que aqui ele esta pegando o Valor "0"

Var1 = lstProduto.ItemData(lstProduto.ListIndex)

Set sql = DataEnvironment1.Connection1.Execute("select * from [tblestoque] where produto = var1")

End Sub

[CKorneLL]

Isso mesmo...

Deu certo???

[Diegoldb]

não deu certo não

o erro que da é o seguinte

invalid column name Var1

E fica na linha

Set sql = DataEnvironment1.Connection1.Execute("select * from [tblestoque] where produto = var1")

Obrigado

[CKorneLL]

Faz assim..

Set sql = DataEnvironment1.Connection1.Execute("select * from [tblestoque] where produto = ' " & Var1 & " ')

Teste agora!

[Diegoldb]

Agora não deu nada

Não aconteceu nenhuma atividade

[CKorneLL]

Faz o seguinte...

Como você está carregando o List???

você pode postar o código aqui???

CKorneLL.

[Diegoldb]

Set rs = DataEnvironment1.Connection1.Execute("select * from [tblEstoque] order by produto asc")

While Not rs.EOF

lstProduto.AddItem rs!produto '(0)

rs.MoveNext

Wend

[CKorneLL]

Set sql = DataEnvironment1.Connection1.Execute("select * from [tblestoque] where produto = ' " & Var1 & " ' ")

Olhe... Dessa vez tem q dar...

Antes ' " & Var1 & " '

Agora ' " & Var1 & " ' "

...

[CKorneLL]

Após isso, faça o seguinte...

if not rs.EOF then

Texto1 = rs("Codigo")

Texto2 = rs("Nome")

end if

[Diegoldb]

Set Sql = DataEnvironment1.Connection1.Execute("select * from [tblestoque] where Produto = '" & Var1 & "'")

If Not rs.EOF Then

txtID.Text = sql!Id

End If

End Sub

O erro agora é o seguinte

BOF ou EOF são verdadeiros, ou o registro atual foi excluido. A operação solicitada pelo aplicativo requer um registro atual.

Ta fogo

[Diegoldb]

Set Sql = DataEnvironment1.Connection1.Execute("select * from [tblestoque] where Produto = '" & Var1 & "'")

If Not rs.EOF Then

txtID.Text = sql!Id

End If

End Sub

O erro agora é o seguinte

BOF ou EOF são verdadeiros, ou o registro atual foi excluido. A operação solicitada pelo aplicativo requer um registro atual.

Ta fogo

alguém pode me ajudar....................................................................................

Se alguém puder me mandar um e-mail

diegoldb@gmail.com