Carregar combobox

[jcbiker]

Boas não sei se me podem ajudar,

mas aqui vai.

Utilizei este codigo para carregar a minha combobox,

Conectar()
	Dim query As String = "SELECT * FROM DIV"
	Dim command As New OleDbDataAdapter(query, conecta)
	conecta.Open()
	' Seleccionar os dados APENAS do cliente 3
	Dim MyData As New DataSet
	command.Fill(MyData, "Div")
	Me.cboxNome.DataSource = MyData.Tables("Div") ' Neste caso utilizei uma datagridview para visualizar os dados
	conecta.Close()

a tabela é Div, mas eu pretendo carregar com os dados contidos na coluna nome desta tabela.

Alguem me pode ajudar??

Edited May 21, 2012 at 12:20 PM by Caça
GeSHi

[Caça]

Deves também indicar o DisplayMember e ValueMember

[icosta]

Const connString As String = "xxxxx"
Dim conn As New SqlClient.SqlConnection

Public Sub ConnectToSql()
	Try
		conn.ConnectionString = connString
		conn.Open()
Catch ex As Exception
		MessageBox.Show(ex.ToString)
	End Try
End Sub

Public Sub DisconnectFromSql()
	Try
		conn.Close()
	Catch ex As Exception
		MessageBox.Show(ex.ToString)
	End Try
End Sub



connecttosql()

	cmd.Connection = conn (chama a connexão, exemplo:
	cmd.CommandText = "SELECT nome_coluna from tabela"

	Dim lrd As SqlDataReader = cmd.ExecuteReader()
	ComboBox1.Items.Clear()
	While lrd.Read()
		ComboBox1.Items.Add(lrd.GetValue(0))
	End While

disconnectfromsql()

Edited May 22, 2012 at 09:41 AM by Caça
GeSHi

[NunoDinis]

Segue o exemplo abaixo, tens a sopa toda...

  Dim sSql As String = ''TUA QUERY
	Dim dt As New DataTable
	Dim adapter As New SqlDataAdapter
	'Consulta os dados na BD
  'ABRE A TUA CONEXAO
	adapter.SelectCommand = New SqlCommand(sSql, ''TUA CONEXAO)
	adapter.Fill(dt)
	'FECHAS CONEXAO
	'Insere os dados no combobox
	With 'Identifica o combo
		.DataSource = dt
		.DisplayMember = ''O QUE VAI MOSTRAR
		.ValueMember = ''VALOR QUE VAI RETORNAR
	End With

Edited May 22, 2012 at 09:41 AM by Caça
GeSHi

[jcbiker]

Segue o exemplo abaixo, tens a sopa toda...

  Dim sSql As String = ''TUA QUERY
	Dim dt As New DataTable
	Dim adapter As New SqlDataAdapter
	'Consulta os dados na BD
  'ABRE A TUA CONEXAO
	adapter.SelectCommand = New SqlCommand(sSql, ''TUA CONEXAO)
	adapter.Fill(dt)
	'FECHAS CONEXAO
	'Insere os dados no combobox
	With 'Identifica o combo
		.DataSource = dt
		.DisplayMember = ''O QUE VAI MOSTRAR
		.ValueMember = ''VALOR QUE VAI RETORNAR
	End With

DisplayMember = ''O QUE VAI MOSTRAR 
		.ValueMember = ''VALOR QUE VAI RETORNAR

eu pretendo inserir o valor que se encontra na coluna Nome da tabela DIV

Não percebi o esquema acima

[Caça]

Então coloca Nome em ambas.

[NunoDinis]

DisplayMember = nome_coluna ( da tua BD)