geänderte Daten aus Textboxen in einer DatenTabelle in eine Datenbank updaten

dh1sbg · 3. Februar 2017, 21:41

Es geht um fehlenden UPDAT Code (am Ende)
Ich habe eine DataGridView, die in einigen Zellen Zahlen mit einem # enthalten.
Das sind die Zellen, die auf Datensätze verweisen.
Diese Datensätze sollen geändert werden.
Das DataGridView ist auf der linken Seite.

Text-, Combo-Boxen und DateTimePickes auf der rechten Seite.

45# | 890# | empty cell |cell ..........
----------------------------------------------------------

Globale Definitionen

VB.NET-Quellcode

Public Class frmKalenderAnzeigen
Private BindingSource As New BindingSource
Private DataAdapter1 As New Odbc.OdbcDataAdapter
Dim myTable As New DataTable
Dim conn As New OdbcConnection

Im Form-Load Event binde ich die Text-/Combo-Boxen und DataTimePickers an eine Tabelle, myTable. Die Daten kommen von einer MySql Datenbank, die über eine ODBC Verbindung an das Programm angebunden ist
conn.ConnectionString = "Dsn=mis"

...........

Das Load-Ereignis des Formulars

VB.NET-Quellcode

[/b]Dim strSql As String = "SELECT * FROM tbl_kal_termine limit 1"

DataAdapter1 = New OdbcDataAdapter(strSql, conn)

DataAdapter1.Fill(myTable)

txtID.DataBindings.Add("TEXT", myTable, "terID")

txtVon.DataBindings.Add("TEXT", myTable, "terVon")

txtBis.DataBindings.Add("TEXT", myTable, "terBis")

txtWas.DataBindings.Add("TEXT", myTable, "terWas")

txtWo.DataBindings.Add("TEXT", myTable, "terWo")

txtMehr.DataBindings.Add("TEXT", myTable, "terKommentar")

DateTimePicker.DataBindings.Add("TEXT", myTable, "terDatum")

cboAuftrag.DataBindings.Add("TEXT", myTable, "terAuftragId")

cboWer.DataBindings.Add("TEXT", myTable, "terWerID")

myTable.Clear()[b]

Jetzt kann man in eine Zelle in der DataGridView anklicken –
sollte eine Zahl, die mit einem # endet, dann soll dies Zahl dazu dienen,
den zu ändernen Datensatz zu finden und in die Felder auf der rechten Seite anzeigen.

Der Anwender kann jetzt die Daten ändern.

VB.NET-Quellcode

Private Sub dataGridView1_CellClick(ByVal sender As Object,
ByVal e As DataGridViewCellEventArgs) _
Handles DataGridView1.CellClick
' this event comes from a klick on a dataGridView cell.
' either the cell is empty or has not number followed by a #, We do not need to continue
Dim cell As String
' an empty cell?
Try
cell = DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value
Catch ex As Exception
'an empty cell!
myTable.Clear()
Exit Sub
End Try
'If a cell has a number with a # in it, We will continuge
If cell.ToString.IndexOf("#") < 0 Then
myTable.Clear()
Exit Sub
End If
' The table has been created in the load event of the form.
' all textboxes, comboboxes and datetimepickers have been linked to this table
' because I will focus on a total different set for the table, I need to clear the table first
myTable.Clear()
'Set up the SQL String to the record and retrieve it from the odbc Database.
Dim strSql As String = "SELECT * FROM tbl_kal_termine where terID = " & cell.Substring(0, cell.IndexOf("#"))
' fill myTable using the sql-String
DataAdapter1 = New OdbcDataAdapter(strSql, conn)
DataAdapter1.Fill(myTable)
'Erstelle einen Commandbuilder für Insert, Update und Delete
'Dim commandbuilder1 As New OdbcCommandBuilder(DataAdapter1)
If myTable.Rows.Count <> 0 Then
' all textboxes, comboboxes and datetimepickers are filled!
BindingSource1.DataSource = myTable
'Allow the table to accept changes from the textboxes, comboboxes and datetimepickers
myTable.AcceptChanges()
Else
MsgBox("no data")
End If

Bis hier ist alles in Ordnung.
Nach der Änderung der Daten drückt der Benutzer den Update-Button

VB.NET-Quellcode

Private Sub Update_Click(sender As Object, e As EventArgs) Handles Update.Click
'to test what Is in row And each cell in the table myTable
'I see the changes I made in the myTable table / in each cell
Dim txt As String = ""
For Each row In myTable.Rows
For Each column In myTable.Columns
Console.Write(vbTab & row(column.ColumnName).ToString)
txt = row(column.ColumnName).ToString
Next
Next row
' Ich sehe, dass alle Veränderungen in MyTable enthalten sind
' #########################################
' Welchen Code brauche ich um ein Update durchzuführen?
#########################################
End Sub

Ich zeige lieber nicht meine Versuche – sie waren alle nicht erfolgreich

Vielen Dank für Hilfe

Bruno

