I'm using vbscript and accessing an excel spreadsheet with a
recordset, (on Windows XP Pro). I change one on the fields and when I
tell it to update, I get an error. I have added 'Everyone' and given
'Everyone' full access to the spreadsheet, the directory with the
excel spreadsheet, and
the temp folder on the computer. I checked and the spreadsheet is not
set to read only. Please tell me what I'm doing wrong. Here's my
partial code:
Sub QueryTheData(szQueryString)
Dim fullConnectionString As String
fullConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + _
"Data Source=" & fullPath & ";Mode=Share Deny Write;Extended
Properties=""Excel 8.0;HDR=Yes;IMEX=1;"";"
thePatients.CursorLocation = adUseClient
Call thePatients.Open(("SELECT * FROM `'Patient List$'` " &
szQueryString), fullConnectionString, adOpenKeyset, adLockOptimistic)
thePatients.MoveFirst
thePatients.Fields("DOS") = Format(dateSeenHolder, "mm/dd/yy")
thePatients.Update
End Sub
