LOOP EM COMBO
Boa Tarde.
Como faço para listar todos os item de uma tabela [Ô]medidas[Ô] em minha combo box?
Como ficaria o loop?
Como faço para listar todos os item de uma tabela [Ô]medidas[Ô] em minha combo box?
Como ficaria o loop?
Veja se esse tópico te ajuda...
PREENCHENDO COMBOBOX
PREENCHENDO COMBOBOX
Se você já tem a string de conexão, faça:
Dim C as new ADODB.Connection, RecSet as ADODB.RecordSet
C.Open(String de Conexao)
RecSet = C.Execute([Ô]Select * From medidas[Ô])
While Not RecSet.EOF
ComboBox1.Items.Add(RecSet([Ô]Altura[Ô]).Value.ToString)
RecSet.MoveNext
End While
RecSet = Nothing
C.Close
Note que eu só peguei os valores referentes à altura. Para colocar todas as medidas (altura, largura, profundidade...) você terá que colocar colunas na ComboBox e dizer em quais colunas você quer tais medidas.
Não sei qual o espaço que você tem no seu form, mas um ListView seria uma opção melhor para este caso.
Abraços
Dim C as new ADODB.Connection, RecSet as ADODB.RecordSet
C.Open(String de Conexao)
RecSet = C.Execute([Ô]Select * From medidas[Ô])
While Not RecSet.EOF
ComboBox1.Items.Add(RecSet([Ô]Altura[Ô]).Value.ToString)
RecSet.MoveNext
End While
RecSet = Nothing
C.Close
Note que eu só peguei os valores referentes à altura. Para colocar todas as medidas (altura, largura, profundidade...) você terá que colocar colunas na ComboBox e dizer em quais colunas você quer tais medidas.
Não sei qual o espaço que você tem no seu form, mas um ListView seria uma opção melhor para este caso.
Abraços
Esqueci de dizer que meu banco de dados é em sql
obrigado o codigo ficou assim e funcionou.
Imports System.Data
Imports System.Data.SqlClient
Public Class frmapfuneral
Private Sub frmapfuneral_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô] No evento Form Load irá ser carregados os dados da base de dados na combobox
Try
Dim sqlConnectString As String = [Ô]Data Source=.\SQLEXPRESS;AttachDbFilename=E:\PRGTIAL\TIAL\TIAL\Medidas.MDF;Integrated Security=True;Connect Timeout=30;User Instance=True[Ô]
[ô] Inicia uma ligação à base de dados
Using connectionmedidas As New SqlConnection(sqlConnectString)
connectionmedidas.StatisticsEnabled = True
[ô] Select Statement que irá mostrar todos os vendedores activos,
[ô] excepto o vendedor que será definido no parâmetro
Dim SQL As String = [Ô]SELECT * FROM TBMedidas[Ô]
[ô] Define o DataAdapter e os parâmetros. O DataAdapter guarda a ligação, não
[ô] sendo necessário abrir com o comando connection.Open()
Dim daMedidas As New SqlDataAdapter(SQL, connectionmedidas)
Dim dtmedidas As New DataTable()
[ô] Preenche o Dataset com os valores da base de dados
daMedidas.Fill(dtmedidas)
[ô] Preenche a combobox
With ComboBox3
.DisplayMember = [Ô]Palmos[Ô]
.ValueMember = [Ô]Palmos[Ô]
.DataSource = dtmedidas
[ô] Definições para autocomplete
.DropDownStyle = ComboBoxStyle.DropDown
.AutoCompleteMode = AutoCompleteMode.Suggest
.AutoCompleteSource = AutoCompleteSource.ListItems
End With
ComboBox3.Text = [Ô][Ô]
End Using
Catch ex As Exception
MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class
Imports System.Data
Imports System.Data.SqlClient
Public Class frmapfuneral
Private Sub frmapfuneral_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô] No evento Form Load irá ser carregados os dados da base de dados na combobox
Try
Dim sqlConnectString As String = [Ô]Data Source=.\SQLEXPRESS;AttachDbFilename=E:\PRGTIAL\TIAL\TIAL\Medidas.MDF;Integrated Security=True;Connect Timeout=30;User Instance=True[Ô]
[ô] Inicia uma ligação à base de dados
Using connectionmedidas As New SqlConnection(sqlConnectString)
connectionmedidas.StatisticsEnabled = True
[ô] Select Statement que irá mostrar todos os vendedores activos,
[ô] excepto o vendedor que será definido no parâmetro
Dim SQL As String = [Ô]SELECT * FROM TBMedidas[Ô]
[ô] Define o DataAdapter e os parâmetros. O DataAdapter guarda a ligação, não
[ô] sendo necessário abrir com o comando connection.Open()
Dim daMedidas As New SqlDataAdapter(SQL, connectionmedidas)
Dim dtmedidas As New DataTable()
[ô] Preenche o Dataset com os valores da base de dados
daMedidas.Fill(dtmedidas)
[ô] Preenche a combobox
With ComboBox3
.DisplayMember = [Ô]Palmos[Ô]
.ValueMember = [Ô]Palmos[Ô]
.DataSource = dtmedidas
[ô] Definições para autocomplete
.DropDownStyle = ComboBoxStyle.DropDown
.AutoCompleteMode = AutoCompleteMode.Suggest
.AutoCompleteSource = AutoCompleteSource.ListItems
End With
ComboBox3.Text = [Ô][Ô]
End Using
Catch ex As Exception
MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class
Tópico encerrado , respostas não são mais permitidas