problem insertin into an access database using vb2005
-
<%@ 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("Employees") UpdateEmployeeID.DataSource=OurDataSet.Tables("Employees") DeleteEmployeeID.DataSource=OurDataSet.Tables("Employees") 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=password;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