Opslaan in Visual Studio 2005

Status
Niet open voor verdere reacties.
M

mraats

Gebruiker
Lid geworden
25 aug 2006
Berichten
64
Goededag mensen.
ik heb een programmatje gemaakt voor een inventarisatie.
Nu werkt alles behalve het opslaan in de acces database niet
Er hangt natuurlijk wel een Visual Studio form aan , meerdere zelfs
Maar er hoeft maar 1 form inhoud opgeslagen te worden.
Kan iemand helpen?
De code heeft wel gewerkt , maar nu niet meer
Hieronder staat de code...

Imports System.Data
Imports System.Data.OleDb
Imports System.Configuration
Public Class Form1
Inherits System.Windows.Forms.Form
Dim VensterKleur As Color
Private strConnectie As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\inventarisatie.mdb;Persist Security Info=False;"
Private oledbcon As New OleDbConnection(strConnectie)
Private Command As New OleDb.OleDbCommand("Select * From Inventarisatie", oledbcon)
Private dataAdapter As New OleDbDataAdapter(Command)
Private bob As New OleDbCommandBuilder(dataAdapter)
Private dsInventarisatie As New DataSet
Dim blnNieuw As Boolean
Private Navigeer As New BindingSource


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label15.Text = Format(Today, "dd-MMM-yyyy")
Label16.Text = TimeString
Me.BackColor = VensterKleur


Me.ReportViewer1.RefreshReport()
End Sub

Private Sub cmdEerste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEerste.Click
Navigeer.MoveFirst()
End Sub

Private Sub cmdVolgende_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdVolgende.Click
Navigeer.MoveNext()
End Sub

Public Sub New()
MyBase.New()
' This call is required by the Windows Form Designer.
Me.SuspendLayout()
InitializeComponent()
Try
dataAdapter.Fill(dsInventarisatie, "Inventarisatie")
Navigeer.DataSource = dsInventarisatie.Tables(0)
Navigator.BindingSource = Navigeer
txtid.DataBindings.Add("Text", Navigeer, "Id")
txtwat.DataBindings.Add("Text", Navigeer, "Wat")
txtmerk.DataBindings.Add("Text", Navigeer, "Merk")
txttype.DataBindings.Add("Text", Navigeer, "Type")
txtserienr.DataBindings.Add("Text", Navigeer, "SerieNr")
txttypegeheugen.DataBindings.Add("Text", Navigeer, "TypeGeheugen")
txthoeveelgeheugen.DataBindings.Add("Text", Navigeer, "HoeveelGeheugen")
txtjaar.DataBindings.Add("Text", Navigeer, "Jaar")
txtos.DataBindings.Add("Text", Navigeer, "OS")
txtwiewaar.DataBindings.Add("Text", Navigeer, "WieWaar")
txtwaardeca.DataBindings.Add("Text", Navigeer, "WaardeCa")
txtvervang2004.DataBindings.Add("Text", Navigeer, "Vervang2004")
txtvervang2005.DataBindings.Add("Text", Navigeer, "Vervang2005")
txtvervang2006.DataBindings.Add("Text", Navigeer, "Vervang2006")

Catch ex As Exception

End Try

Me.ResumeLayout()
' Add any initialization after the InitializeComponent() call.

End Sub

Private Sub cmdVorige_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdVorige.Click
Navigeer.MovePrevious()
End Sub

Private Sub cmdLaatste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLaatste.Click
Navigeer.MoveLast()
End Sub



Private Sub cmdBewaar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBewaar.Click
If blnNieuw = False Then
'update gegevens
Me.BindingContext(dsInventarisatie.Tables("Inventarisatie")).EndCurrentEdit()
dataAdapter.Update(dsInventarisatie.Tables("Inventarisatie"))
Else
''nieuwe toevoegen
Dim Row As DataRow = dsInventarisatie.Tables(0).NewRow
Row("id") = txtid.Text
Row("wat") = txtwat.Text
Row("merk") = txtmerk.Text
Row("type") = txttype.Text
Row("serienr") = txtserienr.Text
Row("typegeheugen") = txttypegeheugen.Text
Row("hoeveelgeheugen") = txthoeveelgeheugen.Text
Row("jaar") = txtjaar.Text
Row("os") = txtos.Text
Row("wiewaar") = txtwiewaar.Text
Row("waardeca") = txtwaardeca.Text
Row("vervang2004") = txtvervang2004.Text
Row("vervang2005") = txtvervang2005.Text
Row("vervang2006") = txtvervang2006.Text
dsInventarisatie.Tables(0).Rows.Add(Row)
dataAdapter.ContinueUpdateOnError = True
dataAdapter.Update(dsInventarisatie.Tables(0))
End If



End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click
Dim nTemp As Integer, sTemp As String
sTemp = "Weet je zeker dat je wilt afsluiten?"
nTemp = MsgBox(sTemp, vbYesNo, "Afsluiten")
If nTemp = vbYes Then
End
End If
End Sub

Private Sub txtid_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtid.TextChanged
If IsNumeric(txtid.Text) = False Then
MsgBox(Prompt:="Voer A.U.B. een getal in!")
End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label15.Text = Format(Today, "dd-MMM-yyyy")
Label16.Text = TimeString
End Sub


