Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Ruben Sá Costa

Visual Basic 2008 gravar em Access 2007

Mensagens Recomendadas

Ruben Sá Costa

Boas,

  É o seguinte eu estou num curso profissional (11º ano)

e iniciamos a programação há pouco tempo e como as bases não são propriamente sólidas e eu já estou a estagiar numa empresa (Carnes Primor) na qual tenho a função de fazer um programa que vá buscar o Produto a uma base de dados, pesa o produto e de seguida tenho de o gravar noutra base de dados!

Agora, o que me falta é mesmo gravar na base de dados

ou seja, tenho um button (botão) "GRAVAR":

e não sei muito bem por onde começar com o código para gravar na base de dados (MS ACCESS 2007)!

Penso ter sido bem explicito no que tenho dúvidas, espero que me possam ajudar!

Desde já o meu Obrigado

Cumprimentos!

:P

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Ruben Sá Costa

Deixo-vos aí anexado o código que já tenho, se acharem que tenho algo mal ("ou menos bem"), Digam-me PF!

:P

Imports System.Data.OleDb

<System.Serializable()> Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'TODO: This line of code loads data into the 'Produtos1DataSet.Produtos' table. You can move, or remove it, as needed.

        'Me.ProdutosTableAdapter.Fill(Me.Produtos1DataSet.Produtos)

        With SerialPort1

            .PortName = "COM1"

            .BaudRate = 9600

            .Parity = IO.Ports.Parity.None

            .DataBits = 8

            .StopBits = IO.Ports.StopBits.One

            If Not SerialPort1.IsOpen Then

                SerialPort1.Open()

            End If

            .WriteLine("MODO 1")

            .Write("MODO 1")

            Dim con As OleDbConnection = New OleDbConnection(Vars.connSTRACCESS)

            Dim SQL As String

            SQL = "SELECT CCOD, CDSCR FROM ProdutoCarne;"

            Dim cmd As OleDbCommand = New OleDbCommand(SQL, con)

            Dim ds As DataSet = New DataSet

            Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)

            da.Fill(ds, "Produtos_Carnes")

            Dim a As Integer = ds.Tables("Produtos_Carnes").Rows.Count

            With Me.ComboBox1

                .DataSource = ds.Tables("Produtos_Carnes")

                .ValueMember = "CCOD"

                .DisplayMember = "CDSCR"

            End With

        End With

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim s As String

        s = SerialPort1.ReadExisting

        If Trim(s).Length >= 1 Then

            Try

                Dim a As Integer = s.IndexOf(Chr(Asc(",")))

                Me.TextBox1.Text = s.Substring(1, a - 1)

            Catch EX As Exception

                'Me.TextBox1.Text = "ERRO DE LEITURA"

            End Try

        End If

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        Me.TextBox2.Text = Now.ToString("HH:MM:ss")

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Label2.Visible = True

        TextBox1.Visible = True

        Label3.Visible = True

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       

    End Sub

End Class

Cumprimentos Rúben Costa

Partilhar esta mensagem


Ligação 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

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.