KOMMENTAR NR. 1
----------------
Jeg har følgende filer i mit projekt:
----------- DEFAULT.ASPX - START -------
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="
http://www.w3.org/1999/xhtml"><head runat="server">
<title>Untitled Page</title>
</head>
<body>
<form id="form1" runat="server">
<div>
</div>
</form>
</body>
</html>
----------- DEFAULT.ASPX - SLUT -------
----------- DEFAULT.ASPX.vb - START -------
Partial Class _Default
Inherits System.Web.UI.Page
End Class
----------- DEFAULT.ASPX.vb - SLUT -------
----------- DEFAULT2.ASPX.vb* - START ------- (STJERNEN ER MED I NAVNET)
Partial Class Default2
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Dummy\Database.mdb")
con.Open()
Dim ins As OleDbCommand = New OleDbCommand("INSERT INTO dtest VALUES (@i, @d)", con)
ins.Parameters.Add("@i", OleDbType.Integer)
ins.Parameters.Add("@d", OleDbType.Date)
Dim j As Integer
For j = 0 To 9
ins.Parameters("@i").Value = j
Dim dt As DateTime = DateTime.Now
ins.Parameters("@d").Value = dt
ins.ExecuteNonQuery()
Thread.Sleep(1000)
Next
con.Close()
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'INITIALISERING
Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Dummy\Database.mdb")
con.Open()
Dim sel As OleDBCommand = New OleDBCommand("SELECT * FROM dtest WHERE d > @d", con)
sel.Parameters.Add("@d", OleDbType.Date)
Dim cut As DateTime = DateTime.Now.AddSeconds(-5)
sel.Parameters("@d").Value = cut
Dim rdr As OleDbDataReader = sel.ExecuteReader
While rdr.Read
Dim i As Integer = CType(rdr(0), Integer)
Dim dt As DateTime = CType(rdr(1), DateTime)
Console.WriteLine(i & " " & dt)
End While
rdr.Close()
con.Close()
End Sub
End Class
----------- DEFAULT2.ASPX.vb* - SLUT -------
----------- DEFAULT2.ASPX - START -------
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default2.aspx.vb" Inherits="Default2" %>
<%@ CompilerOptions='/R:"C:\Program Files\Microsoft.NET\Odbc.Net\Microsoft.data.odbc.dll"' %>
<%@ Import Namespace = "Microsoft.Data.Odbc" %>
<%@ Import Namespace = "System.Data.OleDb.OleDbConnection" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><script runat="server">
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
End Sub
</script>
<html xmlns="
http://www.w3.org/1999/xhtml"><head runat="server">
<title>Untitled Page</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:Button ID="Button1" runat="server" Text="Button" Width="191px"
onclick="Button1_Click" />
</div>
<p>
<asp:AccessDataSource ID="AccessDataSource1" runat="server"
DataFile="~/App_Data/Database.mdb"
SelectCommand="SELECT * FROM [BookingTider]"
ConflictDetection="CompareAllValues"
DeleteCommand="DELETE FROM [BookingTider] WHERE [Id] = ? AND [Dato] = ? AND [Tid] = ? AND [Optaget] = ?"
InsertCommand="INSERT INTO [BookingTider] ([Id], [Dato], [Tid], [Optaget]) VALUES (?, ?, ?, ?)"
OldValuesParameterFormatString="original_{0}"
UpdateCommand="UPDATE [BookingTider] SET [Dato] = ?, [Tid] = ?, [Optaget] = ? WHERE [Id] = ? AND [Dato] = ? AND [Tid] = ? AND [Optaget] = ?">
<DeleteParameters>
<asp:Parameter Name="original_Id" Type="Int32" />
<asp:Parameter Name="original_Dato" Type="String" />
<asp:Parameter Name="original_Tid" Type="String" />
<asp:Parameter Name="original_Optaget" Type="Boolean" />
</DeleteParameters>
<UpdateParameters>
<asp:Parameter Name="Dato" Type="String" />
<asp:Parameter Name="Tid" Type="String" />
<asp:Parameter Name="Optaget" Type="Boolean" />
<asp:Parameter Name="original_Id" Type="Int32" />
<asp:Parameter Name="original_Dato" Type="String" />
<asp:Parameter Name="original_Tid" Type="String" />
<asp:Parameter Name="original_Optaget" Type="Boolean" />
</UpdateParameters>
<InsertParameters>
<asp:Parameter Name="Id" Type="Int32" />
<asp:Parameter Name="Dato" Type="String" />
<asp:Parameter Name="Tid" Type="String" />
<asp:Parameter Name="Optaget" Type="Boolean" />
</InsertParameters>
</asp:AccessDataSource>
</p>
<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False"
DataKeyNames="Id" DataSourceID="AccessDataSource1">
<Columns>
<asp:BoundField DataField="Id" HeaderText="Id" InsertVisible="False"
ReadOnly="True" SortExpression="Id" />
<asp:BoundField DataField="Dato" HeaderText="Dato" SortExpression="Dato" />
<asp:BoundField DataField="Tid" HeaderText="Tid" SortExpression="Tid" />
<asp:CheckBoxField DataField="Optaget" HeaderText="Optaget"
SortExpression="Optaget" />
</Columns>
</asp:GridView>
</form>
</body>
</html>
----------- DEFAULT2.ASPX - SLUT -------
