hast Du doch alles schon bekommen....
Vielleicht benutzt Du einfach funktionierende Routinen und beschäftigst
Dich mit dem Rest von .NET
Gruß, Chris
Dim strSelect As String = "select * from TableName where IDName = ID"
Dim adapter As SqlDataAdapter = New SqlDataAdapter(strSelect, connection)
adapter.UpdateCommand = New SqlCommand()
adapter.UpdateCommand.CommandType = CommandType.Text
Dim CommText As New SqlCommand
Dim SQL As String = "Update TableName SET "
For Each clm As DataColumn In ds.Tables(0).Columns
If clm.ColumnName.ToLower <> IDName.ToLower Then
SQL &= clm.ColumnName & "=" & "@" & clm.ColumnName & ", "
adapter.UpdateCommand.Parameters.AddWithValue( _
"@" & clm.ColumnName, _
ds.Tables(0).Rows(I)(clm.ColumnName) _
)
End If
Next
If Right(SQL, 2) = ", " Then SQL = Left(SQL, Len(SQL) - 2)
SQL &= " where IDName = ID "
adapter.UpdateCommand.CommandText = SQL
connection.Open()
adapter.UpdateCommand.Connection = connection
adapter.UpdateCommand.ExecuteNonQuery()
connection.Close()
> -----Ursprüngliche Nachricht-----
> Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> Auftrag von Lukas M. Dorn-Fussenegger (Attain:Group)
> Gesendet: Freitag, 23. September 2005 01:00
> An: [email protected]
> Betreff: [Asp.net] Datenbank-Abfrage / Aktualisierung
>
>
> Ich wird einfach noch wahnsinnig. Ich hab mir jetzt aus verschiedenen
> Quellen diesen Code zusammengebastelt. Aber egal, wie ichs mache, immer
> bekomm ich beim Update einen Fehler zurück. Da muss es doch was geben, wie
> man das einfach zurück in die DB schreiben kann:
>
>
>
> <%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1"
> %>
> <%@ Import Namespace="System.Data" %>
> <%@ Import Namespace="System.Data.OleDB" %>
>
> <script src="System/Functionen/GetDSN.vb" runat="server"></script>
> <script runat="server">
>
> Sub Page_Load(Src As Object, E As EventArgs)
>
> Dim SELECT_STRING As String =
> "SELECT * FROM Blog"
> Dim connect_string =
> GetDSN("Container")
>
> Dim myConn As New
> OleDBConnection(connect_string)
> Dim myAdapter As New
> OleDbDataAdapter(SELECT_STRING, myConn)
> Dim myTable As New
> DataTable()
> Dim myRow As
> DataRow
> Dim myBuilder As
> OleDBCommandBuilder
>
> myAdapter.Fill(myTable)
>
> '----------------------------------------------
> myTable.Rows(0)("Titel") =
> "Newname"
> '----------------------------------------------
> myTable.Rows(1).Delete()
> '----------------------------------------------
> myRow = myTable.NewRow()
> myRow("Titel") =
> "Das ist neu"
> myRow("Inhalt") =
> "<b>NeuerInhalt</script<b>"
> myTable.Rows.Add(myRow)
> '----------------------------------------------
> myBuilder = New
> OleDBCommandBuilder(myAdapter)
> myAdapter.Update(myTable) ' HIER TRITT DER FEHLER AUF!!!!!!
>
> ' Dynamische SQL-Generierung wird für UpdateCommand gegen
> einen SelectCommand,
> ' der keine Spalteninformationen zurückgibt, nicht
> unterstützt.
> ' Beschreibung: Beim Ausführen der aktuellen Webanforderung
> ist ein
> ' unverarbeiteter Fehler aufgetreten.
> ' Überprüfen Sie die Stapelüberwachung, um weitere
> Informationen über diesen
> ' Fehler anzuzeigen und festzustellen, wo der Fehler im Code
> verursacht wurde.
> '
> ' Ausnahmedetails: System.InvalidOperationException:
> ' Dynamische SQL-Generierung wird für UpdateCommand gegen
> einen SelectCommand,
> ' der keine Spalteninformationen zurückgibt, nicht
> unterstützt.
> '
> ' Quellfehler:
> '
> '
> ' Zeile 29:
> ' Zeile 30: myBuilder=new OleDBCommandBuilder(myAdapter)
> ' Zeile 31: myAdapter.Update(myTable)
> ##############<<<<<Fehler>>>>>>##########
> ' Zeile 32:
> ' Zeile 33: End Sub
>
> End Sub
> </script>
>
> <html>
> <head>
> <meta http-equiv="Content-Type" content="text/html;
> charset=iso-8859-1" />
> <title>Das ist eine Testseite</title>
> </head>
>
> <body>
> Das ist ein Testinhalt
> </body>
> </html>
>
>
> _______________________________________________
> Asp.net Mailingliste, Postings senden an:
> [email protected]
> An-/Abmeldung und Suchfunktion unter:
> http://www.glengamoi.com/mailman/listinfo/asp.net
_______________________________________________
Asp.net Mailingliste, Postings senden an:
[email protected]
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/asp.net
