Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fehler in Update funktion
Autor: Mawashigeri
Datum: 03.03.12 16:12
Hallo an Alle ! Ich habe ein Problem, an dem ich schon längere Zeit herum "experimentiere" !? Ich habe: in einer Datenbank das Feld SREDTT (= Zahl, soll den Tag eines Datums darstellen z.B.: 13) das Feld SREDTM (=Zahl, soll den Monat eines Datums darstellen z.B.: 02) das Feld SREDTJ ((=Zahl, soll das Jahr eines Datums darstellen z.B.: 2012) in VB6 habe ich das so gelöst: 1) ich habe ein Textfeld platziert und dann die Werte ausgelesen und einen Textstring daraus gemacht. 2) Mittels einer Schleife die Werte wieder gespeichert. Siehe beigefügten Code: Dim sql Dim sdatum As Date sql = "select uid,sredtt,sredtm,sredtj from umsatzohnedat" DBSelect sql Set Me.DataGrid1.DataSource = rs rs.MoveFirst Do While Not rs.EOF Me.txtRGDatum.Text = Me.DataGrid1.Columns("sredtt").Text & "." & Me.DataGrid1.Columns("sredtm").Text & "." & (2000 + Me.DataGrid1.Columns("sredtj").Text) sdatum = CDate(Me.txtRGDatum.Text) Me.txtRGDatum.Text = sdatum RGDatum = sdatum UID = Me.DataGrid1.Columns("uid").Text DBUpdateUmsatz rs.MoveNext If rs.EOF Then Exit Do End If Loop Meine Frage: Wie kann ich das unter VB2005 bewerkstelligen? Habe schon viel ausprobiert. Scheitere an CDate ?! Keine Ahnung warum? Hier mein Code: Dim myOleDbConnection As New OleDb.OleDbConnection myOleDbConnection.ConnectionString = ConStr ' myOleDbConnection.Open() Con.Open() objDataSet = New DataSet() objDataAdapter = New OleDb.OleDbDataAdapter("SELECT uid,sredtt,sredtm,sredtj,rgdatum FROM umsatz where rgdatum is null", Con) objDataAdapter.Fill(objDataSet, "umsatz") objDataView = New DataView(objDataSet.Tables("umsatz")) objDataView = New DataView(objDataSet.Tables("umsatz")) ' Daten an das DataGridView binden Me.DataGrid1View.DataSource = objDataView cm = CType(Me.BindingContext(objDataSet, "umsatz"), CurrencyManager) Me.Label5.Text = Me.DataGrid1View.RowCount 'Try Dim cmd As New OleDbCommand Dim Tag, Monat, Jahr Tag = Me.DataGrid1View.Columns("sredtt").ValueType Monat = Me.DataGrid1View.Columns("sredtm").ValueType Jahr = Me.DataGrid1View.Columns("sredtj").ValueType cmd = New OleDbCommand("UPDATE Umsatz SET Umsatz.RGDatum =" & LDatum), Con) cmd.ExecuteNonQuery() Ich bin als Umsteiger von VB6 auf Ado.Net (VB2005) derzeit ziemlich ratlos und auf Eure Hilfestellungen angewiesen. Danke im Voraus "NIchts wissen - macht auch Kopfweh !

Fehler in Update funktion	1.296	Mawashigeri	03.03.12 16:12
Re: Fehler in Update funktion	868	Mawashigeri	03.03.12 16:18
Re: Fehler in Update funktion	814	Mawashigeri	03.03.12 16:40
Re: Fehler in Update funktion	684	FZelle	05.03.12 10:49
Re: Fehler in Update funktion	783	DaveS	05.03.12 11:22

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übersicht

Suchen