Private Sub BewaarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BewaarToolStripMenuItem.Click
If blnNieuw = False Then
'update gegevens
Me.BindingContext(dsInventarisatie.Tables("Inventarisatie")).EndCurrentEdit()
dataAdapter.Update(dsInventarisatie.Tables("Inventarisatie"))
Else
''nieuwe toevoegen
Dim Row As DataRow = dsInventarisatie.Tables(0).NewRow
Row("id") = txtid.Text
Row("wat") = txtwat.Text
Row("merk") = txtmerk.Text
Row("type") = txttype.Text
Row("serienr") = txtserienr.Text
Row("typegeheugen") = txttypegeheugen.Text
Row("hoeveelgeheugen") = txthoeveelgeheugen.Text
Row("jaar") = txtjaar.Text
Row("os") = txtos.Text
Row("wiewaar") = txtwiewaar.Text
Row("waardeca") = txtwaardeca.Text
Row("vervang2004") = txtvervang2004.Text
Row("vervang2005") = txtvervang2005.Text
Row("vervang2006") = txtvervang2006.Text
dsInventarisatie.Tables(0).Rows.Add(Row)
dataAdapter.ContinueUpdateOnError = True
dataAdapter.Update(dsInventarisatie.Tables(0))
End If
End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Dim nTemp As Integer, sTemp As String
sTemp = "Weet je zeker dat je wilt afsluiten?"
nTemp = MsgBox(sTemp, vbYesNo, "Afsluiten")
If nTemp = vbYes Then
End
End If
End Sub

Private Sub VensterkleurToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VensterkleurToolStripMenuItem.Click
REM menu-item Vensterkleur
KiesKleur(Me.BackColor)

End Sub

Private Sub TekstkleurToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TekstkleurToolStripMenuItem.Click
REM menu-item tekstkleur
Dim TekstKleur As Color
KiesKleur(TekstKleur)
Label1.ForeColor = TekstKleur
Label2.ForeColor = TekstKleur
Label3.ForeColor = TekstKleur
Label4.ForeColor = TekstKleur
Label5.ForeColor = TekstKleur
Label6.ForeColor = TekstKleur
Label7.ForeColor = TekstKleur
Label8.ForeColor = TekstKleur
Label9.ForeColor = TekstKleur
Label10.ForeColor = TekstKleur
Label11.ForeColor = TekstKleur
Label12.ForeColor = TekstKleur
Label13.ForeColor = TekstKleur
Label14.ForeColor = TekstKleur
Label15.ForeColor = TekstKleur
Label16.ForeColor = TekstKleur
cmdEerste.ForeColor = TekstKleur
cmdExit.ForeColor = TekstKleur
cmdLaatste.ForeColor = TekstKleur
cmdBewaar.ForeColor = TekstKleur
cmdVolgende.ForeColor = TekstKleur
cmdVorige.ForeColor = TekstKleur
cmdHelp.ForeColor = TekstKleur
End Sub

Private Sub KiesKleur(ByRef Kleur As Color)
REM deze sub kiest een kleur
Dim Antwoord As DialogResult
Antwoord = ColorDialog1.ShowDialog
If Antwoord = Windows.Forms.DialogResult.OK Then
Kleur = ColorDialog1.Color
End If
End Sub

Private Sub cmdHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHelp.Click
Form2.Show()

End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub ProgrammaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgrammaToolStripMenuItem.Click
form5.show()
End Sub

Private Sub VersieToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VersieToolStripMenuItem.Click
Dim cTemp As Integer, dTemp As String
dTemp = "Dit is verie 1.0.0.1"
cTemp = MsgBox(dTemp, MsgBoxStyle.OkOnly, "Versie")
End Sub

Private Sub PrintPreviewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintPreviewToolStripMenuItem.Click

End Sub

Private Sub PCsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PCsToolStripMenuItem.Click
Form6.Show()
End Sub

Private Sub LaptopToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaptopToolStripMenuItem.Click
Form7.show()
End Sub

Private Sub MonitorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MonitorToolStripMenuItem.Click
Form8.show()
End Sub

Private Sub BeamerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeamerToolStripMenuItem.Click
Form9.Show()
End Sub

Private Sub AllesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AllesToolStripMenuItem.Click
Form10.show()
End Sub
End Class
Klik om te vergroten...
 
Laatst bewerkt:
Het gaat dus om dit kleine stukje code ... kan iemand echt niet helpen?


Code: 
Private Sub BewaarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BewaarToolStripMenuItem.Click
If blnNieuw = False Then
'update gegevens
Me.BindingContext(dsInventarisatie.Tables("Inventarisatie")).EndCurrentEdit()
dataAdapter.Update(dsInventarisatie.Tables("Inventarisatie"))
Else
''nieuwe toevoegen
Dim Row As DataRow = dsInventarisatie.Tables(0).NewRow
Row("id") = txtid.Text
Row("wat") = txtwat.Text
Row("merk") = txtmerk.Text
Row("type") = txttype.Text
Row("serienr") = txtserienr.Text
Row("typegeheugen") = txttypegeheugen.Text
Row("hoeveelgeheugen") = txthoeveelgeheugen.Text
Row("jaar") = txtjaar.Text
Row("os") = txtos.Text
Row("wiewaar") = txtwiewaar.Text
Row("waardeca") = txtwaardeca.Text
Row("vervang2004") = txtvervang2004.Text
Row("vervang2005") = txtvervang2005.Text
Row("vervang2006") = txtvervang2006.Text
dsInventarisatie.Tables(0).Rows.Add(Row)
dataAdapter.ContinueUpdateOnError = True
dataAdapter.Update(dsInventarisatie.Tables(0))
End If
End Sub
 
Of hoe ik die code kan testen ..
want bijvoorbeeld bij bepaalde programma's zit er een functie in dat je de codes kan testen enzo..

WIE O WIE KAN ME HELPEN!?!
 
ter verduidelijking nog een keer

ik heb dus een programmatje in visual studio 2005
en als ik dan op het knopje opslaan druk ..
wordt de database niet bij gewerkt terwijl de code eerst wel werkte...
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan