Et eksempel i VB.NET:
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<script language="VB" runat="server">
Private Sub LoadData
Dim con As SqlConnection = New SqlConnection ("server=ARNEPC3;Integrated Security=SSPI;database=Test")
con.Open
Dim da As SqlDataAdapter = New SqlDataAdapter("SELECT * FROM T1", con)
Dim ds As DataSet = New DataSet("T1")
da.Fill(ds)
MyDataList.DataSource = ds
MyDataList.DataBind
con.Close
End Sub
Private Sub Page_Load(src As Object, e As EventArgs)
Call LoadData
End Sub
Private Sub Save_Click(src As Object, e As EventArgs)
Dim con As SqlConnection = New SqlConnection("server=ARNEPC3;Integrated Security=SSPI;database=Test")
con.Open
Dim ins As SqlCommand = New SqlCommand("INSERT INTO T1 VALUES(" & f1.Text & ",'" & f2.Text & "')", con)
ins.ExecuteNonQuery
con.Close
Call LoadData
End Sub
</script>
<form runat=server>
Current data:
<table border>
<tr>
<th>F1</th>
<th>F2</th>
</tr>
<asp:Repeater id="MyDataList" runat="server">
<ItemTemplate>
<tr>
<td><%# DataBinder.Eval(Container.DataItem,"F1") %></td>
<td><%# DataBinder.Eval(Container.DataItem,"F2") %></td>
</tr>
</ItemTemplate>
</asp:Repeater>
</table>
Add row:
<br/>
F1: <asp:TextBox id="F1" runat="server"/>
<br/>
F2: <asp:TextBox id="F2" runat="server"/>
<br/>
<asp:Button id="SaveBtn" Text="Save" OnClick="Save_Click" runat="server"/>
</form>
