Hier mein code:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
If Session("Benutzername") = Nothing Then
Response.Redirect("Anmeldung.aspx")
Else
If Session("UserBer") = "TarAdmin" Or Session("UserBer") = "TarGrpAdmin"
Then
If Not IsPostBack Then
reader1 = db.SqlReader("select PERNR,Name + cast(PERNR as varchar)
as name from Benutzer", ConnectionStr)
ddlBenutzername.DataSource = reader1
ddlBenutzername.DataTextField = "name"
ddlBenutzername.DataValueField = "PERNR"
ddlBenutzername.DataBind()
reader1.Close()
'db.Close()
Else
benutzer = ddlBenutzername.SelectedValue
BerechtigungMa.Add("1", "erfassen")
BerechtigungMa.Add("2", "genehmigen")
Dim strSQL As String = "select distinct
b.PERNR,m.MaGruppe,m.Benutzer,m.Von,m.Bis,m.Berechtigung from V_MaGruppeBenutzer m,
Benutzer b, BenutzerBerechtigung r where m.Benutzer = b.Benutzer and b.PERNR = " &
benutzer
data(strSQL)
End If
End If
End If
End Sub
Private Sub data(ByVal strSQL As String)
'Prozedur um die daten f�r das datagrid zu laden
reader2 = db.SqlReader(strSQL, ConnectionStr)
DataGrid1.DataSource = reader2
DataGrid1.DataBind()
reader2.Close()
End Sub
Private Sub DataGrid1_ItemCommand1(ByVal source As Object, ByVal e As
System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.ItemCommand
Dim strSQL, sql, updSQL, InsSQL, Aktion As String
If Session("SortFeld") Is Nothing Then
strSQL = " select distinct b.PERNR,r.BerechtigungID,
m.MaGruppe,m.Benutzer,m.Von,m.Bis,m.Berechtigung from V_MaGruppeBenutzer m, Benutzer
b, BenutzerBerechtigung r where m.Benutzer = b.Benutzer and b.BerechtigungID =
r.BerechtigungID and b.PERNR = " & benutzer
Else
strSQL = "select distinct b.PERNR,r.BerechtigungID,
m.MaGruppe,m.Benutzer,m.Von,m.Bis,m.Berechtigung from V_MaGruppeBenutzer m, Benutzer
b, BenutzerBerechtigung r where m.Benutzer = b.Benutzer and b.BerechtigungID =
r.BerechtigungID and b.PERNR = " & benutzer & " order by " & Session("SortFeld") & " "
& Session("SortArt")
End If
Select Case e.CommandName.ToString
Case Is = "Edit"
'Ruft den Wert der Dropdownlist.value ab und verwendet ihn in der sub
DataGrid1_ItemDataBound
DataGrid1.ShowFooter = False
DataGrid1.Columns.Item(6).Visible = False
Dropdownwert1 = e.Item.Cells(1).Text
Dropdownwert2 = e.Item.Cells(4).Text
DataGrid1.EditItemIndex = CInt(e.Item.ItemIndex)
data(strSQL)
Case Is = "update"
'eigenschaft aus den controls auslesen.
Dim txtVonE = Convert.ToString(CType(e.Item.FindControl("txtVonE"),
TextBox).Text)
Dim ddlMaGruppeE =
Convert.ToString(CType(e.Item.FindControl("ddlMaGruppeE"),
DropDownList).SelectedItem.Value)
Dim ddlBerechtigungE =
Convert.ToString(CType(e.Item.FindControl("ddlBerechtigungE"),
DropDownList).SelectedItem.Value)
Dim txtBisE = Convert.ToString(CType(e.Item.FindControl("txtBisE"),
TextBox).Text)
'eigenschaft der controls in update verpacken.
updSQL = "update MaGruppeBenutzer " & _
"SET MaGruppe = '" & ddlMaGruppeE & _
"' ,Von = '" & txtVonE & _
"' ,Bis = '" & txtBisE & _
"' WHERE Benutzer = '" & _
benutzer & " '"
Dim fehler = db.SqlAendern(updSQL, ConnectionStr)
'wenn kein fehler dann aus bearbeitungsmodus raus und in label2
erfolgsnachricht anzeigen.
If fehler = "" Then
DataGrid1.EditItemIndex = -1
DataGrid1.Columns.Item(6).Visible = True
data(strSQL)
Label8.Text = "Datensatz wurde erfolgreich ge�ndert."
Label8.Visible = True
Else
Label8.Text = fehler
Label8.Visible = True
End If
'aus bearbeitungsmodus raus .
Case Is = "Cancel"
DataGrid1.ShowFooter = False
DataGrid1.EditItemIndex = -1
DataGrid1.Columns.Item(6).Visible = True
data(strSQL)
Case Is = "AddNew"
DataGrid1.EditItemIndex = -1
data(strSQL)
DataGrid1.Columns.Item(6).Visible = False
DataGrid1.ShowFooter = True
Case Is = "Insert"
Dim MaGruppe =
Convert.ToString(CType(e.Item.FindControl("ddlMaGruppeU"),
DropDownList).SelectedItem.Value)
Dim Von = Convert.ToString(CType(e.Item.FindControl("txtVonU"),
TextBox).Text)
Dim Bis = Convert.ToString(CType(e.Item.FindControl("txtBisU"),
TextBox).Text)
Dim Berechtigung =
Convert.ToString(CType(e.Item.FindControl("ddlBerechtigungU"),
DropDownList).SelectedItem.Value)
InsSQL = "INSERT INTO MaGruppeBenutzer " & _
"(MaGruppe, Von, Bis, Berechtigung,Benutzer) " & _
"VALUES('" & MaGruppe & _
"','" & Von & _
"','" & Bis & _
"','" & Berechtigung & _
"','" & benutzer & "' )"
Dim Fehler2 = db.SqlAendern(InsSQL, ConnectionStr)
If Fehler2 = "" Then
'Aktualisieren der ansicht
DataGrid1.EditItemIndex = -1
DataGrid1.ShowFooter = False
DataGrid1.Columns.Item(6).Visible = True
data(strSQL)
Label8.Text = "Ein Datensatz wurde erfolgreich eingef�gt."
Label8.Visible = True
Else
'Fehler aufgetreten
Label8.Text = Fehler2
Label8.Visible = True
End If
Case Is = "Delete"
'l�schen Benutzer
Dim MaGruppeD = Convert.ToString(CType(e.Item.FindControl("Label3"),
Label).Text)
Dim VonD = Convert.ToString(CType(e.Item.FindControl("Label5"),
Label).Text)
Dim BisD = Convert.ToString(CType(e.Item.FindControl("Label6"),
Label).Text)
Dim BerechtigungD =
Convert.ToString(CType(e.Item.FindControl("Label7"), Label).Text)
sql = "delete from MaGruppe where MaGruppe = '" & MaGruppeD & "' and
Von = '" & VonD & "' and Bis = '" & BisD & "' and Benutzer = '" & benutzer & "'"
Aktion = db.SqlAendern(sql, ConnectionStr)
If Aktion = "" Then
'Aktualisieren der ansicht
DataGrid1.EditItemIndex = -1
data(strSQL)
Label8.Text = "Der Datensatz wurde erfolgreich gel�scht."
Label8.Visible = True
Else
'Fehler aufgetreten
Label8.Text = Aktion
Label8.Visible = True
End If
Case Is = "help"
'Hilfe aufrufen
Response.Write("<script language=Javascript>")
Response.Write("window.open('HelpGruppe.aspx','test', ")
Response.Write("'resizable=no,height=270,width=740')</script>")
End Select
End Sub
Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As
System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound
On Error Resume Next
If e.Item.ItemType = ListItemType.EditItem Then
Dim ddlMaGruppeE As DropDownList
reader1 = db.SqlReader("select * from MaGruppe", ConnectionStr)
ddlMaGruppeE = CType(e.Item.FindControl("ddlMaGruppeE"), DropDownList)
ddlMaGruppeE.DataSource = reader1
ddlMaGruppeE.DataTextField = "MaGruppe"
ddlMaGruppeE.DataValueField = "MaGruppe"
ddlMaGruppeE.DataBind()
ddlMaGruppeE.SelectedValue = Dropdownwert1
reader1.Close()
Dim ddlBerechtigungE As DropDownList
'reader2 = db.SqlReader("select * from LeistungsGruppe", ConnectionStr)
ddlBerechtigungE = CType(e.Item.FindControl("ddlBerechtigung"),
DropDownList)
ddlBerechtigungE.DataSource = BerechtigungMa
ddlBerechtigungE.DataTextField = "Value"
ddlBerechtigungE.DataValueField = "Key"
ddlBerechtigungE.DataBind()
ddlBerechtigungE.SelectedValue = Dropdownwert2
'reader2.Close()
End If
If e.Item.ItemType = ListItemType.Footer Then
Dim ddlMaGruppeU As DropDownList
reader1 = db.SqlReader("select * from MaGruppe", ConnectionStr)
ddlMaGruppeU = CType(e.Item.FindControl("ddlMaGruppeU"), DropDownList)
ddlMaGruppeU.DataSource = reader1
ddlMaGruppeU.DataTextField = "MaGruppe"
ddlMaGruppeU.DataValueField = "MaGruppe"
ddlMaGruppeU.DataBind()
reader1.Close()
Dim ddlBerechtigungU As DropDownList
'reader2 = db.SqlReader("select * from LeistungsGruppe", ConnectionStr)
ddlBerechtigungU = CType(e.Item.FindControl("Dropdownlist4"), DropDownList)
ddlBerechtigungU.DataSource = BerechtigungMa
ddlBerechtigungU.DataTextField = "Value"
ddlBerechtigungU.DataValueField = "Key"
ddlBerechtigungU.DataBind()
'reader1.Close()
End If
On Error GoTo 0
End Sub
Private Sub DataGrid1_SortCommand(ByVal source As Object, ByVal e As
System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles DataGrid1.SortCommand
If DataGrid1.Attributes("SortFeld") <> e.SortExpression().ToString Then
DataGrid1.Attributes("SortFeld") = e.SortExpression.ToString()
DataGrid1.Attributes("SortArt") = "ASC"
Else
If DataGrid1.Attributes("SortArt") = "ASC" Then
DataGrid1.Attributes("SortArt") = "DESC"
Else
DataGrid1.Attributes("SortArt") = "ASC"
End If
End If
Session("SortFeld") = DataGrid1.Attributes("SortFeld")
Session("sortArt") = DataGrid1.Attributes("SortArt")
Dim strSQL As String = "select * from v_MaGruppe order by " &
DataGrid1.Attributes("SortFeld") & " " & DataGrid1.Attributes("SortArt")
data(strSQL)
End Sub
Private Sub ImageButton9_Click(ByVal sender As System.Object, ByVal e As
System.Web.UI.ImageClickEventArgs) Handles ImageButton9.Click
Response.Redirect("BenutzerDatenVerwalten.aspx")
End Sub
-----Urspr�ngliche Nachricht-----
Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Im Auftrag von Alexander Zeitler
Gesendet: Donnerstag, 04. M�rz 2004 15:49
An: [EMAIL PROTECTED]
Betreff: [Asp.net] RE: [Asp.net] AW: [Asp.net] RE: [Asp.net] AW: [Asp.net] RE:
[Asp.net] AW: [Asp.net] RE: [Asp.net] verst�ndinsfrage
> Ne funktioniert auch nicht er geht mir einfach da nicht rein aber
> danke trotzdem werd halt weiter fehler suchen.
>
schick doch mal Deinen Code.
Gruss
Alex
_______________________________________________
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
