PUXAR DADOS DE OUTA TABELA

LEANDRO.BUENO 04/01/2010 13:34:22
#331005
Olá amigos,

Estou Migrando para vb.net e estou com uma duvida:

Em vb6 para buscar dados de uma outra tabela e listar numa combo eu fazia assim:

vproduto.MoveFirst
Do While Not vproduto.EOF
Combo1.AddItem Format(vproduto!codprod) [ô]+ [Ô] - [Ô] + vproduto!descricao
vproduto.MoveNext
Loop

Agora como eu faria em vb.net.
WEBMASTER 04/01/2010 13:57:27
#331007
A partir de um dataset, voce conecta o componente combo, nao eh preciso escrever codigo
TECLA 04/01/2010 13:58:43
#331008 Resposta escolhida
Segue um outro exemplo:

Imports System.Data.OleDb

Public Class Form1
    Dim con As OleDbConnection
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        con = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Temp\Northwind.mdb[Ô])
        Dim adapter As New OleDbDataAdapter([Ô]SELECT * FROM employees[Ô], con)
        Dim dt As New DataTable
        adapter.Fill(dt)
        ComboBox1.DataSource = dt
        ComboBox1.ValueMember = [Ô]EmployeeID[Ô]
        ComboBox1.DisplayMember = [Ô]FirstName[Ô]
    End Sub
End Class
Tópico encerrado , respostas não são mais permitidas
Voltar