Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Aus Datagridview Daten aktualisieren und in Tabelle zurückspeichern, findet aber die Tabelle nicht?

Mitglied: HufiHufeisen

HufiHufeisen (Level 1) - Jetzt verbinden

26.10.2011, aktualisiert 12:44 Uhr, 4374 Aufrufe, 1 Kommentar

Hallo ihr Lieben!

Ich bin zur Zeit Anfänger, und versuche mich an einem kleinen Projekt, nur leider scheitere ich schon am anfang.
Ich verwende einen SQL Server 2005 und die VBNet 2008 Umgebung.

Ich habe 2 Tabellen einmal für die Spieler und für Vereine, beide sind mittels Inner Join verknüpft (Primär und Foreign Key gesetzt).

In meiner WIndowsForm soll über eine ComboBox die Vereinsnamen aufgelistet werden, was ich mittels DataReader umgesetzt habe, wenn der Benutzer über die Combox einen Verein auswählt, dann erscheint in der Datagridview die Spieler, die zu dem Verein gehören. Klappt alles wunderbar.

Nun möchte ich aber dem Benutzer die Möglichkeit geben, Daten zu ändern bzw. zu löschen. Der Löschvorgang im Datagridview funktioniert zwar, aber die darauffolgende Aktualiserung auf die Tabelle klappt nicht, da die Tabelle nicht gefunden wird.. obwohl alles deklariert wurde...

Aktualisieren: TableMapping['tbl_spielerdaten'] oder DataTable 'tbl_spielerdaten' kann nicht gefunden werden ???

Ich habe mal den gesamt Quellcode reingesetzt in der Hoffnung, dass mir jemand den Fehler wiedergeben kann, würde mich freuen!


I. Combobox-Spalte füllen mit DataReader
Private Sub ReadData_SQLServer()

'1.Verbindung
Dim Cn_sql As New SqlConnection
Dim ConnBuilder As SqlConnectionStringBuilder = New SqlConnectionStringBuilder()
With ConnBuilder
.DataSource = "xxxx"
.InitialCatalog = "mog_sportverwaltung"
.UserID = "xx"
.Password = "xx"
End With

'2.ConnectionString zusammenstellen lassen vom ConnectionStingBuilder-Object
Dim CONNSTRING As String = ConnBuilder.ConnectionString

'3.Tabelle definieren
Const TblName As String = "tbl_vereinsdaten"

'4.SQL.Statement festlegen
Const strSQL As String = "Select * from " & TblName & ";"

'5.Verbindung aufbauen
Cn_sql.ConnectionString = CONNSTRING
Cn_sql.Open()

Dim cmd As SqlCommand = Cn_sql.CreateCommand
cmd.CommandText = strSQL


Dim dr As SqlDataReader = cmd.ExecuteReader

Do While dr.Read
ComboBox1.Items.Add(dr.Item(0).ToString)
Loop

'Connection schliessen
dr.Close()
Cn_sql.Close()
End Sub


II. Aus Combobox-Auswahl (hier die Vereinsauswahl gemeint) mit Dataset in Datagridview ausgeben
Private Sub ComboBox_auslesen

Dim TblName As String = "tbl_vereinsdaten"
Dim TblName1 As String = "tbl_spielerdaten"

'SQL.Statement festlegen
Dim strSQL As String

strSQL = "Select S_Name, S_Vorname, Nationalität, Herkunft, S_Alter, Position, Tore from " _
& TblName1 & " inner join " & TblName & " on " & TblName & ".pk_VereinID = " _
& TblName1 & ".fk_VereinID where pk_VereinID = ' " & ComboBox1.SelectedIndex + 1 & "'"

Dim ds As New DataSet

ds = DatasetFüllen(strSQL)

Dim myDataTable As New DataTable()
myDataTable = ds.Tables("DataTable")

With DataGridView1
DataGridView1.DataSource = ds
DataGridView1.DataMember = "DataTable"
End With

Public Function DatasetFüllen(ByVal strSQL As String) As DataSet
Dim Cn_sql As New SqlConnection
Dim ConnBuilder As SqlConnectionStringBuilder = New SqlConnectionStringBuilder()
Dim bindingSource1 As New BindingSource()
With ConnBuilder
.DataSource = "xxxx"
.InitialCatalog = "mog_sportverwaltung"
.UserID = "xx"
.Password = "xx"
End With

Dim CONNSTRING As String = ConnBuilder.ConnectionString
Cn_sql.ConnectionString = CONNSTRING
Dim cmd As New SqlCommand(strSQL, Cn_sql)
Dim da As New SqlDataAdapter(cmd)
Cn_sql.Open()
Dim ds As New DataSet()
da.Fill(ds, "DataTable")
Cn_sql.Close()

Return ds
End Function
End Sub

III. Zeilen in Datagridview löschen, und wieder aktualisieren bzw. speichern


Private Sub btn_löschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_löschen.Click

Dim Cn_sql As New SqlConnection
Dim ConnBuilder As SqlConnectionStringBuilder = New SqlConnectionStringBuilder()
With ConnBuilder
.DataSource = "xxxx"
.InitialCatalog = "mog_sportverwaltung"
.UserID = "xx"
.Password = "xx"
End With

Dim ds As New DataSet
Dim da As New SqlDataAdapter
da.MissingSchemaAction = MissingSchemaAction.AddWithKey

Cn_sql.ConnectionString = ConnBuilder.ConnectionString


Dim TblName1 As String = "tbl_spielerdaten"

With DataGridView1
'DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
Dim Dr As Integer
Dr = MsgBox("Wirklich löschen?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Achtung, Löschvorgang")

If Dr = vbYes Then

