none
visual studio.net RRS feed

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 quer 

    sSQL = "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 OLEDBBig Smileatabase 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 With

    oDataSet.AcceptChanges()

    oDataTable = oDataSet.Tables.Item(0)

    oDataSet.Dispose()

    Catch ex As Exception

    MessageBox.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 Sub

     

    ve se é isso que vc tava querendo.....?

     

     

    sexta-feira, 25 de maio de 2007 02:57
  • 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.

    sexta-feira, 25 de maio de 2007 11:24

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 quer 

    sSQL = "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 OLEDBBig Smileatabase 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 With

    oDataSet.AcceptChanges()

    oDataTable = oDataSet.Tables.Item(0)

    oDataSet.Dispose()

    Catch ex As Exception

    MessageBox.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 Sub

     

    ve se é isso que vc tava querendo.....?

     

     

    sexta-feira, 25 de maio de 2007 02:57
  • 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.

    sexta-feira, 25 de maio de 2007 11:24