VB1963 · 3. Februar 2017, 22:10

zunächst einmal ist das nicht WPF...

ErfinderDesRades · 3. Februar 2017, 22:43

Das Dgv_CellClick-Gedöhns brauchst du nicht.
Bei Databinding geschieht das alles automatisch - gradezu durch zauberhand. Lösch den ganzen Kram - du wirst sehen.

Zum Updaten wäre von deim Kram ausgehend am einfachsten, du würdest mit deinem DataAdapter einen CommandBuilder erstellen. So ein CommandBuilder tut nichts - allein durch das Erstellen legt er das richtige Update-Command in deinem DataAdapter an.

Updaten geht dann so:

VB.NET-Quellcode

DataAdapter1.Update(myDataTable)

Evtl. gehen dann die Probleme aber erst los, nämlich die Datenbank muss Primärschlüssel definiert haben, sonst kann prinzipiell kein Datensatz geupdated werden.

Ein anderes Problem entsteht beim Inserten neuer Datensätze - aber eins nach dem anderen - jetzt erstmal updaten.

dh1sbg · 4. Februar 2017, 09:16

ich habe erstmal diese Zeilen eingefügt

Private Sub Update_Click(sender As Object, e As EventArgs) Handles Update.Click
Dim commandbuilder1 As New OdbcCommandBuilder(DataAdapter1)
DataAdapter1.Update(myTable)

leider passiert nichts.
Bruno

ErfinderDesRades · 4. Februar 2017, 09:25

Kommt beim Coden auch immer bischen drauf an, wo bestimmte Codezeilen stehen.
Und das kann ich mangels hellseherischer Fähigkeiten grad nicht so gut erkennen.

Sorry - bin gemein :evil:

Also zu Code kann man am besten was sagen, wenn ich die Deklarationen der Objekte sehe, und die Methoden, wo sie dann initialisiert und konfiguriert, und die anderen Methoden, wo sie dann verwendet werden.
Am liebsten ganze Methoden.
Konkret spreche ich vom DataAdapter - wie du ihn mittm CommandBuilder konfigurierst sieht übrigens nicht verkehrt aus.

Dem entgegen steht gelegentlich die pure Masse, aber bei som klein "lade Daten / speicher Daten" Förmchen denkich, dasses machbar ist.

dh1sbg · 4. Februar 2017, 09:32

VB.NET-Quellcode

