Current Recordset does not support updating - HELP needed!

[Hexman]

I've come up with an error which the solution eludes me. I get the
error:

An unhandled exception of type 'System.Runtime .InteropService s.COMException' occurred in HRTest.exe

Additional information: Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.

It occurs when I attempt to add a new record. I've stripped out much
of the code, leaving the pertinent (I hope) info. I'm using MS Access
2003 as the database.

The error appears to be quite self-explanatary, but I've read about
the locktype an it seems correct. The "Current Recordset" I'm unsure
of. I just want to find out if the record is on file and if not, add
it, otherwise I'll update it.

Sounds simple, but I need help.

Thanks,

Hexman

---------------------------------------------------------------------------------------------------
Imports System.Data.Ole Db
'
'
'
Public Class Form1

Inherits System.Windows. Forms.Form
'
'
'
Public db As ADODB.Connectio n
Public C As ADODB.Command
Public POrstData As ADODB.Recordset

Private Sub DoUpdate()

'make connection and open database
db = New ADODB.Connectio n

db.ConnectionSt ring = "Provider=Micro soft.Jet.OLEDB. 4.0;Data
Source=" & txtDatabaseDir & "HRMDB.MDB" &
";Persist Security Info=False"

db.Open()

C = New ADODB.Command
C.ActiveConnect ion = db
C.CommandType = ADODB.CommandTy peEnum.adCmdTex t

'create and open record set

POrstData = New ADODB.Recordset
POrstData.Open( "PurOrd", db,
ADODB.CursorTyp eEnum.adOpenkey set,
ADODB.LockTypeE num.adLockOptim istic, True)

End Sub

Private Sub UpdateProcess()

C.CommandText = "Select PODate, POLoc, POItem FROM PurOrd " & _
"where PODate = #" & SelectedDate & "# and POLoc = '" & strLoc & "' "
& _
"AND POItem = " & CInt(strItem)

POrstData = C.Execute

If POrstData.EOF = True Then
POrstData.AddNe w() <======= Fails with Error =====
POrstData.Field s.Item("PODate" ).Value = "#" & strDate & "#"
POrstData.Field s.Item("POLoc") .Value = strLoc
POrstData.Field s.Item("POItem" ).Value = CInt(strItem)
POrstData.Updat e()
Else
MsgBox("Record Found: #" & SelectedDate & "# " & strLoc & " "
& CInt(strItem))
End If

End Sub

[Chris]

Hexman wrote:

I've come up with an error which the solution eludes me. I get the
error:

An unhandled exception of type 'System.Runtime .InteropService s.COMException' occurred in HRTest.exe

Additional information: Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.

It occurs when I attempt to add a new record. I've stripped out much
of the code, leaving the pertinent (I hope) info. I'm using MS Access
2003 as the database.

The error appears to be quite self-explanatary, but I've read about
the locktype an it seems correct. The "Current Recordset" I'm unsure
of. I just want to find out if the record is on file and if not, add
it, otherwise I'll update it.

Sounds simple, but I need help.

Thanks,

Hexman

---------------------------------------------------------------------------------------------------
Imports System.Data.Ole Db
'
'
'
Public Class Form1

Inherits System.Windows. Forms.Form
'
'
'
Public db As ADODB.Connectio n
Public C As ADODB.Command
Public POrstData As ADODB.Recordset

Private Sub DoUpdate()

'make connection and open database
db = New ADODB.Connectio n

db.ConnectionSt ring = "Provider=Micro soft.Jet.OLEDB. 4.0;Data
Source=" & txtDatabaseDir & "HRMDB.MDB" &
";Persist Security Info=False"

db.Open()

C = New ADODB.Command
C.ActiveConnect ion = db
C.CommandType = ADODB.CommandTy peEnum.adCmdTex t

'create and open record set

POrstData = New ADODB.Recordset
POrstData.Open( "PurOrd", db,
ADODB.CursorTyp eEnum.adOpenkey set,
ADODB.LockTypeE num.adLockOptim istic, True)

End Sub

Private Sub UpdateProcess()

C.CommandText = "Select PODate, POLoc, POItem FROM PurOrd " & _
"where PODate = #" & SelectedDate & "# and POLoc = '" & strLoc & "' "
& _
"AND POItem = " & CInt(strItem)

POrstData = C.Execute

If POrstData.EOF = True Then
POrstData.AddNe w() <======= Fails with Error =====
POrstData.Field s.Item("PODate" ).Value = "#" & strDate & "#"
POrstData.Field s.Item("POLoc") .Value = strLoc
POrstData.Field s.Item("POItem" ).Value = CInt(strItem)
POrstData.Updat e()
Else
MsgBox("Record Found: #" & SelectedDate & "# " & strLoc & " "
& CInt(strItem))
End If

End Sub

Why are you using old ADO and not ADO.NET?

Chris

[Hexman]

On Mon, 20 Feb 2006 21:59:50 -0500, Chris <[e-mail]> wrote:

Hexman wrote:

I've come up with an error which the solution eludes me. I get the
error:

An unhandled exception of type 'System.Runtime .InteropService s.COMException' occurred in HRTest.exe

Additional information: Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.

It occurs when I attempt to add a new record. I've stripped out much
of the code, leaving the pertinent (I hope) info. I'm using MS Access
2003 as the database.

The error appears to be quite self-explanatary, but I've read about
the locktype an it seems correct. The "Current Recordset" I'm unsure
of. I just want to find out if the record is on file and if not, add
it, otherwise I'll update it.

Sounds simple, but I need help.

Thanks,

Hexman

---------------------------------------------------------------------------------------------------
Imports System.Data.Ole Db
'
'
'
Public Class Form1

Inherits System.Windows. Forms.Form
'
'
'
Public db As ADODB.Connectio n
Public C As ADODB.Command
Public POrstData As ADODB.Recordset

Private Sub DoUpdate()

'make connection and open database
db = New ADODB.Connectio n

db.ConnectionSt ring = "Provider=Micro soft.Jet.OLEDB. 4.0;Data
Source=" & txtDatabaseDir & "HRMDB.MDB" &
";Persist Security Info=False"

db.Open()

C = New ADODB.Command
C.ActiveConnect ion = db
C.CommandType = ADODB.CommandTy peEnum.adCmdTex t

'create and open record set

POrstData = New ADODB.Recordset
POrstData.Open( "PurOrd", db,
ADODB.CursorTyp eEnum.adOpenkey set,
ADODB.LockTypeE num.adLockOptim istic, True)

End Sub

Private Sub UpdateProcess()

C.CommandText = "Select PODate, POLoc, POItem FROM PurOrd " & _
"where PODate = #" & SelectedDate & "# and POLoc = '" & strLoc & "' "
& _
"AND POItem = " & CInt(strItem)

POrstData = C.Execute

If POrstData.EOF = True Then
POrstData.AddNe w() <======= Fails with Error =====
POrstData.Field s.Item("PODate" ).Value = "#" & strDate & "#"
POrstData.Field s.Item("POLoc") .Value = strLoc
POrstData.Field s.Item("POItem" ).Value = CInt(strItem)
POrstData.Updat e()
Else
MsgBox("Record Found: #" & SelectedDate & "# " & strLoc & " "
& CInt(strItem))
End If

End Sub

Why are you using old ADO and not ADO.NET?

Chris

Its what I've had examples of. Please point me in the ADO.NET
direction. I need examples (add, delete, query, update, etc.)

Thanks,

Hexman

[Denny]

Look in the .net Framework SDK... it has several examples of ado.net

http://msdn.microsoft.com/netframework/

"Hexman" wrote:

On Mon, 20 Feb 2006 21:59:50 -0500, Chris <[e-mail]> wrote:

Hexman wrote:

I've come up with an error which the solution eludes me. I get the
error:
An unhandled exception of type 'System.Runtime .InteropService s.COMException' occurred in HRTest.exe

Additional information: Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.
It occurs when I attempt to add a new record. I've stripped out much
of the code, leaving the pertinent (I hope) info. I'm using MS Access
2003 as the database.

The error appears to be quite self-explanatary, but I've read about
the locktype an it seems correct. The "Current Recordset" I'm unsure
of. I just want to find out if the record is on file and if not, add
it, otherwise I'll update it.

Sounds simple, but I need help.

Thanks,

Hexman

---------------------------------------------------------------------------------------------------
Imports System.Data.Ole Db
'
'
'
Public Class Form1

Inherits System.Windows. Forms.Form
'
'
'
Public db As ADODB.Connectio n
Public C As ADODB.Command
Public POrstData As ADODB.Recordset

Private Sub DoUpdate()

'make connection and open database
db = New ADODB.Connectio n

db.ConnectionSt ring = "Provider=Micro soft.Jet.OLEDB. 4.0;Data
Source=" & txtDatabaseDir & "HRMDB.MDB" &
";Persist Security Info=False"

db.Open()

C = New ADODB.Command
C.ActiveConnect ion = db
C.CommandType = ADODB.CommandTy peEnum.adCmdTex t

'create and open record set

