Preencher Combobox com dados do mysql

[FelipeJr 0]

Eai galeraa.. sou novo nesse ramo de programação e estou precisando de ajuda com o vs2005!!

vamos lá minha idéia e colocar dados de uma tabela fornecedores e quando for cadastrar os produtos chmar os nomes dos fornecedores em uma combobox da tabela produtos... enfim até aqui consegui xegar, conto com a ajuda de todos!!!

Private Sub preencher_combo()

Form_Load1()

With cmd

.ActiveConnection = cnn

.CommandType = ADODB.CommandTypeEnum.adCmdText

.CommandText = "select NomeEmpresa from Fornecedores"

rs = .Execute

End With

 

 

With rs

Do While Not rs.EOF

If Not Is Null rs ("NomeEmpresa") Then

CodigoFornecedorComboBox.Items(" NomeEmpresa").ToString()

End If

rs.MoveNext()

Loop

End With

 

End Sub

então pessoal aqui aparece um erro no if not is null,diz que o null não foi declarado e tmbem dá erro na hora de chamar o form dos produtos diz que não pod converter valores int...

Se alguem puder me ajudar agradeço desde já !!!

[Claudio Neto 3]

Is Null é tudo junto: isnull(rs("NomeEmpresa").

 

Do jeito que está ele acha que Null é uma variável, por isso diz que não está declarada.

 

Poste o código do outro erro.

[FelipeJr 0]

Is Null é tudo junto: isnull(rs("NomeEmpresa").

 

Do jeito que está ele acha que Null é uma variável, por isso diz que não está declarada.

 

Poste o código do outro erro.

 

 

Já tentei juntar o isnull mas não deu... uns caras me deram uma ajuda e disseram que como uso o visual studio2005 não há necessidade de criar essa sub..

 

mas assim Claudio me diz como posso fazer com que a combo liste os dados da tabela??

[Claudio Neto 3]

Cara, nunca usei o VS2005, mas o que você fez ali não serve nem para o VB6 nem para o VS2010, que são os que conheço.

 

No VB6 ficaria algo assim:

With rs
Do While Not rs.EOF
If Not Is Null rs ("NomeEmpresa") Then
CodigoFornecedorComboBox.addItem rs("NomeEmpresa")
End If
rs.MoveNext()
Loop
End With

E no VS2010 (que acredito que sirva tbm para você)assim:

With rs
Do While Not rs.EOF
If Not Is Null rs ("NomeEmpresa") Then
CodigoFornecedorComboBox.Itens.add(rs("NomeEmpresa").value)
End If
rs.MoveNext()
Loop
End With