dubbele database

[Abel Visscher]

Hallo,
Is het mogelijk om met 2 databases tegelijk te werken,waarbij de 2e de backup is van de eerste? Ik wil namelijk in een programma toegang krijgen tot een database. Deze moet toegankelijk zijn voor iedereen. Als er iets word toegevoegd moet dat in beide databases gebeuren. Alleen als er iets verwijderd wordt gebeurt dat alleen bij de eerste en niet bij de tweede. Wie kan mij hiermee op weg helpen?

Groeten Abel

 

[WarnedGraph]

Upload eens wat je tot nu toe hebt (Databases, Forms) in een zip bestand.
Het is nogal moeilijk om iets voor databaseconnectiviteit te maken als je
niet weet wat er concreet nodig is en moet gebeuren.

P.S. Met welke VB werk je?

 

[WarnedGraph]

ja graag ...

 

[WarnedGraph]

Niet om het feit dat ik VB6 afbreek, maar omdat het voor mij veel gemakkelijker is om u te
helpen, heb ik hierbij de gratis versie van VB.Net 2005 gelinkt. :thumb:

http://msdn.microsoft.com/vstudio/express/vb/

Binnen een 10-tal minuutjes zal u de oplossing hebben. U hebt dan 2 mogelijkheden:

1. U zet alles om van VB.Net naar VB6
2. U download de gratis versie of u koopt de volledige Visual Studio 2005

Grtz!

P.S. Ik heb eigenlijk enkel nog nood aan een screenshot van uw form lay-out

 

[WarnedGraph]

De (vermoedelijke) Oplossing:

    Private Sub InsertInDB()
        Dim conn As New OleDb.OleDbConnection
        Dim comm As New OleDb.OleDbCommand
        'Insert in DB1
        conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Data\4RegelsTekst.mdb"
        comm.Connection = conn
        comm.CommandText = "INSERT INTO 4Regels-Tekst (EtiketCode,Regel1,Regel2,Regel3,Regel4,Klantnaam) VALUES ('" txtCode.Text & "','" & txtRegel1.Text & "','" & txtRegel2.Text & "','" & txtRegel3.Text & "','" & txtRegel4.Text & & "','" & txtKlantnaam.Text & "')"
        Try
            conn.Open()
            comm.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            conn.Close()
        End Try
        'Insert in DB_Backup
        conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Backup\4RegelsTekst.mdb"
        comm.Connection = conn
        comm.CommandText = "INSERT INTO 4Regels-Tekst (EtiketCode,Regel1,Regel2,Regel3,Regel4,Klantnaam) VALUES ('" & txtCode.Text & "','" & txtRegel1.Text & "','" & txtRegel2.Text & "','" & txtRegel3.Text & "','" & txtRegel4.Text & & "','" & txtKlantnaam.Text & "')"
        Try
            conn.Open()
            comm.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            conn.Close()
        End Try
    End Sub

    Private Sub DeleteFromDB()
        Dim conn As New OleDb.OleDbConnection
        Dim comm As New OleDb.OleDbCommand
        'Delete from DB1
        conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Data\4RegelsTekst.mdb"
        comm.Connection = conn
        comm.CommandText = "DELETE FROM 4Regels-Tekst WHERE (EtiketCode='" & txtCode.Text & "')"
        Try
            conn.Open()
            comm.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            conn.Close()
        End Try
    End Sub

    Private Sub UpdateDB()
        Dim conn As New OleDb.OleDbConnection
        Dim comm As New OleDb.OleDbCommand
        'Update DB1
        conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Data\4RegelsTekst.mdb"
        comm.Connection = conn
        comm.CommandText = "UPDATE 4Regels-Tekst SET Regel1='" & txtRegel1.Text & "', Regel2=" & txtRegel2.Text & "', Regel3='" & txtRegel3.Text & "', Regel4='" & txtRegel1.Text & "', Klantnaam='" & txtKlantnaam.Text & "' WHERE (EtiketCode='" & txtCode.Text & "')"
        Try
            conn.Open()
            comm.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            conn.Close()
        End Try
    End Sub

Er kunnen wel wat kleine foutjes inzitten, vermits ik al in een hele tijd niet meer met oleDB gewerkt heb ... Sorry Hiervoor