login  Naam:   Wachtwoord: 
Registreer je!
 Forum

Gegevens Database (Opgelost)

Offline rredspike1 - 17/10/2008 12:19
Avatar van rredspike1Lid Beste all

Gisteren kreeg ik een code en deze had ik neergezet alleen haalt deze code de waarden op uit de database alleen ik wil gegevens toevoegen in de database.

Kan iemand mij helpen, zal even het hele stukje code plakken!
Bij: adapter.fill(topics) zegt het ik kan de db niet vinden raar!

Bekijk hier de code

Groeten!

12 antwoorden

Gesponsorde links
Offline Abbas - 17/10/2008 15:27
Avatar van Abbas Gouden medaille

Crew .NET		 Bestaat de DB wel, is het pad ernaar wel correct? In je andere TableAdapter ga je een tabel Klanten ophalen, wat wel lukt. Nu haal je gegevens van de tabel Topics op, bestaat die tabel wel? Kijk dat eens allemaal na! 
Offline rredspike1 - 17/10/2008 16:09
Avatar van rredspike1 Lid Nee die bestaat niet! (topics)

Pad is goed naar die database!! heel raar!
Offline Abbas - 17/10/2008 16:11
Avatar van Abbas Gouden medaille

Crew .NET		 Als dit "Topics" niet bestaat, waarom heb je dan dit staan op regel 10?! 
vbnet code - Bekijk de code zonder highlighting - Klap code in 
  1. Dim cmd As String = "Select * from Topics"
Offline rredspike1 - 17/10/2008 16:12 (laatste wijziging 17/10/2008 16:16)
Avatar van rredspike1 Lid Ik heb nu dit en NOG steeds geeft het aan!

Pad naar de database bestaat niet terwijl dat wel bestaat!!

vbnet code - Bekijk de code zonder highlighting - Klap code in 
  1. Imports System.Data.OleDb
  2.  
  3. Public Class MSPVenster
  4.  
  5.     Private Sub MSPVenster_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  6.         'TODO: This line of code loads data into the 'MSPDataSet.Klanten' table. You can move, or remove it, as needed.
  7.         Me.KlantenTableAdapter.Fill(Me.MSPDataSet.Klanten)
  8.  
  9.         Dim conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=MSP.mdb;Persist Security Info=False"
  10.         Dim cmd As String = "Select * from Klanten"
  11.         Dim adapter As New OleDbDataAdapter(cmd, conn)
  12.         Dim topics As New DataSet
  13.         adapter.Fill(MSPDataSet.Klanten)
  14.  
  15.     End Sub
  16.  
  17.     Private Sub btnNieuweKlant_Toevoegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNieuweKlant_Toevoegen.Click
  18.         If String.IsNullOrEmpty(BedrijfsnaamTextBox.Text) And String.IsNullOrEmpty(VoornaamTextBox.Text) And String.IsNullOrEmpty(AchternaamTextBox.Text) And String.IsNullOrEmpty(AdresTextBox.Text) And String.IsNullOrEmpty(PostcodeTextBox.Text) And String.IsNullOrEmpty(PlaatsTextBox.Text) Then
  19.             MessageBox.Show("Alle velden invullen")
  20.         ElseIf Not IsNumeric(TelefoonnummerTextBox.Text) Then
  21.             MessageBox.Show("Telefoonnummer mogen alleen getallen worden ingevuld")
  22.         Else
  23.             Dim myConnection As OleDbConnection = New OleDbConnection(My.MySettings.Default.MSPConnectionString)
  24.             Dim strQuery = "INSERT INTO Klanten(Bedrijfsnaam,Voornaam, Achternaam, Adres, Postcode, Plaats, Telefoonnummer, Faxnummer, Emailadres) VALUES('" & BedrijfsnaamTextBox.Text & "', '" & VoornaamTextBox.Text & "', '" & AchternaamTextBox.Text & "', '" & AdresTextBox.Text & "', '" & PostcodeTextBox.Text & "', '" & PlaatsTextBox.Text & "', '" & Convert.ToInt32(TelefoonnummerTextBox.Text) & "', '" & FaxnummerTextBox.Text & "', '" & EmailadresTextBox.Text & "')"
  25.             Dim myCommand As New OleDbCommand(strQuery, myConnection)
  26.  
  27.             Try
  28.                 myConnection.Open()
  29.                 myCommand.ExecuteNonQuery()
  30.             Catch ex As Exception
  31.                 MessageBox.Show("Volgende fout is opgetreden: " & Environment.NewLine & ex.Message)
  32.             Finally
  33.                 myConnection.Close()
  34.             End Try
  35.             Me.KlantenTableAdapter.Fill(Me.MSPDataSet.Klanten)
  36.         End If
  37.  
  38.     End Sub
  39. End Class


