Hallo,
ein VB2008 Anfänger braucht mal bisschen Unterstützung.
Bin gerade erst am Anfang um mich in VB2008 und das Thema Datenbanken einzuarbeiten und komme auch in kleinen aber feinen
Schritten voran.
Jetz hahb ich allerdings ein Problem welches ich nicht ganz verstehe (Aber ihr könnt mir das sicher erklären)
Ich habe eine Access-Db mit 3 Spalten (Name, PLZ, Ort).
In die möchte ich ganz simpel neue Daten aus Textboxen eintragen. Dachte das ist ganz einfach
aber irgendwo hängts und ich weiß net was falsch ist.
Hier mal der Code :
wie gesagt is alles voll anfängermäßig aber wär trotzdem toll wenn jemand nen Tipp hätte damit ich für die Zukunft derartige Fehler vermeide ;(
ein VB2008 Anfänger braucht mal bisschen Unterstützung.
Bin gerade erst am Anfang um mich in VB2008 und das Thema Datenbanken einzuarbeiten und komme auch in kleinen aber feinen
Schritten voran.
Jetz hahb ich allerdings ein Problem welches ich nicht ganz verstehe (Aber ihr könnt mir das sicher erklären)
Ich habe eine Access-Db mit 3 Spalten (Name, PLZ, Ort).
In die möchte ich ganz simpel neue Daten aus Textboxen eintragen. Dachte das ist ganz einfach
aber irgendwo hängts und ich weiß net was falsch ist.
Hier mal der Code :
VB.NET-Quellcode
- Imports System.Data.OleDb
- Public Class Form1
- Private conn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0; Data Source=db2.mdb")
- Private da As OleDbDataAdapter = Nothing
- Private ds As DataSet = Nothing
- Private dt As DataTable = Nothing
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Dim str As String = "SELECT * From Tabelle1"
- da = New OleDbDataAdapter(str, conn)
- conn.Open()
- Dim ds As New DataSet
- da.Fill(ds, "Tabelle1")
- conn.Close()
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim insql = "INSERT INTO Tabelle1 (Name, PLZ, ORT) VALUES (?,?,?)"
- Dim inscmd As New OleDbCommand(insql, conn)
- inscmd.Parameters.Add("?", OleDbType.VarChar, 40, "Name")
- inscmd.Parameters.Add("?", OleDbType.BigInt, 5, "PLZ")
- inscmd.Parameters.Add("?", OleDbType.VarChar, 30, "Ort")
- da.InsertCommand = inscmd
- Dim dt As New DataTable
- dt = ds.Tables("Tabelle1")
- Dim rw As DataRow = dt.NewRow()
- rw("Name") = TextBox1.Text
- rw("PLZ") = TextBox2.Text
- rw("Ort") = TextBox3.Text
- dt.Rows.Add(rw)
- conn.Open()
- da.Update(dt)
- conn.Close()
- End Sub
- End Class
wie gesagt is alles voll anfängermäßig aber wär trotzdem toll wenn jemand nen Tipp hätte damit ich für die Zukunft derartige Fehler vermeide ;(