Imports System.Data.Odbc
Public Class frmKalenderAnzeigen
Private BindingSource As New BindingSource
Private DataAdapter1 As New Odbc.OdbcDataAdapter
Dim myTable As New DataTable
Dim conn As New OdbcConnection
'Dim commandBuilder2 As OdbcCommandBuilder
Private Sub ZurückToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZurückToolStripMenuItem.Click
conn.Close()
Me.Close()
End Sub
Private Sub frmKalenderAnzeigen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FlowLayoutPanelLeft.Width = Me.Width * 0.7
With DataGridView1
.Top = FlowLayoutPanelLeft.Top + 2
.Left = FlowLayoutPanelLeft.Left + 2
.Width = FlowLayoutPanelLeft.Width - 16
.Height = FlowLayoutPanelLeft.Height - 16
End With
Try
'build up a connection
conn.ConnectionString = "Dsn=mis"
conn.Open()
Catch ex As Exception
MsgBox("Error on Connection" & vbCrLf & ex.Message)
Me.Close()
End Try
' Fülle Kalender
get_Calendar() 'conn will be set there
' +++++++++++++++++++++++++++++++ rechte Seite
' cboWer wird gefüllt
'Dim strSql As String = " "
'Dim DataReader As OdbcDataReader
'strSql = "SELECT * from tbl_kal_wer"
'With cboWer
' Using cmd As New OdbcCommand(strSql, conn)
' DataReader = cmd.ExecuteReader
' ' Jeden einzelnen Datensatz abarbeiten
' While DataReader.Read
' .Items.Add(DataReader("wer_ID").ToString)
' End While
' .SelectedIndex = 1
' End Using
'End With
'' Auftraggeber füllen
'strSql = "SELECT * from tbl_kal_Auftraggeber"
'With cboAuftrag
' Using cmd As New OdbcCommand(strSql, conn)
' DataReader = cmd.ExecuteReader
' ' Jeden einzelnen Datensatz abarbeiten
' While DataReader.Read
' .Items.Add(DataReader("aufAuftragID").ToString)
' End While
' .SelectedIndex = 1
' End Using
'End With
'cboWerkTag.SelectedItem = 1
' rechten Teil binden
Dim strSql As String = "SELECT * FROM tbl_kal_termine limit 1"
DataAdapter1 = New OdbcDataAdapter(strSql, conn)
DataAdapter1.Fill(myTable)
txtID.DataBindings.Add("TEXT", myTable, "terID")
txtVon.DataBindings.Add("TEXT", myTable, "terVon")
txtBis.DataBindings.Add("TEXT", myTable, "terBis")
txtWas.DataBindings.Add("TEXT", myTable, "terWas")
txtWo.DataBindings.Add("TEXT", myTable, "terWo")
txtMehr.DataBindings.Add("TEXT", myTable, "terKommentar")
DateTimePicker.DataBindings.Add("TEXT", myTable, "terDatum")
cboAuftrag.DataBindings.Add("TEXT", myTable, "terAuftragId")
cboWer.DataBindings.Add("TEXT", myTable, "terWerID")
myTable.Clear()
End Sub
Sub get_Calendar()
' table headerHeader
Dim Table As New DataTable
With Table.Columns
.Add(New DataColumn("KW", GetType(String)))
.Add(New DataColumn("Wer", GetType(String)))
.Add(New DataColumn("Mo", GetType(String)))
.Add(New DataColumn("Di", GetType(String)))
.Add(New DataColumn("Mi", GetType(String)))
.Add(New DataColumn("Do", GetType(String)))
.Add(New DataColumn("Fr", GetType(String)))
.Add(New DataColumn("Sa", GetType(String)))
.Add(New DataColumn("So", GetType(String)))
End With
'für jede Datumszeile den Inhalt holen (steht in tbl_kal_wochen
Dim strSql As String = "SELECT * FROM tbl_kal_woche "
Dim DataReader As OdbcDataReader
Dim Row As DataRow = Table.NewRow
Using cmd As New OdbcCommand(strSql, conn)
DataReader = cmd.ExecuteReader
' Jeden einzelnen Datensatz abarbeiten
Dim off As Integer = 7
While DataReader.Read
Row("kw") = DataReader(0).ToString
Row("Mo") = DataReader(1 + off).ToString
Row("Di") = DataReader(2 + off).ToString
Row("Mi") = DataReader(3 + off).ToString
Row("Do") = DataReader(4 + off).ToString
Row("Fr") = DataReader(5 + off).ToString
Row("Sa") = DataReader(6 + off).ToString
Row("So") = DataReader(7 + off).ToString
' Diese Zeile der Tabellehinzufügen
Table.Rows.Add(Row)
' fülle array
' gibt es zu dieser Woche Termine
Dim Result As New ArrayList()
Result = Termine_Fuer_Diese_KW(DataReader(0).ToString)
' Alle Datensätze verarbeiten, also Pro Jahr, Woche, Wer
'finde den ersten Datensatz
Dim bolFirst As Boolean = True ' Erster Datensatz?
Dim bolAdded As Boolean = False ' es wurde was hinzugefügt
Dim tmpWer As String = ""
For Each Rec As Dictionary(Of String, Object) In Result
If bolFirst Then 'den ersten Datensatz finden und dort den Inhalt von WER abspeichern
tmpWer = Rec("terWerId").ToString
Row = Table.NewRow
bolFirst = False
End If
If tmpWer <> Rec("terWerId").ToString Then ' Neue Zeile in Ausgabe
tmpWer = Rec("terWerId").ToString
Table.Rows.Add(Row)
Row = Table.NewRow
bolAdded = False
End If
Row("kw") = Rec("kw").ToString
Row("wer") = Rec("terWerId").ToString
' die ID eintragen
Dim KalDatum As Date = CDate((Rec("terDatum").ToString))
Row(KalDatum.ToString("ddd")) = Row(KalDatum.ToString("ddd")) & Rec("terID") & "#"
' für das add(Row) nach dem Next.
bolAdded = True
Next
If bolAdded Then ' Nur wenn was einer Row hinzugefügt wurde
Table.Rows.Add(Row)
End If
' neue Wochen Zeile
Row = Table.NewRow
End While
End Using
'Tabelle an Datagridview
With Me.DataGridView1
.DataSource = Table
'.AutoSizeRowsMode = DataGridViewAutoSizeRowMode.AllCellsExceptHeader
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCellsExceptHeader
End With
' Farbe hinzufügen
Dim arrBackground() As String = {"vblightYellow", "vblightblue", "vblightgreen"}
Dim Yesterday As Byte = 32
Dim CurMonthColor As Color = Color.LightYellow
Dim CurMonthColor1 As Color = Color.LightBlue
Dim CurMonthColor2 As Color = Color.LightGreen
With DataGridView1
For rowIndex = 0 To .RowCount - 2
For colIndex = 2 To .ColumnCount - 1
If CDbl(.Rows(rowIndex).Cells(0).Value) > 60 Then ' also nur Kalender-Header
'DataGridView1.Rows(rowIndex).Cells(colIndex).ToolTipText = DataGridView1.Rows(rowIndex).Cells(colIndex).Value.ToString
' Gibt es einen Monatswechsel?
If CByte(.Rows(rowIndex).Cells(colIndex).Value.ToString.Substring(0, 2)) < Yesterday Then
CurMonthColor = IIf(CurMonthColor = CurMonthColor1, CurMonthColor2, CurMonthColor1)
Yesterday = 1
Else
Yesterday = CByte(.Rows(rowIndex).Cells(colIndex).Value.ToString.Substring(0, 2))
End If
'If colIndex >= 2 Then ' CurMonth Color
If colIndex >= 7 Then
'Wochenende
.Rows(rowIndex).Cells(colIndex).Style.BackColor = Color.DeepSkyBlue
Else
' Mo - Fr
.Rows(rowIndex).Cells(colIndex).Style.BackColor = CurMonthColor
End If
'ein Feiertag?
If .Rows(rowIndex).Cells(colIndex).Value.ToString.IndexOf(":") > 0 Then
.Rows(rowIndex).Cells(colIndex).Style.BackColor = Color.LightSalmon
End If
Else
'das ist eine WER Zeile
.Rows(rowIndex).Cells(colIndex).Style.BackColor = Color.LightYellow
End If
' toolTip
With .Rows(rowIndex).Cells(colIndex)
' gibt es hier einen Termin? Wenn ja, fülle die Zelle
If .Value.ToString.IndexOf("#") > 0 Then
Dim termineID As String = ""
termineID = .Value.ToString.Substring(0, .Value.ToString.IndexOf("#"))
Dim curDayContent As String = getCalendarCellContent(termineID)
' toolTip
.ToolTipText = curDayContent
End If
End With
Next colIndex
Next rowIndex
End With
' das war's
End Sub
Function getCalendarCellContent(termineId As String) As String
Dim strSql As String = "SELECT * FROM tbl_kal_termine where terID = " & termineId
Dim DataReader As OdbcDataReader
Dim SQLInhalt As String = ""
Using cmd As New OdbcCommand(strSql, conn)
DataReader = cmd.ExecuteReader
' Jeden einzelnen Datensatz abarbeiten
While DataReader.Read
SQLInhalt = DataReader("terWas").ToString
End While
End Using
Return SQLInhalt
End Function
Function Termine_Fuer_Diese_KW(KW As String) As ArrayList
Dim DataReader As OdbcDataReader
Dim strSql As String = "SELECT *, WEEK(terDatum,1) as kw, year(terDatum) as y FROM tbl_kal_Termine " &
"WHERE WEEK(terDatum,1) = '" & KW.Substring(4, 2) & "' and year(terDatum) = '" & KW.Substring(0, 4) &
"' ORDER BY y, kw, terWerId , terDatum "
Dim Result As New ArrayList()
Using cmd As New OdbcCommand(strSql, conn)
DataReader = cmd.ExecuteReader
' Jeden einzelnen Datensatz abarbeiten
' Add each entry to array list
While DataReader.Read()
' Insert each column into a dictionary
Dim dict As New Dictionary(Of String, Object)
For count As Integer = 0 To (DataReader.FieldCount - 1)
dict.Add(DataReader.GetName(count), DataReader(count))
Next
' Add the dictionary to the ArrayList
Result.Add(dict)
End While
End Using
Return Result
DataReader.Close()
End Function
Private Sub dataGridView1_CellClick(ByVal sender As Object,
ByVal e As DataGridViewCellEventArgs) _
Handles DataGridView1.CellClick
' this event comes from a klick on a dataGridView cell.
' either the cell is empty or has not number followed by a #, We do not need to continue
Dim cell As String
' an empty cell?
Try
cell = DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value
Catch ex As Exception
'an empty cell!
myTable.Clear()
Exit Sub
End Try
'If a cell has a number with a # in it, We will continuge
If cell.ToString.IndexOf("#") < 0 Then
myTable.Clear()
Exit Sub
End If
' The table has been created in the load event of the form.
' all textboxes, comboboxes and datetimepickers have been linked to this table
' because I will focus on a total different set for the table, I need to clear the table first
myTable.Clear()
'Set up the SQL String to the record and retrieve it from the odbc Database.
Dim strSql As String = "SELECT * FROM tbl_kal_termine where terID = " & cell.Substring(0, cell.IndexOf("#"))
' fill myTable using the sql-String
DataAdapter1 = New OdbcDataAdapter(strSql, conn)
DataAdapter1.Fill(myTable)
'Erstelle einen Commandbuilder für Insert, Update und Delete
'Dim commandbuilder1 As New OdbcCommandBuilder(DataAdapter1)
If myTable.Rows.Count <> 0 Then
' all textboxes, comboboxes and datetimepickers are filled!
BindingSource1.DataSource = myTable
'Allow the table to accept changes from the textboxes, comboboxes and datetimepickers
myTable.AcceptChanges()
Else
MsgBox("no data")
End If
End Sub
Private Sub Update_Click(sender As Object, e As EventArgs) Handles Update.Click
'to test what Is in row And each cell in the table myTable
'I see the changes I made in the myTable table / in each cell
Dim txt As String = ""
For Each row In myTable.Rows
For Each column In myTable.Columns
Console.Write(vbTab & row(column.ColumnName).ToString)
txt = row(column.ColumnName).ToString
Next
Next row
Dim commandbuilder1 As New OdbcCommandBuilder(DataAdapter1)
DataAdapter1.Update(myTable)
End Sub
End Class

