<%@ page language="
vb" runat="server" %>
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<script runat=server>
Sub Page_Load()
If (Not IsPostBack) then
LoadData()
End If
End Sub
Sub LoadData()
dim OurConnection as OleDbConnection
dim OurCommand as OleDbCommand
dim OurDataAdapter as OleDbDataAdapter
dim OurDataSet as New DataSet()
OurConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("./employee.mdb"))
OurConnection.Open()
OurCommand = New OleDbCommand("Select FirstName,LastName from Employees",OurConnection)
OurDataAdapter = New OleDbDataAdapter(OurCommand)
OurDataAdapter.Fill(OurDataSet, "Employees")
OurDataGrid.DataSource=OurDataSet.Tables("Employee s")
UpdateEmployeeID.DataSource=OurDataSet.Tables("Emp loyees")
DeleteEmployeeID.DataSource=OurDataSet.Tables("Emp loyees")
DataBind()
End Sub
Sub UpdateSetup(sender As Object, e As System.EventArgs)
UpdateSelect.Visible="False"
UpdateTextBoxes.Visible="True"
dim SelectedID as String = UpdateEmployeeID.SelectedItem.Value
UpdateButton.CommandArgument = SelectedID
dim OurConnection as OleDbConnection
OurConnection = New OleDbConnection("Server=server;uid=newriders;pwd=p assword;database=Northwind")
OurConnection.Open()
dim OurCommand as OleDbCommand
dim OurDataReader2 as OleDbDataReader
OurCommand = New OleDbCommand("Select FirstName, LastName From Employees Where EmployeeID = " + SelectedID ,OurConnection)
OurDataReader2 = OurCommand.ExecuteReader()
OurDataReader2.Read()
UpdateFirstName.Visible="True"
UpdateLastName.Visible="True"
UpdateFirstName.Text = OurDataReader2("FirstName")
UpdateLastName.Text = OurDataReader2("LastName")
OurConnection.Close()
OurDataReader2.Close()
LoadData()
End Sub
Sub UpdateReset(sender As Object, e As System.EventArgs)
UpdateSelect.Visible="True"
UpdateTextBoxes.Visible="False"
LoadData()
End Sub
Sub InsertCommand(sender As Object, e As System.EventArgs)
dim OurConnection as OleDbConnection
OurConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("./employee.mdb"))
dim OurCommand as OleDbCommand
OurCommand = New OleDbCommand("Insert Into Employees (FirstName, LastName) Values (@FirstName, @LastName)" ,OurConnection)
OurCommand.Parameters.Add("@FirstName", oledbType.Varchar, 10).Value = InsertFirstName.Text
OurCommand.Parameters.Add("@LastName", oledbType.Varchar, 20).Value = InsertLastName.Text
OurConnection.Open()
OurCommand.ExecuteNonQuery()
OurConnection.Close()
LoadData()
End Sub
Sub UpdateCommand(sender As Object, e As System.Web.UI.WebControls.CommandEventArgs)
dim OurConnection as OleDbConnection
dim OurCommand as OleDbCommand
dim EmployeeID as String = e.CommandArgument
OurConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("./employee.mdb"))
OurCommand = New OleDbCommand("Update Employees Set Firstname = @FirstName,LastName = @LastName Where EmployeeID = " +EmployeeID, OurConnection)
OurCommand.Parameters.Add("@FirstName", oledbType.Varchar, 10).Value =UpdateFirstName.Text
OurCommand.Parameters.Add("@LastName", oledbType.Varchar, 20).Value =UpdateLastName.Text
OurConnection.Open()
OurCommand.ExecuteNonQuery()
OurConnection.Close()
LoadData()
End Sub
Sub DeleteCommand(sender As Object, e As System.EventArgs)
dim OurConnection as oledbConnection
dim SelectedID as String = DeleteEmployeeID.SelectedItem.Value
dim OurCommand as oledbCommand
OurConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("./employee.mdb"))
OurCommand = New oledbCommand("Delete Employees Where EmployeeID = " + SelectedID, OurConnection)
OurConnection.Open()
OurCommand.ExecuteNonQuery()
OurConnection.Close()
LoadData()
End Sub
</script>
<html>
<head>
<title>ADO oledbCommand -Insert,Update,Delete</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form runat="server">
<table border="0" cellpadding="0" cellspacing="20">
<tr><td>
<ASP:DataGrid
id="OurDataGrid"
EnableViewState="false"
BorderWidth="1"
BorderColor="#000000"
CellPadding="3"
CellSpacing="0"
Font-Name="Verdana"
HeaderStyle-BackColor="#AAAAAA"
ItemStyle-BackColor="#EEEEEE"
runat="server" />
</td><td>
<h4>Insert</h4>
First Name: <asp:TextBox id="InsertFirstName" runat="server" /><br>
Last Name: <asp:TextBox id="InsertLastName" runat="server" />
<asp:button runat="server" OnClick="InsertCommand" text="Submit" /><br><br>
<hr style="height:1px">
<h4>Update</h4>
<asp:Panel id="UpdateSelect" runat="server" >
EmployeeID:
<asp:DropDownList
id="UpdateEmployeeID"
DataTextField="EmployeeID"
DataValueField="EmployeeID"
runat="server" />
<asp:button runat="server" text="Select" OnClick="UpdateSetup" />
</asp:Panel>
<asp:Panel id="UpdateTextBoxes" Visible="false" runat="server" >
First Name: <asp:TextBox id="UpdateFirstName" runat="server" />
<asp:button
id="UpdateButton"
onCommand="UpdateCommand"
runat="server"
text="Update" /><br>
Last Name: <asp:TextBox id="UpdateLastName" runat="server" />
<asp:button id="CancelUpdateButton" runat="server" onClick="UpdateReset" text="Select
Other" />
</asp:Panel><br>
<hr style="height:1px">
<h4>Delete</h4>
EmployeeID:
<asp:DropDownList
id="DeleteEmployeeID"
DataTextField="EmployeeID"
DataValueField="EmployeeID"
runat="server" />
<asp:button runat="server" text="Delete" onClick="DeleteCommand" />
</td></tr>
</table>
</form>
</body>
</html>
returns d ff errors
Operation must use an updateable query.
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.
Exception Details: System.Data.OleDb.OleDbException: Operation must use an updateable query.
Source Error:
Line 70: OurCommand.Parameters.Add("@LastName", oledbType.Varchar, 20).Value = InsertLastName.Text
Line 71: OurConnection.Open()
Line 72: OurCommand.ExecuteNonQuery()
Line 73: OurConnection.Close()
Line 74:
Source File: c:\inetpub\wwwroot\sat.aspx Line: 72
Stack Trace:
what should i do
Problem with an insert code using vb2005 on access database
