Hallo zusammen,

ich bin Neuling in der Programmierung mit VB2005 und vorallem aber auch in der
Datenbankprogrammierung.

Ich weis, beides nicht die besten Voraussetzungen, aber es hilft ja
nichts...

Ich hoffe ihr könnt trotzdem helfen.

Folgendes Problem:

Ich habe eine Accessdatenbank, worauf ich zugreifen möchte. ANzeigen,
neuen Datensatz hinzufügen und löschen klappt auch ganz gut (hab den
Designer Assisten genutzt).

Nur ein aktualisieren klappt einfach nicht. Er bricht immer mit
folgender Meldung ab:Aktualisieren erfordert einen gültigen
UpdateCommand, wenn eine DataRow-Auflistung mit modifizierten Zeilen
weitergegeben wird.

Jetzt hab ich schon zig Threads in dieser Gruppe und im Web gelesen,
aber ich versteh es einfach nicht.

Den vollständigen Code könntet Ihr hier ansehen:
groups.google.de/group/microso…=1&hl=de#82d4e76382793fbc

Vielen Dank Schonmal im vorraus...

Grüße
Dominic

Hast du es schon mal mit dem Update SQL-Befehl versucht?

hi,

naja, bei dieser anweisung bleibt der debugger stehen:

Me.RecordingsTableAdapter.Update(Me.PvrDataSet.Recordings)

ist das nicht der update befehl?

wie müsste der sonst lauten?

Grüße Dominic

Nein ich meinte eigentlich den SQL-befehl:
update tabelle1 set feld1="wert" where ID=1

ok,

ich glaub ich bin zu doof zu.

wenn ich meine update zeile
von oben raus nehme und dafür
update Recordings set RecID="test" where ID=1
eingebe, erhalte ich nur fehler.
er sagt mr, Recordings (meine tabelle aus der Datenbank) sei nicht deklariert und set akzeptiert er auch nicht, weil er ein "()" erwartet.


Muss ich VB vorher irgendwie mitteilen, dass ich einen sql befehl eingeben möchte?

Gruß
Dominic

Hi!

Das von Agent war nur ein SQL-Befehl... Der hat nichts mit der VB-Syntax zu tun sondern ist ein String, der dem Datenbank-Server eine oder mehrere Anweisungen gibt...

Geraten müsste das so aussehen: die SQL-Befehle könnten aber auch total anders ausgeführt werden...

Hi,

das geht ja rasant schnell, vielen Dank!

Ich habs gerade ausprobiert.

Ich bekomme die Fehlermeldung
Fehler 1 "Execute" ist kein Member von "WindowsApplication1.pvrDataSetTableAdapters.RecordingsTableAdapter". C:\Dokumente und Einstellungen\Dominic\Eigene Dateien\Visual Studio 2005\Projects\BV auslesen\BV auslesen\Form1.vb 7 9 BV auslesen

dachte ich mir...
Ich werds mir mal genauer anschauen.

In 10-20 minuten kannst du wieder rein schaun

Edit: welche Version von VB 2005 verwendest du? Express?

Hi,

ja genau, die express version.

Grüße
Dominic

so... hat doch etwas länger gedauert...

Müsste so gehen:

EDIT: du musst natürlich alle werte anpassen. bei mir heißt z.B. sowohl die db alsauch die table test und das zu verändernde Feld heißt field1, ID ist der Primärschlüssel

Hey,
super, das hilft mir schon mal weiter.

Ein Problem habe ich aber noch.

Folgender Code funktioniert einwandfrei:


Wenn ich aber nun "6766767" durch Label1.Text oder Test ersetze, erhalte ich folgenden Fehler:
{"Für mindestens einen erforderlichen Parameter wurde kein Wert angegeben."}
(System.Data.OleDb.OleDBException)

Kann man denn nur ziffern und keinen Text übergeben?

Grüße
Communicate

Dim sql_string = "UPDATE Recordings SET Filename='" & Label1.Text & "' WHERE RECID=1"

Text muss in SQL immer in Anführungszeichen, Zahlen nicht.

Ok, vielen Dank, klappt prima.

