Moin,
ich hätte eine kleine Frage: Ich habe eine ASP-Website mit Formular gestaltet. In diesem Formular sollen verschiedene Werte in Textboxen eingetragen werden sowie Checkboxen angekreuzt werden.
Anschließend mit Klick auf "Abschicken" sollen diese Infos in eine Datenbank geschrieben werden.
Mit dem Inhalt der Textfelder klappt das auch wunderbar. Nur mit den Checkboxen haut's nicht hin.
In der Datenbank sind die Spalten zu den Checkbox-Eigenschaften als "Ja/Nein" definiert.
Es ist doch bestimmt irgendwie möglich, dass, wenn eine Checkbox auf der Website angeklickt wurde, dies auch in die Datenbank zu übernehmen oder?
Anbei einmal ein Screenshot der Website und der Datenbank.
Der Code des Scripts, das bei Klick auf den Button abläuft, sieht so aus:
Code:
Sub Speichern(ByVal Obj As Object, ByVal E As EventArgs)
Dim cmd As OleDbCommand
Dim sqlInsert As String
Dim dateiname As String
dateiname = ""
' Upload der Datei
If FileUpload.HasFile Then
' es wurde eine Datei ausgewählt und ich versuche die Datei
' hochzuladen und zu speichern
Try
FileUpload.SaveAs("C:\...\" & FileUpload.FileName)
dateiname = FileUpload.FileName
Catch ex As Exception
ausgabe.InnerHtml = "ERROR: " & ex.Message.ToString()
End Try
Else
' keine Datei zum Hochladen ausgewählt
' also tue nichts
End If
' SQLInsert zusammenstellen
sqlInsert = "insert into Datenbank (ID, Objektart, Bezahlung, Groesse, Preis, Zimmeranzahl, Bundesland, Stadt, Zentral, Ruhig, Familienfreundlich, Garten, Balkon, Parkplatz, WG, Moebliert, Nahverkehrsanbindung, Topangebot, Bild)"
sqlInsert = sqlInsert & " values ('"
sqlInsert = sqlInsert & Identifikation.Text
sqlInsert = sqlInsert & "', '"
sqlInsert = sqlInsert & Objektart.Text
sqlInsert = sqlInsert & "', '"
sqlInsert = sqlInsert & Bezahlung.Text
sqlInsert = sqlInsert & "', '"
sqlInsert = sqlInsert & Groesse.Text
sqlInsert = sqlInsert & "', '"
sqlInsert = sqlInsert & Preis.Text
sqlInsert = sqlInsert & "', '"
sqlInsert = sqlInsert & Zimmeranzahl.Text
sqlInsert = sqlInsert & "', '"
sqlInsert = sqlInsert & Bundesland.Text
sqlInsert = sqlInsert & "', '"
sqlInsert = sqlInsert & Stadt.Text
sqlInsert = sqlInsert & "', '"
sqlInsert = sqlInsert & zentral.Checked
sqlInsert = sqlInsert & "', '"
sqlInsert = sqlInsert & ruhig.Checked
sqlInsert = sqlInsert & "', '"
sqlInsert = sqlInsert & familienfreundlich.Checked
sqlInsert = sqlInsert & "', '"
sqlInsert = sqlInsert & Garten.Checked
sqlInsert = sqlInsert & "', '"
sqlInsert = sqlInsert & Balkon.Checked
sqlInsert = sqlInsert & "', '"
sqlInsert = sqlInsert & Parkplatz.Checked
sqlInsert = sqlInsert & "', '"
sqlInsert = sqlInsert & WG.Checked
sqlInsert = sqlInsert & "', '"
sqlInsert = sqlInsert & möbliert.Checked
sqlInsert = sqlInsert & "', '"
sqlInsert = sqlInsert & Nahverkehrsanbindung.Checked
sqlInsert = sqlInsert & "', '"
sqlInsert = sqlInsert & Topangebot.Checked
sqlInsert = sqlInsert & "','" & dateiname & "')"
' Verbindungszeichenfolge zusammensetzen
Dim connStr As String
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Datenbank_Versuch1.mdb") & ";"
' Verbindung zur Datenbank herstellen
Dim conn As New OleDbConnection(connStr)
conn.Open()
cmd = New OleDbCommand(sqlInsert, conn)
cmd.ExecuteNonQuery()
ausgabe.innerhtml = "<b>Eintrag gespeichert</b>"
conn.Close()
End Sub
Protected Sub CheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs)
End Sub
Irgend eine Idee, wie ich das mit den Checkboxen hinbekommen kann? Die Anweisung "Checkbox-Name.Checked" klappt leider nicht
Oder doch als Textfeld in der Datenbank definieren und dann immer sowas wie "Aktiv"/"Passiv" reinschreiben, je nachdem ob's geklickt wurde?
