DevTrain Forum - Re: Datensatz ändern mit ADO.NET

Forum: VB.NET | Thema: Re: Datensatz ändern mit ADO.NET | Von: G. Guest ( 10.06.2004 14:10)

		Ich habe es versucht. ds.select gibt es nicht. Dafür aber 
ds.Tables("kunden").Rows(0) oder ds.Tables("kunden").Select()
Ich hab mich für das ds.Tables("kunden").Rows(0) entschieden und die Wahl glich dem sql String überlassen. Somit bekomme ich nur einen DS. 
Wenn ich zum Schluß ds.AcceptChanges() verwende passiert gar nichts, wenn ich es auskommentiere bekomme ich die Fehlermeldung: Das Argument prompt kann nicht in den Type String umgewandelt werden. Damit komm ich nun gar nicht mehr klar. Was hat das zu bedeuten?
Mit dem DataAdapter ins Form ziehen, komm ich auch nicht so ganz klar. Meine komplette DB-Verbindung steht doch. Und einen verwertbaren Quelltext erhalte ich da auch nicht. Kannst Du mir das noch mal etwas genauer erklären? Und warum funktioniert mein Quelltext wieder nicht?


Private Sub aendern_DS()
        Try
            'Änderungen werden an die DB übergeben
            'sql String erstellen
      Dim sqlStr As String = "SELECT * FROM Kunden WHERE k_ID=" & kund_ID
            ' erstellt ein DataAdapterObject
            Dim da As OleDbDataAdapter = New OleDbDataAdapter(sqlStr, conn)
            ' erstellt ein DatasetObject und füllt es mit den Nutzerdaten mit dem Fill - Objekt
      Dim ds As DataSet = New DataSet
      da.Fill(ds, "Kunden")

      Dim sperre_wert As Integer
      If (sperre.Checked = True) Then
        sperre_wert = 1
      Else
        sperre_wert = 0
      End If

      Dim row As DataRow = ds.Tables("kunden").Rows(0)

      row.Item("k_nummer") = txt_kundennummer.Text
      row.Item("k_internet") = txt_web_link.Text
      row.Item("k_mail") = txt_mail.Text
      row.Item("k_geb") = txt_gebdatum.Text
      row.Item("k_sperre") = sperre_wert
      row.Item("k_telefon") = txt_telefon.Text
      row.Item("k_fax") = txt_fax.Text
      row.Item("k_name") = txt_name.Text
      row.Item("k_vorname") = txt_vorname.Text
      row.Item("k_firma") = txt_firma.Text
      row.Item("k_anschrift") = txt_strasse.Text
      row.Item("k_plz") = txt_plz.Text
      row.Item("k_ort") = txt_ort.Text
      row.Item("k_bank") = txt_bank.Text
      row.Item("k_kontonr") = txt_kontonummer.Text

      'Updaten
      'ds.AcceptChanges()
      da.Update(ds, "kunden")
      'Connection schließen
      conn.Close()
    Catch a As Exception
            MsgBox(a, Title:="Kunden bearbeiten, Ändern")
        End Try
    End Sub

Mathias


	

Betreff Von Datum

Re: Datensatz ändern mit ADO.NET

Ok ich mach das mal DevStudio und schreibe Dir jeden Schritt auf: - Ein VB Anwendung erzeugen - Toolbox/Daten/Dataset auf den Dialog ziehen (Wizard erscheint) - Nicht Typisiertes Dataset / OK -...

Klaas Wedemeyer 10.06.2004 14:38

Re: Datensatz ändern mit ADO.NET

Ups... Die Datenbank macht er von alleine auf und zu. im "Vom Windows Form Designer generierter Code" findest Du die Commandanweisungen, die der Adapter brauch, um auf die DB zuzugreifen. Dataset...

Klaas Wedemeyer 10.06.2004 14:43

Antworten Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!