---- later ----
Na verder onderzoek heb ik regel 13 veranderd in
vbnet code - Bekijk de code zonder highlighting - Klap code in 
  1. Me.KlantenTableAdapter.Fill(Me.MSPDataSet.Klanten)
Offline Abbas - 17/10/2008 16:19
Avatar van Abbas Gouden medaille

Crew .NET		 Dat stond op regel 7 ook al! 
Offline Kr4nKz1n - 17/10/2008 16:20
Avatar van Kr4nKz1n Onbekend Ctrl+F = Zoeken
Offline Abbas - 17/10/2008 16:21
Avatar van Abbas Gouden medaille

Crew .NET		 Wat?! :p
Offline rredspike1 - 17/10/2008 17:21
Avatar van rredspike1 Lid
titjes schreef:
Dat stond op regel 7 ook al! 


en regel 35
Offline Abbas - 17/10/2008 17:38
Avatar van Abbas Gouden medaille

Crew .NET		 Waarom doe je het dan nog eens op regel 10?
Offline rredspike1 - 17/10/2008 17:57
Avatar van rredspike1 Lid jonge ik heb werkelijk geen idee!! dacht dat zo hoorde omdat het best logisch stond 

en als het dan werkt, denk ik ...ok zie je  hahaha

maar help me nu maar ff als je dat wil want ik snap dr geen klap van 
Offline Abbas - 17/10/2008 17:59
Avatar van Abbas Gouden medaille

Crew .NET
vbnet code - Bekijk de code zonder highlighting - Klap code in 
  1. Imports System.Data.OleDb
  2.  
  3. Public Class MSPVenster
  4.  
  5.     Private Sub MSPVenster_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  6.         Me.KlantenTableAdapter.Fill(Me.MSPDataSet.Klanten)
  7.     End Sub
  8.  
  9.     Private Sub btnNieuweKlant_Toevoegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNieuweKlant_Toevoegen.Click
  10.         If String.IsNullOrEmpty(BedrijfsnaamTextBox.Text) And String.IsNullOrEmpty(VoornaamTextBox.Text) And String.IsNullOrEmpty(AchternaamTextBox.Text) And String.IsNullOrEmpty(AdresTextBox.Text) And String.IsNullOrEmpty(PostcodeTextBox.Text) And String.IsNullOrEmpty(PlaatsTextBox.Text) Then
  11.             MessageBox.Show("Alle velden invullen")
  12.         ElseIf Not IsNumeric(TelefoonnummerTextBox.Text) Then
  13.             MessageBox.Show("Telefoonnummer mogen alleen getallen worden ingevuld")
  14.         Else
  15.             Dim myConnection As OleDbConnection = New OleDbConnection(My.MySettings.Default.MSPConnectionString)
  16.             Dim strQuery = "INSERT INTO Klanten(Bedrijfsnaam,Voornaam, Achternaam, Adres, Postcode, Plaats, Telefoonnummer, Faxnummer, Emailadres) VALUES('" & BedrijfsnaamTextBox.Text & "', '" & VoornaamTextBox.Text & "', '" & AchternaamTextBox.Text & "', '" & AdresTextBox.Text & "', '" & PostcodeTextBox.Text & "', '" & PlaatsTextBox.Text & "', '" & Convert.ToInt32(TelefoonnummerTextBox.Text) & "', '" & FaxnummerTextBox.Text & "', '" & EmailadresTextBox.Text & "')"
  17.             Dim myCommand As New OleDbCommand(strQuery, myConnection)
  18.  
  19.             Try
  20.                 myConnection.Open()
  21.                 myCommand.ExecuteNonQuery()
  22.             Catch ex As Exception
  23.                 MessageBox.Show("Volgende fout is opgetreden: " & Environment.NewLine & ex.Message)
  24.             Finally
  25.                 myConnection.Close()
  26.             End Try
  27.             Me.KlantenTableAdapter.Fill(Me.MSPDataSet.Klanten)
  28.         End If
  29.  
  30.     End Sub
  31. End Class
Offline rredspike1 - 18/10/2008 01:05
Avatar van rredspike1 Lid Beste ;) het slaat niks op in de database....

komt telkens met record 1 terug!
net alsof als ik op de knop druk, zegt alle textboxen.clear...maar
moet gebeuren dat het in een nieuwe record word gezet...

vreemd...ik snap er niks meer van...zeg ik mail het je wel even!!
Gesponsorde links
Dit onderwerp is gesloten.
Actieve forumberichten
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.201s