vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

ADO.NET / Datenbanken
Access Datenbankverbindung erstellen mit Update funktion 
Autor: akicom
Datum: 14.07.05 23:02

Hallo

habe folgenden Code von Galileo Computing genommen aber es wird nichts in die Access Datenbank gespeichert.




Imports System.Data.OleDb
Imports System.IO
Imports System.Data


Public Class Form1
Inherits System.Windows.Forms.Form

#Region " Vom Windows Form Designer generierter Code "


Dim objConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=C:\Neu.mdb")
Dim objDataAdapter As OleDb.OleDbDataAdapter
Dim objDataSet As DataSet
Dim objDataView As DataView




Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
objDataView = Nothing
objDataSet = New DataSet
objConnection.Open()

objDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Daten", objConnection)
objDataAdapter.Fill(objDataSet, "Daten")
objDataView = New DataView(objDataSet.Tables("Daten"))

With Me
.TextBox1.DataBindings.Add("Text", objDataView, "T_Name")
.TextBox2.DataBindings.Add("Text", objDataView, "T_Straße")

.chkInfopost.DataBindings.Add("Checked", objDataView, "T_Info")
End With

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objZeile As DataRow
objZeile = objDataSet.Tables("Daten").NewRow()
With objZeile
.Item("T_Name") = TextBox1.Text
.Item("T_Straße") = TextBox2.Text
'.Item("Infopost") = chkInfopost.Checked

End With
objDataSet.Tables("Daten").Rows.Add(objZeile)
objDataAdapter.Update(objDataSet, "Daten")

End Sub
End Class


Wo ist der Fehler
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Access Datenbankverbindung erstellen mit Update funktion934akicom14.07.05 23:02
Re: Access Datenbankverbindung erstellen mit Update funktion589ModeratorDaveS18.07.05 13:06

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel