Find and Update Recordset

[Ceylon]

Hi

I have following code to find the hashvalue in HashValue colunm and update the Time in BST column. But i breaks in (objRecordSet.F ields.Item("BST ime") = Time) here (**Edit Line #23 **). Pls HELP

Function UploadBST()

'On Error Resume Next
Dim objConnection As ADODB.Connection
Dim objRecordSet As ADODB.Recordset
Dim hashvalue1 As String

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

objConnection.Open _
    "Provider = Microsoft.Jet.OLEDB.4.0; " & _
        "Data Source =C:\Documents and Settings\Owner\My Documents\New.mdb;"

objRecordSet.Open "SELECT * FROM TS", _
    objConnection, adOpenStatic, adLockOptimistic

hashvalue1 = Environ("Username") & Date
strCriteria = "HashValue = 'hashvalue1'"

objRecordSet.Find strCriteria

objRecordSet.Fields.Item("BSTime") = Time
objRecordSet.Update


objRecordSet.Close
objConnection.Close


End Function

[ADezii]

Hi

I have following code to find the hashvalue in HashValue colunm and update the Time in BST column. But i breaks in (objRecordSet.F ields.Item("BST ime") = Time) here. Pls HELP

Function UploadBST()

'On Error Resume Next
Dim objConnection As ADODB.Connectio n
Dim objRecordSet As ADODB.Recordset
Dim hashvalue1 As String

Set objConnection = CreateObject("A DODB.Connection ")
Set objRecordSet = CreateObject("A DODB.Recordset" )

objConnection.O pen _
"Provider = Microsoft.Jet.O LEDB.4.0; " & _
"Data Source =C:\Documents and Settings\Owner\ My Documents\New.m db;"

objRecordSet.Op en "SELECT * FROM TS", _
objConnection, adOpenStatic, adLockOptimisti c

hashvalue1 = Environ("Userna me") & Date
strCriteria = "HashValue = 'hashvalue1'"

objRecordSet.Fi nd strCriteria

objRecordSet.Fi elds.Item("BSTi me") = Time
objRecordSet.Up date


objRecordSet.Cl ose
objConnection.C lose


End Function

Try changing the Cursor Type:

objRecordSet.Open "SELECT * FROM TS", _
objConnection, adOpenKeyset, adLockOptimistic

[NeoPa]

Please describe more clearly what you mean by "It breaks". Is there an error message? What happens exactly?

We shouldn't be spending extra time just trying to work out what your question means.

[Ceylon]

Ok, Thanks for the info

[Ceylon]

Try changing the Cursor Type:

objRecordSet.Open "SELECT * FROM TS", _
objConnection, adOpenKeyset, adLockOptimistic

this worked thanks