Dim x As Integer
Dim i As Integer
Dim y As Integer = .GetCellCount(DataGridViewElementStates.Selected)
For i = y - 1 To 0 Step -1
x = .SelectedCells(i).RowIndex
.Rows.RemoveAt(x)

da.UpdateCommand = New SqlCommand(" update " & TblName1 & " set S_Name = @S_Name, S_Vorname = @S_Vorname, " _
& " Nationalität = @Nationalität, Herkunft = @Herkunft, S_Alter = @S_Alter, Position = @Position, Tore = @Tore ", Cn_sql)

da.UpdateCommand.Parameters.Add("@S_Name", SqlDbType.VarChar, 20, "S_Name")
da.UpdateCommand.Parameters.Add("@S_Vorname", SqlDbType.VarChar, 20, "S_Vorname")
da.UpdateCommand.Parameters.Add("@Nationalität", SqlDbType.VarChar, 30, "Nationalität")
da.UpdateCommand.Parameters.Add("@Herkunft", SqlDbType.VarChar, 30, "Herkunft")
da.UpdateCommand.Parameters.Add("@S_Alter", SqlDbType.Int, 1, "S_Alter")
da.UpdateCommand.Parameters.Add("@Position", SqlDbType.VarChar, 30, "Position")
da.UpdateCommand.Parameters.Add("@Tore", SqlDbType.Int, 1, "Tore")

Try
da.Update(ds, TblName1)

Catch ex As SqlException
MessageBox.Show(ex.Message, "Fehlermeldung", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Finally

End Try

Next
Else
Exit Sub
End If

End With


End Sub
Mitglied: dog
26.10.2011 um 16:23 Uhr
Du hast hier schonmal einen Logik-Fehler drin.

Entweder du benutzt einen SqlDataAdapter - und dann definierst du nur Vorlagen für die Queries und bindest den an das DataSet.
Oder du machst es ganz von Hand, dann brauchst du aber auch keinen SqlDataAdapter.

Zudem solltest du die DB-Verbindung nicht in jeder Funktion neu aufbauen, sondern nur einmal beim Programmstart.
Bitte warten ..
Ähnliche Inhalte
Visual Studio

VB.net Datagridview in Datenbank Access zurückspeichern

gelöst Frage von Pilger83Visual Studio1 Kommentar

Hallo zusammen, bräuchte bitte eine kleine Hilfestellung (Code unten), finde leider den Fehler nicht folgendes Problem angebundene Datenquellen sind ...

Datenbanken

Foto aktualisieren in SQL Tabelle

gelöst Frage von Dr.CornwallisDatenbanken2 Kommentare

Liebe Gemeinde, ich habe eine Access Datenbank auf einen SQL Server hochgeladen. In dieser Datenbank gibt es eine Tabelle ...

Visual Studio

DataGridViewComboBoxColumn - DatagridView

Frage von SachsenHessiVisual Studio2 Kommentare

Hallo all, ich stehe mal wieder auf dem Schlauch :( Ich habe ein DGV, dem eine DataGridViewComboBoxColumn zugefügt wird. ...

Microsoft Office

Kopieren von auszuwählenden Daten in weitere Tabelle

Frage von dus100Microsoft Office1 Kommentar

Hallo, wie einige andere auch habe ich ein Problem bei der Erstellung von Makros in VBA. Ich nutzeExcel für ...

Neue Wissensbeiträge
iOS
IOS 11.2.6 verfügbar
Information von sabines vor 2 StundeniOS

Mit dem Update soll der Bug behoben werden, bei dem eine bestimmte Zeichenkette IOS zum Absturz gebracht hat.

Sicherheit
Sicherheitsrisiko: Die Krux mit 7-Zip
Information von kgborn vor 16 StundenSicherheit

Bei vielen Anwendern ist das Tool 7-Zip zum Entpacken von Archivdateien im Einsatz. Die Software ist kostenlos und steht ...

Internet

Datendealing im WWW Tracking Methoden immer brutaler

Information von sabines vor 1 TagInternet

Interessanter Artikel zum Thema Tracking im WWW und die immer "besseren" Methoden des Trackings. Professor Arvind Narayanan (Princeton-Universität) betreibt ...

Erkennung und -Abwehr

Ups: Einfaches Nullzeichen hebelte den Anti-Malware-Schutzt in Windows 10 aus

Information von kgborn vor 1 TagErkennung und -Abwehr

Windows 10 ist das sicherste Windows aller Zeiten, wie Microsoft betont. Insidern ist aber klar, das es da Lücken, ...

Heiß diskutierte Inhalte
Server
Route-Befehl Unterstützung (unter CMD)
gelöst Frage von FKRR56Server38 Kommentare

Guten Tag , i.M. habe ich Probleme über den CMD-Route-Befehl ein Routing auf einen entfernten Server zuzulassen. Der Server ...

Windows 10
Windows 10 (1709) Tastur und Maus wieder einschalten?
Frage von LochkartenstanzerWindows 1028 Kommentare

Moin, Ich habe von einem Kunden einen Win10-Rechner bekommen, bei dem weder Tastatur noch Maus geht. Die Hardware funktioniert ...

Microsoft
TV-Tipp: Das Microsoft-Dilemma
Information von kgbornMicrosoft17 Kommentare

Aktuell gibt es in Behörden und in Firmen eine fatale Abhängigkeit von Microsoft und dessen Produkten. Planlos agieren die ...

LAN, WAN, Wireless
VPN Cisco ASA5505 PaloAlto PA-200
gelöst Frage von YannoschLAN, WAN, Wireless15 Kommentare

Hallo zusammen, ich würde gerne ein Site-to-Site VPN zwischen den beiden Standorten aufbauen. PaloAlto PA200 Internetanschluss Deutsche Telekom GK ...