realmontanakid
Grünschnabel
Hallo zusammen
Brauche mal ein wenig schöpferische Hilfe.
Folgendes Szenario:
Ich habe eine Seite geschrieben in der ich Datensätze in eine DB einfüge. Es wird auch gleich ein Datagrid angezeigt.
Jetzt möchte ich das die aktuellen Werte, die ich in die DB einfüge auf einer neuen Sorte angezeigt werden. Und zwar wenn ich auf den Button "Hinzufügen" klicke. Dann soll sich ein neues Fenster mit den grad aktuellen Werten öffnen. Dazu brauch ich dann noch die Möglichkeit direkt von dieser neuen Seite zu drucken. Also auch einen Button worüber ich direkt drucken kann. Wenn jemand eine simplere Lösung hat, umso besser .
Hat jemand da eine Idee oder sowas schon mal realisiert?
Ich hänge den Code mal an....
Sub Page_Load (ByVal Sender As Object, _
ByVal E As EventArgs)
' Verbindungszeichenfolge zusammensetzen
Dim connStr As String
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;"
connStr += _
"Data Source=c:\inetpub\wwwroot\Hardware\Artikel_db.mdb;"
' Verbindung zur Datenbank herstellen
Dim conn As New OleDbConnection(connStr)
conn.Open()
' Bei einem Postback einen Datensatz anfügen
If IsPostBack Then
Dim iCmd As New OleDbCommand()
iCmd.Connection = conn
iCmd.Parameters.Add("@Hersteller", txtHersteller.value)
iCmd.Parameters.Add("@Artikel", txtArtikel.value)
iCmd.Parameters.Add("@Beschreibung", txtBeschreibung.value)
iCmd.Parameters.Add("@Preis", txtPreis.value)
iCmd.Parameters.Add("@Lieferant", txtLieferant.value)
iCmd.Parameters.Add("@Datum", txtDatum.value)
iCmd.Parameters.Add("@Bestellungsdatum", txtBestellungsdatum.value)
iCmd.Parameters.Add("@Lieferungsdatum", txtLieferungsdatum.value)
iCmd.Parameters.Add("@Mitarbeiter", txtMitarbeiter.value)
iCmd.Parameters.Add("@Garantie", txtGarantie.value)
iCmd.Parameters.Add("@Seriennr", txtSeriennr.value)
iCmd.CommandText = "INSERT INTO tbl_Artikel "
iCmd.CommandText += "(Hersteller, Artikel, Beschreibung, Preis, Lieferant, Datum, Bestellungsdatum, Lieferungsdatum, Mitarbeiter, Garantie, Seriennr) "
iCmd.CommandText += "VALUES (@Hersteller, @Artikel, @Beschreibung, @Preis, @Lieferant, @Datum, @Bestellungsdatum, @Lieferungsdatum, @Mitarbeiter, @Garantie, @Seriennr) "
iCmd.ExecuteNonQuery()
response.redirect("update_artikel.aspx")
End If
' SQL-Kommando erstellen und ausführen
Dim sql As String
sql = "SELECT * FROM tbl_Artikel"
Dim cmd As New OleDbCommand(sql, conn)
Dim myDataReader As OleDbDataReader
myDataReader = cmd.ExecuteReader()
' SQL-Resultat an ein Steuerelement binden
myGrid.DataSource = myDataReader
DataBind()
myDataReader.Close()
conn.Close()
End Sub
</script>
Brauche mal ein wenig schöpferische Hilfe.
Folgendes Szenario:
Ich habe eine Seite geschrieben in der ich Datensätze in eine DB einfüge. Es wird auch gleich ein Datagrid angezeigt.
Jetzt möchte ich das die aktuellen Werte, die ich in die DB einfüge auf einer neuen Sorte angezeigt werden. Und zwar wenn ich auf den Button "Hinzufügen" klicke. Dann soll sich ein neues Fenster mit den grad aktuellen Werten öffnen. Dazu brauch ich dann noch die Möglichkeit direkt von dieser neuen Seite zu drucken. Also auch einen Button worüber ich direkt drucken kann. Wenn jemand eine simplere Lösung hat, umso besser .
Hat jemand da eine Idee oder sowas schon mal realisiert?
Ich hänge den Code mal an....
Sub Page_Load (ByVal Sender As Object, _
ByVal E As EventArgs)
' Verbindungszeichenfolge zusammensetzen
Dim connStr As String
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;"
connStr += _
"Data Source=c:\inetpub\wwwroot\Hardware\Artikel_db.mdb;"
' Verbindung zur Datenbank herstellen
Dim conn As New OleDbConnection(connStr)
conn.Open()
' Bei einem Postback einen Datensatz anfügen
If IsPostBack Then
Dim iCmd As New OleDbCommand()
iCmd.Connection = conn
iCmd.Parameters.Add("@Hersteller", txtHersteller.value)
iCmd.Parameters.Add("@Artikel", txtArtikel.value)
iCmd.Parameters.Add("@Beschreibung", txtBeschreibung.value)
iCmd.Parameters.Add("@Preis", txtPreis.value)
iCmd.Parameters.Add("@Lieferant", txtLieferant.value)
iCmd.Parameters.Add("@Datum", txtDatum.value)
iCmd.Parameters.Add("@Bestellungsdatum", txtBestellungsdatum.value)
iCmd.Parameters.Add("@Lieferungsdatum", txtLieferungsdatum.value)
iCmd.Parameters.Add("@Mitarbeiter", txtMitarbeiter.value)
iCmd.Parameters.Add("@Garantie", txtGarantie.value)
iCmd.Parameters.Add("@Seriennr", txtSeriennr.value)
iCmd.CommandText = "INSERT INTO tbl_Artikel "
iCmd.CommandText += "(Hersteller, Artikel, Beschreibung, Preis, Lieferant, Datum, Bestellungsdatum, Lieferungsdatum, Mitarbeiter, Garantie, Seriennr) "
iCmd.CommandText += "VALUES (@Hersteller, @Artikel, @Beschreibung, @Preis, @Lieferant, @Datum, @Bestellungsdatum, @Lieferungsdatum, @Mitarbeiter, @Garantie, @Seriennr) "
iCmd.ExecuteNonQuery()
response.redirect("update_artikel.aspx")
End If
' SQL-Kommando erstellen und ausführen
Dim sql As String
sql = "SELECT * FROM tbl_Artikel"
Dim cmd As New OleDbCommand(sql, conn)
Dim myDataReader As OleDbDataReader
myDataReader = cmd.ExecuteReader()
' SQL-Resultat an ein Steuerelement binden
myGrid.DataSource = myDataReader
DataBind()
myDataReader.Close()
conn.Close()
End Sub
</script>