Banco de Dados ListBox


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Banco de Dados ListBox

Mongruell

PONTA GROSSA
PR - BRASIL

ENUNCIADA !

Postada em 18/07/2004 21:08 hs

e ai silva... sSQL recebe o que? Desculpe mas eu nao consigo completar esse codigo...

Poderia ser mais claro... Sou mesmo que nao consigo mesmo.

Abraços
Vinicius

Silva

SILVES
00 - PORTUGAL

ENUNCIADA !

Postada em 18/07/2004 21:12 hs

Desculpe mas o código não está completo.

Private Sub Text1_Change()
On Error GoTo TrataErro
List1.Clear
        Dim rs As New Recordset
    Dim sSQL As String
    Dim StrSql As String
    Dim Pos As Integer

sSQL = "SELECT DISTINCT Nome FROM tabela WHERE codigo LIKE'" & Text1.Text & "*'"

rs.Open sSQL, m_Conn

List1.AddItem rs("Nome").Value
TrataErro:
End Sub

Silva

Mongruell

PONTA GROSSA
PR - BRASIL

ENUNCIADA !

Postada em 18/07/2004 21:29 hs

Pra que serve essa variavel Pos?

Eu coloquei o codigo aqui... quando vc digita alguma coisa no text1 o listbox fica em branco.. tem haver com essa varialvel Pos?

Abraços

Lincoln

Silva

SILVES
00 - PORTUGAL

ENUNCIADA !

Postada em 19/07/2004 19:46 hs

Desculpe só agora responder.

Parece que assim funciona.

Private Sub txtcodigo_Change()
Dim Banco As DAO.Database
Dim TBL As DAO.Recordset

'Abre a base de dados
Set Banco = DBEngine.OpenDatabase(App.Path & "cadastropizza.mdb")

'Abre o Recordset
Set TBL = Banco.OpenRecordset("clientes", dbOpenTable)

'Seleciona o indice
TBL.Index = "indnome"

    'Busca pela registro onde codigo=txtcodigo.text
    TBL.Seek "=", txtcodigo.Text

    'Se encontrou mostra no list1
    If Not TBL.NoMatch Then
       List1.Clear
       List1.AddItem TBL.Fields("Nome").Value

End If

'Fecha o Recordset
TBL.Close

End Sub

Mongruell

PONTA GROSSA
PR - BRASIL

ENUNCIADA !

Postada em 19/07/2004 23:44 hs

Deu quase certo... veja a outra mensagem que eu postei com o nome de Remover item.

Mas sua ajuda ja foi muito importante... ja to quase lá.

Abraços

Vinicius

Página(s): 2/2 « ANTERIOR

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

VOLTAR