mrMo · 4. Februar 2017, 09:35

Ich bin kein Experte was DataBinding angeht. Das beim Update "nix" passiert könnte evtl. daran liegen das du im Load Event die Tabelle leerst?

-> myTable.Clear()

dh1sbg · 4. Februar 2017, 09:37

Entdecker des Rades: sinnvoll könnte ich mir den CommandBuilder in Zeile 321 vorstellen

ne - update geht auch nicht

Mr Mo_ in den Zeilen 344 bis 349 überprüfe ich den Inhalt der Tabelle my_table.
Ab 320ff wird der data-adapter neu gefüllt.

ich habe den CommandBuilder global gemacht:

VB.NET-Quellcode

Public Class frmKalenderAnzeigen
Private BindingSource As New BindingSource
Private DataAdapter1 As New Odbc.OdbcDataAdapter
Dim myTable As New DataTable
Dim conn As New OdbcConnection
Dim commandbuilder1 As New OdbcCommandBuilder

und Zeile 327

VB.NET-Quellcode

Dim strSql As String = "SELECT * FROM tbl_kal_termine where terID = " & cell.Substring(0, cell.IndexOf("#"))
' fill myTable using the sql-String
DataAdapter1 = New OdbcDataAdapter(strSql, conn)
DataAdapter1.Fill(myTable)
'Erstelle einen Commandbuilder für Insert, Update und Delete
commandbuilder1 = New OdbcCommandBuilder(DataAdapter1)

vor dem update sagt mir
?commandbuilder1.DataAdapter.Update
error BC30516: Fehler bei der Überladungsauflösung, da keine zugreifbare "Update" diese Anzahl von Argumenten akzeptiert.

mrMo · 4. Februar 2017, 09:51

dh1sbg schrieb:

in den Zeilen 344 bis 349 überprüfe ich den Inhalt der Tabelle my_table.
Ab 320ff wird der data-adapter neu gefüllt.

Ah, diese Information bzw. deinen kompletten Code hatte ich zur Zeit meines Posts noch nicht.

P.S. Er ist der @ErfinderDesRades nicht der EntdeckerDesRades

ErfinderDesRades · 4. Februar 2017, 09:53

Jo, schon grenzwertig viel.
jdfs. das mit dem Commandbuilder ist Konfiguration - das musste also da machen, wo der DataAdapter erzeugt wird, nicht, wo er benutzt wird.
Weil er wird ja mehrmals benutzt, abr nur einmal konfiguriert - und zwar bevor er das erste mal benutzt wird.
also im Form_Load.
du füllst myTable im Form_Load, und letzte Zeile der Methode ist dann wieder myTable.Clear() - komisch, oder?

Und dein getCalendar befüllt eine andere DataTable als die myTable, die oben im Form deklariert ist - naja, das ist vlt. beabsichtigt.

Und das Updaten wie gesagt so:

VB.NET-Quellcode

DataAdapter1.Update(myTable)

Und niemals!! myTable.AcceptChanges() aufrufen!
Diese Methode ist für interne Benutzung durch den DataAdapter vorbehalten, pfusch dem da nicht rein, die Methode macht was anneres als was du denkst.

mrMo · 4. Februar 2017, 10:09

Ich tippe weiterhin auf eine leere/falsche DataTable im Update_Click Event. Setzte einen BreakPoint und schau mal zur Laufzeit was da drin ist wenn du das hier machst: DataAdapter1.Update(myTable). Deine Überprüfung gibt lediglich den Namen der Columns aus, nicht den Inhalt der Rows.

Allgemein ist dein Code leicht wirr und daher schlecht nachvollziehbar was/wann/wie passiert. Meine Empfehlung an dich: Trenne deine Businesslogik von der GUI, lagere diese besser in separate Klassen aus.

dh1sbg · 4. Februar 2017, 11:19

getCalendar füllt das DataGridView auf der linken Seite. Hier spielt die Variable "table" eine Rolle.

In den Zeilen 299 ff überprüfe ich jede einzelne Zelle und sehe, dass Änderungen vorliegen.

Erfinder des Rades:
in Zeile 39, dort wo der DataAdapter zum ersten mal erscheint, steht der Command-Builder.

ich habe einen zweiten DataAdapterRechts eingefügt, der sich nur um den rechten Teil des Formulars kümmert.
Immer noch nichts im Update.

Muss ich den CommandBuilderRechts global deklarieren?

Zur Rekapitulation
Kurz vor dem dataadapterrechts.update enthält die Tabelle myTable alles, was ich rechts geändert habe.

kann ich irgendwie sehen, welchen sql-String überhaupt abgeschickt wurde?

VB.NET-Quellcode

