• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Sutcha

OLEDB

3 mensagens neste tópico

Queria abrir uma base dados .dbf num DataGridView estive a pesquisar o máximo que consegui foi isto:

      Dim ConnectionString As String

        ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\;Extended Properties=dBase IV"

        Dim dBaseConnection As New System.Data.OleDb.OleDbConnection(ConnectionString)

        dBaseConnection.Open()

        Dim dBaseCommand As New System.Data.OleDb.OleDbCommand("SELECT * FROM prod2", dBaseConnection)

        Dim dBaseDataReader As System.Data.OleDb.OleDbDataReader = dBaseCommand.ExecuteReader(CommandBehavior.SequentialAccess)

        While dBaseDataReader.Read

            Console.WriteLine(dBaseDataReader("CODIGO").ToString)

            Console.WriteLine(dBaseDataReader("DESIGNACAO").ToString)

            Console.WriteLine(dBaseDataReader("UNIDADE").ToString)

            Console.WriteLine(dBaseDataReader("PVP1").ToString)

            Console.WriteLine(dBaseDataReader("BR_CONTROL").ToString)

            Console.WriteLine(dBaseDataReader("PC").ToString)

            Console.WriteLine(dBaseDataReader("MARG").ToString)

            Console.WriteLine(dBaseDataReader("PVP2").ToString)

        End While

        DataGridView2.DataSource = dBaseConnection.Database  <--- ISTO FOI UMA DAS TENTATIVAS

        dBaseConnection.Close()

Cumps

Sutcha

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas.

        If Me.SqlConnection1.State = ConnectionState.Closed Then
            Me.SqlConnection1.ConnectionString = constring
            Me.SqlConnection1.Open()
        End If


        Dim sqlada As New SqlDataAdapter
        Dim ds1 As New DataSet
        sqlada.SelectCommand.Connection = Me.SqlConnection1
        sqlada.SelectCommand.CommandType = CommandType.Text
        sqlada.SelectCommand.CommandText = "select * from armazem order by codigo asc"
        sqlada.Fill(ds1, "armazem")
        Me.DataGridView1.DataSource = ds1.Tables(0)

        Me.SqlConnection1.Close()

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora