vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 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
Problem beim zugreifen auf mehrere Tabellen 
Autor: nrg
Datum: 21.06.07 08:26

Ich habe folgendes Problem. Wenn ich nun in eine Tabelle reinschreiben möchte mit zb einen klick auf btn1 ist das kein problem aber sobald ich das selbe mit einer 2ten tabelle machen muss kommt es immer zu fehlern.

Mein code zum anlegen eines neuen Datensatzes:

Imports System.Data.OleDb

Private dbpath As String = _
System.IO.Path.Combine(Application.StartupPath, "db1.mdb")
Private conn As New OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbpath & ";")
Private sql As String = "SELECT * FROM Tabelle1;"
Private cmd As New OleDbCommand(sql, conn)
Private da As New OleDbDataAdapter(cmd)
Private ds As New DataSet

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da)
Dim test1 As String
Dim test2 As String

test1 = TextBox1.Text
test2 = TextBox2.Text

Try
conn.Open()

Dim row As DataRow = ds.Tables("Tabelle1").NewRow

row("spalte2") = test1 ' 1 ist eine ID autowert Spalte
row("spalte3") = test2

ds.Tables("Tabelle1").Rows.Add(row)

da.Update(ds, "Tabelle1")

Catch ex As OleDbException
MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
Finally
conn.Close()
End Try

LOAD_tbl1()
End Sub

Private Sub LOAD_Tbl1()
Try
conn.Open()
ds.Clear()
da.Fill(ds, "Tabelle1")
Catch ex As OleDbException
MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
Finally
conn.Close()
End Try
End Sub


soweit ist das alles überhaupt kein Problem. nur wenn ich jetzt den genau gleichen code schreibe nur für eine neue tabelle und dies dann mit klick auf btn2 in die tabelle2 schreiben möchte funktioniert der DataRow nichtmehr.

z.b

Private sql2 As String = "SELECT * FROM Tabelle2;"
Private cmd2 As New OleDbCommand(sql2, conn) 'conn ist ja schon deklariert
Private da2 As New OleDbDataAdapter(cmd2)
Private ds2 As New DataSet

und nun folgt der gleiche code wie oben nur mit den eben deklarierten variablen und anstatt tabelle1 halt ab und zu tabelle2. nur das funktioniert nicht

Screenshot: http://img458.imageshack.us/img458/8707/unbenanntna5.jpg

danke schonmal für eure Hilfe.

Gruß Andi
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Problem beim zugreifen auf mehrere Tabellen1.120nrg21.06.07 08:26
Re: Problem beim zugreifen auf mehrere Tabellen708Melkor21.06.07 12:43
Re: Problem beim zugreifen auf mehrere Tabellen625Melkor21.06.07 18:38
Re: Problem beim zugreifen auf mehrere Tabellen617nrg22.06.07 09:04
Re: Problem beim zugreifen auf mehrere Tabellen625Melkor22.06.07 10:43
Re: Problem beim zugreifen auf mehrere Tabellen736nrg22.06.07 11:03

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