gegevens opslaan in 2 tabbellen van 1 db

[satdirk]

Eerste wens ik iedereen nog een gelukkig en gezond 2012 en hopelijk komen er dit jaar ook weer veel oplossingen.
Dit heb ik gevonden en het werkt als je de gegevens naar 1 tabel stuurt maar nu is het de bedoeling dat .
1)FacNr in tabel Factuur en tabel Faclijn worden opgeslagen .
2)ArtNr in tabel Faclijn

Imports Access = Microsoft.Office.Interop.Access

Imports System.Data

Imports System.Data.OleDb
Public Class Form1
    Dim provider As String

    Dim dataFile As String

    Dim connString As String

    Dim myConnection As OleDbConnection = New OleDbConnection


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

    End Sub

    Private Sub btnOpslaan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpslaan.Click
        provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="

        dataFile = "D:\Factest\Factest\Factest\dbfac.accdb"

        connString = provider & dataFile

        myConnection.ConnectionString = connString



        myConnection.Open()
        Dim lijnnr As String
        Dim str As String

        lijnnr = 1
        str = "insert into Factuur ([FacNr], [KlantNr]) values (?, ?)"

        Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)

        cmd.Parameters.Add(New OleDbParameter("FacNr", CType(txtFacNr.Text, String)))

        cmd.Parameters.Add(New OleDbParameter("KlantNr", CType(txtKlantNr.Text, String)))

        

        'txtFacNr.Clear()

        'txtKlantNr.Clear()

        myConnection.Close()
        Try

            cmd.ExecuteNonQuery()

        Catch ex As Exception

Wat moet ik hier toevoegen om de facnr naar de tabel faclijn te sturen.
groetjes

 

[Doofenshmirt]

Hoi,

Even een voorbeeldje gemaakt om 2 textboxen in 2 tabellen in 1 database

Je moet even goed kijken naar de Dim str en Dim CMD

deze mogen niet het zelfde zijn , daarom heb ik er een 1 achtergezet voor de 2e tabel

Even gegevens aanpassen aan je eigen database en textboxen.

  provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="

        dataFile = (My.Application.Info.DirectoryPath & ("\Probe.mdb"))

        connString = provider & dataFile

        myConnection.ConnectionString = connString



        myConnection.Open()



        Dim str As String

        str = "insert into Tabel1 ([UN Nummer]) values (?)"

        Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)

        cmd.Parameters.Add(New OleDbParameter("UN Nummer", CType(TextBox1.Text, String)))



        Dim str1 As String
        str1 = "insert into Tabel2 ([Land]) values (?)"
        Dim cmd1 As OleDbCommand = New OleDbCommand(str1, myConnection)
        cmd1.Parameters.Add(New OleDbParameter("Land", CType(TextBox2.Text, String)))

        Try

            cmd.ExecuteNonQuery()
            cmd1.ExecuteNonQuery()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try


        myConnection.Close()