POrstData = New ADODB.Recordset
POrstData.Open( "PurOrd", db,
ADODB.CursorTyp eEnum.adOpenkey set,
ADODB.LockTypeE num.adLockOptim istic, True)

End Sub

Private Sub UpdateProcess()

C.CommandText = "Select PODate, POLoc, POItem FROM PurOrd " & _
"where PODate = #" & SelectedDate & "# and POLoc = '" & strLoc & "' "
& _
"AND POItem = " & CInt(strItem)

POrstData = C.Execute

If POrstData.EOF = True Then
POrstData.AddNe w() <======= Fails with Error =====
POrstData.Field s.Item("PODate" ).Value = "#" & strDate & "#"
POrstData.Field s.Item("POLoc") .Value = strLoc
POrstData.Field s.Item("POItem" ).Value = CInt(strItem)
POrstData.Updat e()
Else
MsgBox("Record Found: #" & SelectedDate & "# " & strLoc & " "
& CInt(strItem))
End If

End Sub

Why are you using old ADO and not ADO.NET?

Chris

Its what I've had examples of. Please point me in the ADO.NET
direction. I need examples (add, delete, query, update, etc.)

Thanks,

Hexman

[Hexman]

OK,

I looked at the examples in the SDK and other internet sources --- and
now I'm even more confused. I wish there was an example of someone
reading a transaction file and updating a table (add, update & delete
based on the transaction type). I've seen ASP code, C code & VB code
with ADO classic and ADO.NET, some with SQL, OleDB, ODBC, .....

Don't know which way to turn - just trying to get this task finished
(along with being guided down the correct path of learning about
this).

I've seen so much it really bluring. I thought my approach in the
code below was a good solution, but apparently not.

I need more help.

Can someone guide me closer to the objective?

Thanks,

Hexman

On Mon, 20 Feb 2006 20:37:18 -0800, "Denny" <st*****@commun ity.nospam>
wrote:

Look in the .net Framework SDK... it has several examples of ado.net

http://msdn.microsoft.com/netframework/

"Hexman" wrote:

On Mon, 20 Feb 2006 21:59:50 -0500, Chris <[e-mail]> wrote:

>Hexman wrote:
>> I've come up with an error which the solution eludes me. I get the
>> error:
>>
>>
>>>An unhandled exception of type 'System.Runtime .InteropService s.COMException' occurred in HRTest.exe
>>>
>>>Additional information: Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.
>>
>>
>> It occurs when I attempt to add a new record. I've stripped out much
>> of the code, leaving the pertinent (I hope) info. I'm using MS Access
>> 2003 as the database.
>>
>> The error appears to be quite self-explanatary, but I've read about
>> the locktype an it seems correct. The "Current Recordset" I'm unsure
>> of. I just want to find out if the record is on file and if not, add
>> it, otherwise I'll update it.
>>
>> Sounds simple, but I need help.
>>
>> Thanks,
>>
>> Hexman
>>
>> ---------------------------------------------------------------------------------------------------
>> Imports System.Data.Ole Db
>> '
>> '
>> '
>> Public Class Form1
>>
>> Inherits System.Windows. Forms.Form
>> '
>> '
>> '
>> Public db As ADODB.Connectio n
>> Public C As ADODB.Command
>> Public POrstData As ADODB.Recordset
>>
>> Private Sub DoUpdate()
>>
>> 'make connection and open database
>> db = New ADODB.Connectio n
>>
>> db.ConnectionSt ring = "Provider=Micro soft.Jet.OLEDB. 4.0;Data
>> Source=" & txtDatabaseDir & "HRMDB.MDB" &
>> ";Persist Security Info=False"
>>
>> db.Open()
>>
>> C = New ADODB.Command
>> C.ActiveConnect ion = db
>> C.CommandType = ADODB.CommandTy peEnum.adCmdTex t
>>
>> 'create and open record set
>>
>> POrstData = New ADODB.Recordset
>> POrstData.Open( "PurOrd", db,
>> ADODB.CursorTyp eEnum.adOpenkey set,
>> ADODB.LockTypeE num.adLockOptim istic, True)
>>
>> End Sub
>>
>> Private Sub UpdateProcess()
>>
>> C.CommandText = "Select PODate, POLoc, POItem FROM PurOrd " & _
>> "where PODate = #" & SelectedDate & "# and POLoc = '" & strLoc & "' "
>> & _
>> "AND POItem = " & CInt(strItem)
>>
>> POrstData = C.Execute
>>
>> If POrstData.EOF = True Then
>> POrstData.AddNe w() <======= Fails with Error =====
>> POrstData.Field s.Item("PODate" ).Value = "#" & strDate & "#"
>> POrstData.Field s.Item("POLoc") .Value = strLoc
>> POrstData.Field s.Item("POItem" ).Value = CInt(strItem)
>> POrstData.Updat e()
>> Else
>> MsgBox("Record Found: #" & SelectedDate & "# " & strLoc & " "
>> & CInt(strItem))
>> End If
>>
>> End Sub
>>
>
>Why are you using old ADO and not ADO.NET?
>
>Chris

Its what I've had examples of. Please point me in the ADO.NET
direction. I need examples (add, delete, query, update, etc.)

Thanks,

Hexman

[Tiny Tim]

OK,

I looked at the examples in the SDK and other internet sources --- and
now I'm even more confused. I wish there was an example of someone
reading a transaction file and updating a table (add, update & delete
based on the transaction type). I've seen ASP code, C code & VB code
with ADO classic and ADO.NET, some with SQL, OleDB, ODBC, .....

Don't know which way to turn - just trying to get this task finished
(along with being guided down the correct path of learning about
this).

I've seen so much it really bluring. I thought my approach in the
code below was a good solution, but apparently not.

I need more help.

Can someone guide me closer to the objective?

Thanks,

Hexman

On Mon, 20 Feb 2006 20:37:18 -0800, "Denny" <st*****@commun ity.nospam>
wrote:

Look in the .net Framework SDK... it has several examples of ado.net

http://msdn.microsoft.com/netframework/

"Hexman" wrote:

On Mon, 20 Feb 2006 21:59:50 -0500, Chris <[e-mail]> wrote:

>Hexman wrote:
>> I've come up with an error which the solution eludes me. I get the
>> error:
>>
>>
>>>An unhandled exception of type 'System.Runtime .InteropService s.COMException' occurred in HRTest.exe
>>>
>>>Additional information: Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.
>>
>>
>> It occurs when I attempt to add a new record. I've stripped out much
>> of the code, leaving the pertinent (I hope) info. I'm using MS Access
>> 2003 as the database.
>>
>> The error appears to be quite self-explanatary, but I've read about
>> the locktype an it seems correct. The "Current Recordset" I'm unsure
>> of. I just want to find out if the record is on file and if not, add
>> it, otherwise I'll update it.
>>
>> Sounds simple, but I need help.
>>
>> Thanks,
>>
>> Hexman
>>
>> ---------------------------------------------------------------------------------------------------
>> Imports System.Data.Ole Db
>> '
>> '
>> '
>> Public Class Form1
>>
>> Inherits System.Windows. Forms.Form
>> '
>> '
>> '
>> Public db As ADODB.Connectio n
>> Public C As ADODB.Command
>> Public POrstData As ADODB.Recordset
>>
>> Private Sub DoUpdate()
>>
>> 'make connection and open database
>> db = New ADODB.Connectio n
>>
>> db.ConnectionSt ring = "Provider=Micro soft.Jet.OLEDB. 4.0;Data
>> Source=" & txtDatabaseDir & "HRMDB.MDB" &
>> ";Persist Security Info=False"
>>
>> db.Open()
>>
>> C = New ADODB.Command
>> C.ActiveConnect ion = db
>> C.CommandType = ADODB.CommandTy peEnum.adCmdTex t
>>
>> 'create and open record set
>>
>> POrstData = New ADODB.Recordset
>> POrstData.Open( "PurOrd", db,
>> ADODB.CursorTyp eEnum.adOpenkey set,
>> ADODB.LockTypeE num.adLockOptim istic, True)
>>
>> End Sub
>>
>> Private Sub UpdateProcess()
>>
>> C.CommandText = "Select PODate, POLoc, POItem FROM PurOrd " & _
>> "where PODate = #" & SelectedDate & "# and POLoc = '" & strLoc & "' "
>> & _
>> "AND POItem = " & CInt(strItem)
>>
>> POrstData = C.Execute
>>
>> If POrstData.EOF = True Then
>> POrstData.AddNe w() <======= Fails with Error =====
>> POrstData.Field s.Item("PODate" ).Value = "#" & strDate & "#"
>> POrstData.Field s.Item("POLoc") .Value = strLoc
>> POrstData.Field s.Item("POItem" ).Value = CInt(strItem)
>> POrstData.Updat e()
>> Else
>> MsgBox("Record Found: #" & SelectedDate & "# " & strLoc & " "
>> & CInt(strItem))
>> End If
>>
>> End Sub
>>
>
>Why are you using old ADO and not ADO.NET?
>
>Chris

Its what I've had examples of. Please point me in the ADO.NET
direction. I need examples (add, delete, query, update, etc.)

Thanks,

Hexman