J
James Cooke
Trying to update nortwhind table, no matter what I do, I
always get this error:
Server Error in '/WebApplication1' Application.
Must declare the variable '@CategoryName'.
The connection is definitely working, the user has
read/write authority and I can read the database. Updating
it with parameters fails. This is the code:
Public Class WebForm1
Private Sub Page_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
Dim OLEDBConnection As
System.Data.OleDb.OleDbConnection
Dim ConnectionString As String
ConnectionString = "Provider=SQLOLEDB.1;Persist
Security Info=True;Password=crow;User ID=cladion;Initial
Catalog=Northwind;Data Source=IS-JCOOKE0"
OLEDBConnection = New
System.Data.OleDb.OleDbConnection(ConnectionString)
OLEDBConnection.Open()
Dim OLEDBCommandObject As
System.Data.OleDb.OleDbCommand
Dim OLEDBParam As System.Data.OleDb.OleDbParameter
Dim SQL As String
SQL = "UPDATE categories SET
CategoryName=@CategoryName WHERE CategoryID =1"
OLEDBCommandObject = New
System.Data.OleDb.OleDbCommand(SQL, OLEDBConnection)
OLEDBParam = OLEDBCommandObject.Parameters.Add(New
System.Data.oledb.OleDbParameter("@CategoryName",
System.Data.OleDb.OleDbType.VarChar, 15))
OLEDBParam.Value = 1
OLEDBParam.SourceColumn = "CategoryName"
OLEDBCommandObject.ExecuteNonQuery()
OLEDBConnection.Close()
End Sub
End Class
always get this error:
Server Error in '/WebApplication1' Application.
Must declare the variable '@CategoryName'.
The connection is definitely working, the user has
read/write authority and I can read the database. Updating
it with parameters fails. This is the code:
Public Class WebForm1
Private Sub Page_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
Dim OLEDBConnection As
System.Data.OleDb.OleDbConnection
Dim ConnectionString As String
ConnectionString = "Provider=SQLOLEDB.1;Persist
Security Info=True;Password=crow;User ID=cladion;Initial
Catalog=Northwind;Data Source=IS-JCOOKE0"
OLEDBConnection = New
System.Data.OleDb.OleDbConnection(ConnectionString)
OLEDBConnection.Open()
Dim OLEDBCommandObject As
System.Data.OleDb.OleDbCommand
Dim OLEDBParam As System.Data.OleDb.OleDbParameter
Dim SQL As String
SQL = "UPDATE categories SET
CategoryName=@CategoryName WHERE CategoryID =1"
OLEDBCommandObject = New
System.Data.OleDb.OleDbCommand(SQL, OLEDBConnection)
OLEDBParam = OLEDBCommandObject.Parameters.Add(New
System.Data.oledb.OleDbParameter("@CategoryName",
System.Data.OleDb.OleDbType.VarChar, 15))
OLEDBParam.Value = 1
OLEDBParam.SourceColumn = "CategoryName"
OLEDBCommandObject.ExecuteNonQuery()
OLEDBConnection.Close()
End Sub
End Class