Jump to content
  • 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

Recommended Posts

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

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.