Nur sind hier doch nur jeweils ein Hochkomma (') und keine Anführungszeichen am werk, oder?

Btw kann man "RecID=1"
auch irgendwie durch RecID = i ersetzten, wobei i dann immer automatisch der Schlüssel vom gerade bearbeiteten Datensatz sein sollte.

Und nochmal vielen vielen Dank für die schnelle Hilfe.
Das hat man heut zu tag nur noh selten

Grüße
Dominic

Dim sql_string = "UPDATE Recordings SET Filename='" & Label1.Text & "' WHERE RECID=" & i
oder
Dim sql_string = "UPDATE Recordings SET Filename=""" & Label1.Text & """ WHERE RECID=1" & i

Ob Anführungszeichen oder Hochkomma ist in SQL egal

soweit so gut.
nur wie bekomme ich i in abhängigkeit zum ausgewählten datensatz gefüllt?

Also z.B. 2.ter datensatz ausgewählt, i = 2 ...

Grüße Dominic

Hi,

was hat es denn mit dem "$" Zeichen auf sich?
For i = 0 To 999
$sql_string=Dim sql_string = "UPDATE Recordings SET Filename='" & Label1.Text & "' WHERE RECID=" & i
'...
Next i

Leider funktioniert das nicht. Wenn ich $sql_string
weglasse, ändert er mir alle Datensätze, ich möchte aber ja nur den Datensatz ändern, der gerade bearbeitet wurde.

Mein Code sieht jetzt so aus:



Nochmal vielen Dank für Eure Hilfe!

Grüße
Dominic

ups...
das $ is da wohl aus php mit rein gerutscht
gehört natürlich nicht dahin
Also einfach nur sql_string

shit happens...

EDIT:
@ admin / mods:
Bei meinem letzten Post (2 posts weiter oben) steht bei mir

Keine Verbindung zur Datenbank möglich. Wiederholen Sie den Vorgang später nocheinmal.

Der Post hat aber schonmal funktioniert und ich hab den seit dem nicht geändert. Wenn ich auf Edit klicke, kommt auch der richtige BB-Code

also wenn ich

eingebe, erhalte ich die meldung, dass sql_string nicht definiert sei.

Was könnte ich noch falsch machen?

Mein Code im ganzen:
Private Sub RecordingsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RecordingsBindingNavigatorSaveItem.Click
'SQL-String erzeugen
Dim Test = Label1.Text
Dim i As Integer
'MsgBox(Test)
' Dim sql_string = "UPDATE Recordings SET Filename=" & Test & " WHERE RECID=1"
' Dim sql_string = "UPDATE Recordings SET Filename='" & Label1.Text & "' WHERE RECID=RECID"
'Dim sql_string = "UPDATE Recordings SET Filename='" & Label1.Text & "' WHERE RECID=" & i
For i = 0 To 9
sql_string=Dim sql_string = "UPDATE Recordings SET Filename='" & Label1.Text & "' WHERE RECID=" & i
'...

'MsgBox(sql_string)
'SQL-Befehlsobjekt erzeugen
Dim cmd As New System.Data.OleDb.OleDbCommand(sql_string, RecordingsTableAdapter.Connection)
'Verbindung herstellen und SQL-Befehl ausführen
cmd.Connection.Open()
MsgBox(cmd.ExecuteNonQuery() & " Einträge waren betroffen.")
cmd.Connection.Close()
Next i
'Daten neu einlesen...
RecordingsTableAdapter.Fill(Me.PvrDataSet.Recordings)

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: Diese Codezeile lädt Daten in die Tabelle "PvrDataSet.Recordings". Sie können sie bei Bedarf verschieben oder entfernen.
Me.RecordingsTableAdapter.Fill(Me.PvrDataSet.Recordings)

End Sub
Grüße
Dominic

Normalerweise macht man das zwar ein wenig anders (new cmd) aber ich hab grad nicht im kopf, wie die eigenschaften heißen...
Ich wäre dir in den nächsten tagen die professionellere variante posten


Private Sub RecordingsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RecordingsBindingNavigatorSaveItem.Click

Dim Test as String = Label1.Text
Dim i As Long

'SQL-String erzeugen
Dim sql_string as string

'SQL-Befehlsobjekt erzeugen
Dim cmd As System.Data.OleDb.OleDbCommand

For i = 0 To 9
sql_string= "UPDATE Recordings SET Filename='" & Label1.Text & "' WHERE RECID=" & i
cmd = New System.Data.OleDb.OleDbCommand(sql_string, RecordingsTableAdapter.Connection)
cmd.Connection.Open()
cmd.ExecuteNonQuery()
cmd.Connection.Close()
Next i

'Daten neu einlesen...
RecordingsTableAdapter.Fill(Me.PvrDataSet.Recordings)

End Sub