Imports System.Data.SqlClient
Public Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Dim objConn As New SqlConnection("Server=gebruiker-pc;Database=dbCarRental;Uid=sa; Pwd=empty;")
'Dim objCmd As New SqlCommand("getAllCars", objConn)
'objCmd.Parameters.Add("@car_id", SqlDbType.Int).Value = 3
'objCmd.CommandType = CommandType.StoredProcedure
'objConn.Open()
'Dim DR As SqlDataReader = objCmd.ExecuteReader()
'DetailsView1.DataSource = DR
'DetailsView1.DataBind()
'DR.Close()
'DR = Nothing
'objCmd.Dispose()
'objCmd = Nothing
'objConn.Close()
'objConn = Nothing
filldatagrid(Convert.ToInt32(CarGrid.Rows(0).Cells(1).Text))
CarGrid.SelectedIndex = 0
End Sub
Protected Sub CarGrid_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CarGrid.SelectedIndexChanged
'MsgBox(CarGrid.SelectedRow.Cells(1).Text)
filldatagrid(Convert.ToInt32(CarGrid.SelectedRow.Cells(1).Text))
End Sub
Public Sub filldatagrid(ByVal id As Integer)
Dim objConn As New SqlConnection("Server=gebruiker-pc;Database=dbCarRental;Uid=sa; Pwd=empty;")
Dim objCmd As New SqlCommand("getAllCars", objConn)
objCmd.Parameters.Add("@car_id", SqlDbType.Int).Value = id
objCmd.CommandType = CommandType.StoredProcedure
objConn.Open()
Dim DR As SqlDataReader = objCmd.ExecuteReader()
DetailsView1.DataSource = DR
DetailsView1.DataBind()
DR.Close()
DR = Nothing
objCmd.Dispose()
objCmd = Nothing
objConn.Close()
objConn = Nothing
End Sub
Private Sub DetailsView1_ItemInserting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewInsertEventArgs) Handles DetailsView1.ItemInserting
' // Get Value from DropDown
'int TopicID = 0;
'foreach (DetailsViewRow row in ItemsDetailsView.Rows)
'{
' if (row.Cells[0].Text == "Topic")
' {
' DropDownList TopicDropDown = (DropDownList)row.Cells[1].FindControl("Topic_TopicIDList");
' TopicID = int.Parse(TopicDropDown.SelectedValue.ToString());
' }
'}
' MsgBox(CType(DetailsView1.Rows(1).Cells(0).Controls(0), Label))
' For Each row As DetailsViewRow In DetailsView1.Rows
' Dim cell1 As TableCell = row.Cells(1)
' Dim value1 As String
' value1 = cell1.Text
' MsgBox(value1)
' Next
' Dim item As New DetailsViewItem(col.ColumnName, row(index).ToString(), col.DataType.ToString(), col.DefaultValue)
' MsgBox(DetailsView1.Rows(1).Controls(0).)
' MsgBox([Enum].GetValues)
' tb = DetailsView1.FindControl("Categorie")
' s = tb.Text
' MsgBox(s.ToString)
' For Each dvr As DetailsViewRow In DetailsView1.Rows
' If dvr.Cells.Count = 2 Then
' If dvr.Cells(1).Controls.Count > 0 Then
' Dim txt As TextBox
' txt = dvr.Cells(1).Controls(0)
' MsgBox("ID: " & txt.ID)
' MsgBox("Text: " & txt.Text.ToString)
' End If
' End If
' Next
' For i As Integer = 0 To e.Values.Count - 1
' If e.Values(i) IsNot Nothing Then
' e.Values(i) = Server.HtmlEncode(e.Values(i).ToString())
' ' MsgBox(Server.HtmlEncode(e.Values(i).ToString()))
' End If
' Next
End Sub
Private Sub DetailsView1_ItemUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewUpdateEventArgs) Handles DetailsView1.ItemUpdating
End Sub
Private Sub DetailsView1_ModeChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewModeEventArgs) Handles DetailsView1.ModeChanging
If (e.NewMode = DetailsViewMode.Insert) Then
DetailsView1.ChangeMode(DetailsViewMode.Insert)
End If
End Sub
Protected Sub DetailsView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewPageEventArgs) Handles DetailsView1.PageIndexChanging
End Sub
End Class