vb6

[fabiosc80 0]

No forum do Visual Basic nao tem ninguem pra responder as duvidas que nem aqui?????????

[fabiosc80 0]

cara, você tem q entender q o forum nao eh servico de suporte...entao nem todos os foruns tem gente online com mais frequencia...

Eu sei Eu sei..Mas é que la nunca tem ninguem la.E eu tenho que listar dados num listbox atraves de conexao ADO com BD ACCESS e nao sei como faço.Precisava se uma ajudinha...

[fabiosc80 0]

Tipo olha como eu fiz:

 

Private Sub Command1_Click()Dim adoConn As New ADODB.ConnectionDim adoRS As New ADODB.RecordsetDim recordcount As IntegerDim Empresa As StringDim Codigo As IntegeradoConn.Open "Provider=Microsoft.JET.OLEDB.4.0;Data Source=Nota.mdb"MsgBox ("connectado")adoRS.Open "select codigo, empresa from notafiscal", adoConn, adOpenKeyset, adLockOptimisticrecordcount = adoRS.recordcountSet List1.DataSource = adoRSWhile Not adoRS.EOF    List1.AddItem adoRS!Empresa    adoRS.MoveNextWendEnd Sub

só que nao carrega nada..da esse erro aqui:

 

Run-Timer error '-2147217904(80040e10)':

Nenhum valor foi fornecido para um ou mais parametros nescessarios

 

Sabe oque esta errado nesse código?

[Salgado 4]

Marca uma linha desse código e vai depurando.

[fabiosc80 0]

Marca uma linha desse código e vai depurando.

A linha que ele fala que ta com erro é essa aquiadoRS.Open "select codigo, empresa from notafiscal", adoConn, adOpenKeyset, adLockOptimistic

[fabiosc80 0]

Marca uma linha desse código e vai depurando.

Salgado consegui.

Eu tava chamando a tabela errada.

 

Mas me fala uma coisa.

 

Agora quando eu clico no nome selecionado da esse erro aqui...

 

 

Binding Colection Error

 

Fild not Updatable, Bound Property Name: Text , Fild Name: Empresa

 

Alguem sabe oque é isso npo VB6?