Imports System.Data.Odbc
Public Class frmKalenderAnzeigen
Private BindingSource As New BindingSource
Private DataAdapter1 As New Odbc.OdbcDataAdapter
Private DataAdapterRechts As New Odbc.OdbcDataAdapter
Dim myTable As New DataTable
Dim conn As New OdbcConnection
Private Sub ZurückToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZurückToolStripMenuItem.Click
conn.Close()
Me.Close()
End Sub
Private Sub frmKalenderAnzeigen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FlowLayoutPanelLeft.Width = Me.Width * 0.7
With DataGridView1
.Top = FlowLayoutPanelLeft.Top + 2
.Left = FlowLayoutPanelLeft.Left + 2
.Width = FlowLayoutPanelLeft.Width - 16
.Height = FlowLayoutPanelLeft.Height - 16
End With
Try
'build up a connection
conn.ConnectionString = "Dsn=mis"
conn.Open()
Catch ex As Exception
MsgBox("Error on Connection" & vbCrLf & ex.Message)
Me.Close()
End Try
' Fülle Kalender
get_Calendar() 'conn will be set there
' rechten Teil binden, also die Text- combo und datetimepicker
Dim strSql As String = "SELECT * FROM tbl_kal_termine limit 1"
dataAdapterRechts = New OdbcDataAdapter(strSql, conn)
Dim commandbuilderRechts As New OdbcCommandBuilder(DataAdapterRechts)
DataAdapterRechts.Fill(myTable)
txtID.DataBindings.Add("TEXT", myTable, "terID")
txtVon.DataBindings.Add("TEXT", myTable, "terVon")
txtBis.DataBindings.Add("TEXT", myTable, "terBis")
txtWas.DataBindings.Add("TEXT", myTable, "terWas")
txtWo.DataBindings.Add("TEXT", myTable, "terWo")
txtMehr.DataBindings.Add("TEXT", myTable, "terKommentar")
DateTimePicker.DataBindings.Add("TEXT", myTable, "terDatum")
cboAuftrag.DataBindings.Add("TEXT", myTable, "terAuftragId")
cboWer.DataBindings.Add("TEXT", myTable, "terWerID")
myTable.Clear() ' Because the customer has not clicked into a cell on the left side.
' Textboxes represent a click into the datagridview of the left side.
End Sub
Sub get_Calendar()
' table headerHeader
Dim Table As New DataTable
With Table.Columns
.Add(New DataColumn("KW", GetType(String)))
.Add(New DataColumn("Wer", GetType(String)))
.Add(New DataColumn("Mo", GetType(String)))
.Add(New DataColumn("Di", GetType(String)))
.Add(New DataColumn("Mi", GetType(String)))
.Add(New DataColumn("Do", GetType(String)))
.Add(New DataColumn("Fr", GetType(String)))
.Add(New DataColumn("Sa", GetType(String)))
.Add(New DataColumn("So", GetType(String)))
End With
'für jede Datumszeile den Inhalt holen (steht in tbl_kal_wochen
Dim strSql As String = "SELECT * FROM tbl_kal_woche "
Dim DataReader As OdbcDataReader
Dim Row As DataRow = Table.NewRow
Using cmd As New OdbcCommand(strSql, conn)
DataReader = cmd.ExecuteReader
' Jeden einzelnen Datensatz abarbeiten
Dim off As Integer = 7
While DataReader.Read
Row("kw") = DataReader(0).ToString
Row("Mo") = DataReader(1 + off).ToString
Row("Di") = DataReader(2 + off).ToString
Row("Mi") = DataReader(3 + off).ToString
Row("Do") = DataReader(4 + off).ToString
Row("Fr") = DataReader(5 + off).ToString
Row("Sa") = DataReader(6 + off).ToString
Row("So") = DataReader(7 + off).ToString
' Diese Zeile der Tabellehinzufügen
Table.Rows.Add(Row)
' fülle array
' gibt es zu dieser Woche Termine
Dim Result As New ArrayList()
Result = Termine_Fuer_Diese_KW(DataReader(0).ToString)
' Alle Datensätze verarbeiten, also Pro Jahr, Woche, Wer
'finde den ersten Datensatz
Dim bolFirst As Boolean = True ' Erster Datensatz?
Dim bolAdded As Boolean = False ' es wurde was hinzugefügt
Dim tmpWer As String = ""
For Each Rec As Dictionary(Of String, Object) In Result
If bolFirst Then 'den ersten Datensatz finden und dort den Inhalt von WER abspeichern
tmpWer = Rec("terWerId").ToString
Row = Table.NewRow
bolFirst = False
End If
If tmpWer <> Rec("terWerId").ToString Then ' Neue Zeile in Ausgabe
tmpWer = Rec("terWerId").ToString
Table.Rows.Add(Row)
Row = Table.NewRow
bolAdded = False
End If
Row("kw") = Rec("kw").ToString
Row("wer") = Rec("terWerId").ToString
' die ID eintragen
Dim KalDatum As Date = CDate((Rec("terDatum").ToString))
Row(KalDatum.ToString("ddd")) = Row(KalDatum.ToString("ddd")) & Rec("terID") & "#"
' für das add(Row) nach dem Next.
bolAdded = True
Next
If bolAdded Then ' Nur wenn was einer Row hinzugefügt wurde
Table.Rows.Add(Row)
End If
' neue Wochen Zeile
Row = Table.NewRow
End While
End Using
'Tabelle an Datagridview
With Me.DataGridView1
.DataSource = Table
'.AutoSizeRowsMode = DataGridViewAutoSizeRowMode.AllCellsExceptHeader
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCellsExceptHeader
End With
' Farbe hinzufügen
Dim arrBackground() As String = {"vblightYellow", "vblightblue", "vblightgreen"}
Dim Yesterday As Byte = 32
Dim CurMonthColor As Color = Color.LightYellow
Dim CurMonthColor1 As Color = Color.LightBlue
Dim CurMonthColor2 As Color = Color.LightGreen
With DataGridView1
For rowIndex = 0 To .RowCount - 2
For colIndex = 2 To .ColumnCount - 1
If CDbl(.Rows(rowIndex).Cells(0).Value) > 60 Then ' also nur Kalender-Header
'DataGridView1.Rows(rowIndex).Cells(colIndex).ToolTipText = DataGridView1.Rows(rowIndex).Cells(colIndex).Value.ToString
' Gibt es einen Monatswechsel?
If CByte(.Rows(rowIndex).Cells(colIndex).Value.ToString.Substring(0, 2)) < Yesterday Then
CurMonthColor = IIf(CurMonthColor = CurMonthColor1, CurMonthColor2, CurMonthColor1)
Yesterday = 1
Else
Yesterday = CByte(.Rows(rowIndex).Cells(colIndex).Value.ToString.Substring(0, 2))
End If
'If colIndex >= 2 Then ' CurMonth Color
If colIndex >= 7 Then
'Wochenende
.Rows(rowIndex).Cells(colIndex).Style.BackColor = Color.DeepSkyBlue
Else
' Mo - Fr
.Rows(rowIndex).Cells(colIndex).Style.BackColor = CurMonthColor
End If
'ein Feiertag?
If .Rows(rowIndex).Cells(colIndex).Value.ToString.IndexOf(":") > 0 Then
.Rows(rowIndex).Cells(colIndex).Style.BackColor = Color.LightSalmon
End If
Else
'das ist eine WER Zeile
.Rows(rowIndex).Cells(colIndex).Style.BackColor = Color.LightYellow
End If
' toolTip
With .Rows(rowIndex).Cells(colIndex)
' gibt es hier einen Termin? Wenn ja, fülle die Zelle
If .Value.ToString.IndexOf("#") > 0 Then
Dim termineID As String = ""
termineID = .Value.ToString.Substring(0, .Value.ToString.IndexOf("#"))
Dim curDayContent As String = getCalendarCellContent(termineID)
' toolTip
.ToolTipText = curDayContent
End If
End With
Next colIndex
Next rowIndex
End With
End Sub
Function getCalendarCellContent(termineId As String) As String
Dim strSql As String = "SELECT * FROM tbl_kal_termine where terID = " & termineId
Dim DataReader As OdbcDataReader
Dim SQLInhalt As String = ""
Using cmd As New OdbcCommand(strSql, conn)
DataReader = cmd.ExecuteReader
' Jeden einzelnen Datensatz abarbeiten
While DataReader.Read
SQLInhalt = DataReader("terWas").ToString
End While
End Using
Return SQLInhalt
End Function
Function Termine_Fuer_Diese_KW(KW As String) As ArrayList
Dim DataReader As OdbcDataReader
Dim strSql As String = "SELECT *, WEEK(terDatum,1) as kw, year(terDatum) as y FROM tbl_kal_Termine " &
"WHERE WEEK(terDatum,1) = '" & KW.Substring(4, 2) & "' and year(terDatum) = '" & KW.Substring(0, 4) &
"' ORDER BY y, kw, terWerId , terDatum "
Dim Result As New ArrayList()
Using cmd As New OdbcCommand(strSql, conn)
DataReader = cmd.ExecuteReader
' Jeden einzelnen Datensatz abarbeiten
' Add each entry to array list
While DataReader.Read()
' Insert each column into a dictionary
Dim dict As New Dictionary(Of String, Object)
For count As Integer = 0 To (DataReader.FieldCount - 1)
dict.Add(DataReader.GetName(count), DataReader(count))
Next
' Add the dictionary to the ArrayList
Result.Add(dict)
End While
End Using
Return Result
DataReader.Close()
End Function
Private Sub dataGridView1_CellClick(ByVal sender As Object,
ByVal e As DataGridViewCellEventArgs) _
Handles DataGridView1.CellClick
' this event comes from a klick on a dataGridView cell. (left side)
' either the cell is empty or has not number followed by a #, We do not need to continue
Dim cell As String
' an empty cell?
Try
cell = DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value
Catch ex As Exception
'an empty cell!
myTable.Clear()
Exit Sub
End Try
'If a cell has a number with a # in it, We will continuge
If cell.ToString.IndexOf("#") < 0 Then
myTable.Clear()
Exit Sub
End If
' The table has been created in the load event of the form.
' all textboxes, comboboxes and datetimepickers have been linked to this table
' because I will focus on a total different set for the table, I need to clear the table first
myTable.Clear()
'Set up the SQL String to the record and retrieve it from the odbc Database.
Dim strSql As String = "SELECT * FROM tbl_kal_termine where terID = " & cell.Substring(0, cell.IndexOf("#"))
' fill myTable using the sql-String
dataAdapterRechts = New OdbcDataAdapter(strSql, conn)
dataAdapterRechts.Fill(myTable)
'Erstelle einen Commandbuilder für Insert, Update und Delete
If myTable.Rows.Count <> 0 Then
' all textboxes, comboboxes and datetimepickers are filled!
BindingSource1.DataSource = myTable
Else
MsgBox("no data")
End If
End Sub
Private Sub Update_Click(sender As Object, e As EventArgs) Handles Update.Click
'to test what Is in row And each cell in the table myTable
'I see the changes I made in the myTable table / in each cell
Dim txt As String = ""
For Each row In myTable.Rows
For Each column In myTable.Columns
Console.Write(vbTab & row(column.ColumnName).ToString)
txt = row(column.ColumnName).ToString
Next
Next row
DataAdapterRechts.Update(myTable)
End Sub
End Class

