fejfinding aps.net
<%@ Page Language="vb" Debug="true" %><%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server">
Sub Page_Load (Sender As Object, E As EventArgs)
Dim strConnection As String
Dim strSql AS String
Dim objDataset As New DataSet
Dim objConnection As oleDbConnection
Dim objAdapter As oledbdataadapter
Dim objTable As DataTable
Dim objNewRow As DataRow
Dim objRows() As DataRow
strConnection ="provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\webapp\opgave\3010dot\data.mdb"
strSQL="SELECT id, navn, adresse FROM kunder;"
objConnection= New OleDbConnection (strConnection)
objAdapter= New OleDbDataAdapter(strSQL, objConnection)
objAdapter.Fill(objDataset,"kunder")
objTable =objDataSet.Tables("kunder")
objNewRow=objTable.NewRow()
objNewRow.Item("navn") ="Norman"
objNewRow.Item("adresse")="tommy"
objTable.Rows.add(objNewRow)
objRows=objTable.Select("navn='magrette' AND adresse='norman'")
objRows(0).Item("navn")="john"
objRows(0).Item("adresse")="hartford"
dgNameList1.DataSource = objDataSet.Tables ("Kunder").DefaultView
dgNameList1.DataBind()
dgNameList2.dataSource= objTable.Defaultview
dgNameList2.DataBind()
dgNameList3.Datasource= objTable.DefaultView
dgNameList3.DataBind()
End Sub
</script>
<html>
<body>
<table width="100%"
<tr>
<td>Orginal Data</td>
<td>Data with new row </td>
<td>Data with edited row</td>
<td>Data With deletet row</td>
</tr>
<tr>
<td valign="top"><asp:DataGrid id="dgNameList1" runat="server"/></td>
<td valign="top"><asp:DataGrid id="dgNameList2" runat="server"/></td>
<td valign="top"><asp:DataGrid id="dgNameList3" runat="server"/></td>
<td valign="top"><asp:DataGrid id="dgNameList4" runat="server"/></td>
</tr>
</table>
</body>
</html>
hvad er det jeg gøre forkert her!==???
