Omskrivning af kode, måske skal der bruges en løkke
Hej jeg har nedenstående kode, som jeg godt kunne tænke mig at få omskrevet, så det blev pænere at se på. Nogen der har nogle forslag til det???' Opbyg SQL-kommando for kl 9.00
cmd.CommandText = "SELECT * FROM Kalender WHERE Dato = '" & Valgt_dato & "' AND kl = '09.00'"
con.Open()
datareader = cmd.ExecuteReader() ' Udfør forespørgsel
'Gennemløb datareader (result set) for at se om der er mere end 12 personbiler
dim antal1 as integer
antal1 = 0
do while datareader.read() = true
antal1 += 1
loop
con.Close()
' Opbyg SQL-kommando for kl 10.00
cmd.CommandText = "SELECT * FROM Kalender WHERE Dato = '" & Valgt_dato & "' AND kl = '10.00' "
con.Open()
datareader = cmd.ExecuteReader() ' Udfør forespørgsel
'Gennemløb datareader (result set) for at se om der er mere end 12 personbiler
dim antal2 as integer
antal2 = 0
do while datareader.read() = true
antal2 += 1
loop
con.Close()
' Opbyg SQL-kommando for kl 11.00
cmd.CommandText = "SELECT * FROM Kalender WHERE Dato = '" & Valgt_dato & "' AND kl = '11.00'"
con.Open()
datareader = cmd.ExecuteReader() ' Udfør forespørgsel
'Gennemløb datareader (result set) for at se om der er mere end 12 personbiler
dim antal3 as integer
antal3 = 0
do while datareader.read() = true
antal3 += 1
loop
con.Close()
Fortsætter....
Og hvad med dette her:
if antal1 < 1 then
Dim tblTempTider As DataTable
Dim raekke As DataRow
dsTempTider = session("dataset")
' Flyt tid ind i dataset
tblTempTider = dsTempTider.Tables("tempTider")
raekke = tblTempTider.NewRow()
raekke("Kl") = "09.00"
tblTempTider.Rows.Add(raekke)
' Bind til datagrid
BindDataGrid()
session("dataset") = dsTempTider
end if
if antal2 < 1 then
Dim tblTempTider As DataTable
Dim raekke As DataRow
dsTempTider = session("dataset")
' Flyt tid ind i dataset
tblTempTider = dsTempTider.Tables("tempTider")
raekke = tblTempTider.NewRow()
raekke("Kl") = "10.00"
tblTempTider.Rows.Add(raekke)
' Bind til datagrid
BindDataGrid()
session("dataset") = dsTempTider
end if
if antal3 < 1 then
Dim tblTempTider As DataTable
Dim raekke As DataRow
dsTempTider = session("dataset")
' Flyt tid ind i dataset
tblTempTider = dsTempTider.Tables("tempTider")
raekke = tblTempTider.NewRow()
raekke("Kl") = "11.00"
tblTempTider.Rows.Add(raekke)
' Bind til datagrid
BindDataGrid()
session("dataset") = dsTempTider
end if
'end if
....
....
Nogen der kan hjælpe