dh1sbg · 4. Februar 2017, 12:09

In Zeile 37 ff steht

VB.NET-Quellcode

[vbnet]Dim strSql As String = "SELECT * FROM tbl_kal_termine limit 1"
dataAdapterRechts = New OdbcDataAdapter(strSql, conn)
Dim commandbuilderRechts As New OdbcCommandBuilder(DataAdapterRechts)
DataAdapterRechts.Fill(myTable)

[/vbnet]

Ich habe was gefunden. Kurz vor dem DataAdapterRechts.Update(myTable) lasse ich mir den updateString auslesen.

?commandbuilderRechts.GetUpdateCommand.CommandText.tostring

"UPDATE tbl_kal_termine SET terGruppenID = ?, terAuftragID = ?, terWerId = ?, terDatum = ?, terVon = ?, terBis = ?, terWas = ?, terWo = ?, terKommentar = ? WHERE (((? = 1 AND terID IS NULL) OR (terID = ?)) AND (terGruppenID = ?) AND (terAuftragID = ?) AND (terWerId = ?) AND (terDatum = ?) AND (terVon = ?) AND (terBis = ?) AND (terWas = ?) AND (terWo = ?))"

scheinbar ist myTable leer? oder was ist da los.

Kann das mit dem myTable.clear zusammenhängen? => alle myTable.clear gelöscht - trotzdem kein Update Ergebnis

