POPULAR LISTBOX COM DADOS TABELA ACCESS EM VB6

DARCIO 16/01/2013 14:38:49
#417501

O caso é que eu preciso de popular uma list box com dados da tebela access.esta mais ou menos assim tem um txtbox recebe nome, uma label que informa o codigo do cliente e listbox que até agora não faz nada, mas deveria receber todas as compras feita pelo cliente
ex. cliente 001
list box recebe coluna compras do cliente 001
o banco access 2000 e esse é meu modulo

Global n1 As Double
Global total As Double

Global conexaoLogin As ADODB.Connection
Global tabelaLogin As ADODB.Recordset

Global conexaoSistema As ADODB.Connection
Global tabelaSISTEMA As ADODB.Recordset
Global tabelaSistemaAux As ADODB.Recordset

Public Sub conectaLogin()

Set conexaoLogin = New ADODB.Connection
conexaoLogin.Open [Ô]Provider = Microsoft.Jet.OLEDB.4.0;Data Source =[Ô] & _
App.Path & [Ô]\Login.mdb[Ô]

End Sub

Public Sub fechaLoginConexao()

conexaoLogin.Close

End Sub

Public Sub conectaSISTEMA()
Set conexaoSistema = New ADODB.Connection
conexaoSistema.Open [Ô]Provider = Microsoft.Jet.OLEDB.4.0;Data Source =[Ô] & _
App.Path & [Ô]\SISTEMA.mdb[Ô]
End Sub

Public Sub fechaConectaSISTEMA()

conexaoSistema.Close

End Sub