Usuário com melhor resposta
visual studio.net

Pergunta
-
Respostas
-
bom gustavo nao sei qual o banco de dados que se ta usando
mas segue um exemplo com access
Private
Sub PreencheCombo() ' Aqui vc escolhe o select dos registro que vc quersSQL =
"Select [seuregistro] from suatabela order by seuregistro"'carrega o dataset com a consulta
CarregarDataSet(sSQL)
'limpa a Combobox renomeada para CboAuto
CboAuto.Text =
""CboAuto.Items.Clear()
'carrega o a combobox
CboAuto.BeginUpdate()
For Each oDataRow In oDataTable.Rows
CboAuto.Items.Add(oDataRow("seuregistro").ToString)
Next
CboAuto.EndUpdate()
End Sub'coleque num modulo.
Public
Sub CarregarDataSet(ByVal sSQL As String)oDB.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\seubancodedados.mdb;Jet OLEDBatabase Password=suasenha;"
oDB.Open()
Try With oDataAdapter.TableMappings.Add(
"Table", "Tabela1")oCMD =
New OleDbCommand(sSQL, oDB)oCMD.CommandType = CommandType.Text
.SelectCommand = oCMD
.Fill(oDataSet)
.Dispose()
End WithoDataSet.AcceptChanges()
oDataTable = oDataSet.Tables.Item(0)
oDataSet.Dispose()
Catch ex As ExceptionMessageBox.Show(ex.Message & vbCrLf &
"Se o problema continuar entre em contato com o departamento responsável.", "Atenção", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Subve se é isso que vc tava querendo.....?
-
Se é direto de uma tabela você pode determinar o datasource como uma tabela ou datareader que você tenha, o displayfield com o campo que você quer mostrar e o valuemember com o campo que você quer associar.
Depois só dar um databind. Aí são só 3 linhas de código.
Todas as Respostas
-
bom gustavo nao sei qual o banco de dados que se ta usando
mas segue um exemplo com access
Private
Sub PreencheCombo() ' Aqui vc escolhe o select dos registro que vc quersSQL =
"Select [seuregistro] from suatabela order by seuregistro"'carrega o dataset com a consulta
CarregarDataSet(sSQL)
'limpa a Combobox renomeada para CboAuto
CboAuto.Text =
""CboAuto.Items.Clear()
'carrega o a combobox
CboAuto.BeginUpdate()
For Each oDataRow In oDataTable.Rows
CboAuto.Items.Add(oDataRow("seuregistro").ToString)
Next
CboAuto.EndUpdate()
End Sub'coleque num modulo.
Public
Sub CarregarDataSet(ByVal sSQL As String)oDB.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\seubancodedados.mdb;Jet OLEDBatabase Password=suasenha;"
oDB.Open()
Try With oDataAdapter.TableMappings.Add(
"Table", "Tabela1")oCMD =
New OleDbCommand(sSQL, oDB)oCMD.CommandType = CommandType.Text
.SelectCommand = oCMD
.Fill(oDataSet)
.Dispose()
End WithoDataSet.AcceptChanges()
oDataTable = oDataSet.Tables.Item(0)
oDataSet.Dispose()
Catch ex As ExceptionMessageBox.Show(ex.Message & vbCrLf &
"Se o problema continuar entre em contato com o departamento responsável.", "Atenção", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Subve se é isso que vc tava querendo.....?
-
Se é direto de uma tabela você pode determinar o datasource como uma tabela ou datareader que você tenha, o displayfield com o campo que você quer mostrar e o valuemember com o campo que você quer associar.
Depois só dar um databind. Aí são só 3 linhas de código.