Wenn ich rechts was geändert habe, dann muss ich eigentlich nach dem Update alles löschen. Im Klick-Event der DataGridView wird ggf ein anderer Datensatz gesucht und rechts angezeigt.

ErfinderDesRades · 4. Februar 2017, 12:43

dh1sbg schrieb:

scheinbar ist myTable leer? oder was ist da los.
Kann das mit dem myTable.clear zusammenhängen?

Das fragst du jetzt nicht im Ernst, oder?
Clear ist englisch, und bedeutet löschen.

Darüber verwunderte ich mich schon im vorigen Post - dass du myTable erst befüllst, und dann gleich wieder löschst.

jdfs. das UpdateCommand sieht korrekt aus.

Und ich würde nicht nach dem Update alles löschen, sondern erst wenn tatsächlich eine neue Zelle geklickst wurde.
Dazu kannste glaub auch einfach DataAdapter.ClearbeforeFill=True einstellen, dann macht der das auch für dich.

dh1sbg · 5. Februar 2017, 11:48

in meinem Post, habe ich geschrieben, dass ich alle myTables.clear auskommentiert habe, trotzdem funktioniert der Update nicht.

Zudem schaue ich mir ab Zeile 300 an, was in der Tabelle myTable pro Zelle alle enthalten ist. Dort sehe ich die Änderungen der Texboxes.
Dann kommt Zeile 307. Und die Datenbank wird nicht geändert.

DataAdapter.ClearbeforeFill=True werde ich implementieren.

Warum funktioniert der Update nicht? Ich mache wohl irgendwas grottenfalsch.

ErfinderDesRades · 5. Februar 2017, 15:31

vmtl. funktioniert der update durchaus.
Nur überprüfst du es auf falsche Weise.
Evtl. siehst du in der falschen Datenbank-Datei nach, oder sowas liegt vor: FAQ: Db speichern failt

geänderte Daten aus Textboxen in einer DatenTabelle in eine Datenbank updaten

geänderte Daten aus Textboxen in einer DatenTabelle in eine Datenbank updaten

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

dh1sbg schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

dh1sbg schrieb:

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben