borracho
Legacy Member
ok heb dus al volgende code waarmee ik de account naam van een user ophaal en deze dan laat filteren in een datagrid.
Werkt goed behalve dat ik nu de waarde uit kolom 2 en 3 moet hebben om andere datagrids te filteren.
Sub page_load(Sender As Object, E As EventArgs)
Dim oConn as oledbconnection
Dim oCmd As OleDbCommand
Dim sSQL As String
Dim objDataReader as OleDbDataReader
Dim arrSomething, strXPUser
arrSomething = split(Request.ServerVariables("LOGON_USER"),"\")
strXPUser = arrSomething(1)
response.Write(strXPUser)
oConn = new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\Inetpub\wwwroot\Obis2\DB\Inbev.mdb")
oConn.open()
sSQL = "SELECT * FROM tblpersoneel WHERE [Personeelslidinlognaam] ='" & strXPUser & "'"
oCmd = New OleDbCommand(sSQL, oConn)
objDataReader = oCmd.ExecuteReader(CommandBehavior.CloseConnection)
dgResults.DataSource = objDataReader
dgResults.DataBind()
objDataReader.Close()
end sub
Alvast bedankt
Borracho
Werkt goed behalve dat ik nu de waarde uit kolom 2 en 3 moet hebben om andere datagrids te filteren.
Sub page_load(Sender As Object, E As EventArgs)
Dim oConn as oledbconnection
Dim oCmd As OleDbCommand
Dim sSQL As String
Dim objDataReader as OleDbDataReader
Dim arrSomething, strXPUser
arrSomething = split(Request.ServerVariables("LOGON_USER"),"\")
strXPUser = arrSomething(1)
response.Write(strXPUser)
oConn = new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\Inetpub\wwwroot\Obis2\DB\Inbev.mdb")
oConn.open()
sSQL = "SELECT * FROM tblpersoneel WHERE [Personeelslidinlognaam] ='" & strXPUser & "'"
oCmd = New OleDbCommand(sSQL, oConn)
objDataReader = oCmd.ExecuteReader(CommandBehavior.CloseConnection)
dgResults.DataSource = objDataReader
dgResults.DataBind()
objDataReader.Close()
end sub
Alvast bedankt
Borracho

