FelipeJr

ComboBox1.DataSource = TBL_FORNECEDOR 'nome da tabela dos fornecedores ComboBox1.DisplayMember = "NM_EMPRESA" 'nome da empresa ComboBox1.ValueMember = "CD_FORNECEDOR" 'codigo do fornecedor ComboBox1.SelectedValue = "CD_FORNECEDOR" 'codigo do fornecedor valeu junin!!!! mas assim ó... neste caso o vs trava e aparece o seguinte erro!!! "Seqüência de entrada não estava em um formato incorreto." mas quando inverto os valores do display member e do value member funciona... porem na combo aparece somente o codigo e não o nome da miha categoria.... onde será que estou errando ??? abraçoss

valeu pelo exemplo mas como disse sou principiante msmo faço isso por curiosidade... mas me diz ai eu preenchi pelo assistente do proprio vs msmo.. mas como é que se alimenta uma datasource?

Aee valeu Quote!!! Agora assim eu estu tentando fazer assim... Configurar a combo pelo use data bound itens e coloco assim.. no data source o nome da tabela dos fornecedores no display member o nome da empresa no value member o codigo do fornecedor e no selected value o codigo do fornecedor... cara tenha um pouco de paciendia ai e tenta me dizer onde estou errando !! c você tiver algum material que eu possa ler agradeço a indicação!!!

valeu Kuroii.. sabe com é principiante não é?!!

Certo Kuroi obrigado pela atenção!!! vamos lá vou postar o codigo mas pensei em não mostrar o codigo e sim o nome da empresa para facilitar nno reconhecimento ok! 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 IsNull(rs!NomeEmpresa) Then CodigoFornecedorComboBox.Items.Add(CStr(rs!NomeEmpresa)) End If rs.MoveNext() Loop End With End Sub Cara são tres os erros 1° name 'isnull ' is not declared. 2°'additem' is not a member os 'System.windows.forms.combobox'. 3° orevload resolution failed because no acessible 'Fields' accepts this number of arguments. Me diz ...com posso concertar isso?

A sub o() não faz nada foi erro de digitação... o 1° erro é na linha do if not is null ,onde diz que null não foi declarado, o 2° é que os valores da combo são do tipo int e não podem ser covertidos.. +- isso você pode me ajudar?

valeu Raphael !! mas mesmo assim persiste o ero no If Not Is Null, diz que esse nome não foi declarado...

Eai Galera sou novo nesse ramo de programação e gostaria de ajuda!! é assim gostaria de associar meus produtos com seus respectivos fornecedores, epra isso gostaria que o codigo ow nome dos fornecedores aparecessem no momento em que cadastro os produtos ,vamos lá consegui xegar até aqui!! Private Sub preencher_combo() With cmd .ActiveConnection = cnn .CommandType = ADODB.CommandTypeEnum.adCmdText .CommandText = "select Codigo from Fornecedores" rs = .Execute End With o() With rs Do While Not rs.EOF If Not IsNull(rs!Codigo) Then CodigoFornecedorComboBox.AddItem(rs!Codigo) End If rs.MoveNext() Loop End With End Sub só que me aparece um erro no nome da combo e tambem no if .. alguempoderia me dar uma dica doque fazer? :wacko: