Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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?

Frage Entwicklung VB for Applications

Mitglied: HufiHufeisen

HufiHufeisen (Level 1) - Jetzt verbinden

26.10.2011, aktualisiert 12:44 Uhr, 4229 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 ..
Neuester Wissensbeitrag
Internet

Unbemerkt - Telekom Netzumschaltung! - BNG - Broadband Network Gateway

(3)

Erfahrungsbericht von ashnod zum Thema Internet ...

Ähnliche Inhalte
Visual Studio
gelöst VB.net Datagridview in Datenbank Access zurückspeichern (1)

Frage von Pilger83 zum Thema Visual Studio ...

Server
gelöst SQL-Tabelle portieren und dabei Daten konvertieren (1)

Frage von menace zum Thema Server ...

VB for Applications
Bestimmte Daten aus eine CSV-Datei in eine Excel-Tabelle importieren (2)

Frage von MariaElena zum Thema VB for Applications ...

Microsoft Office
Kopieren von auszuwählenden Daten in weitere Tabelle (1)

Frage von dus100 zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Grafikkarten & Monitore
Tonprobleme bei Fernseher mit angeschlossenem Laptop über HDMI (11)

Frage von Y3shix zum Thema Grafikkarten & Monitore ...

Microsoft Office
Keine Updates für Office 2016 (11)

Frage von Motte990 zum Thema Microsoft Office ...