Can't Update Database (Resovled)

[señorbadger]

Hi when i try to update my db i get this error



this is the code that it has a problem with

Set myrs = New ADODB.Recordset
        'set the varible to get ready
Set MyConn = New ADODB.Connection
        'set the varible to get ready
    connstr = "Provider=MS Remote;" & _
           "Remote Server=http://192.168.0.2;" & _
           "Remote Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=C:\Inetpub\wwwroot\BCIMusrs.mdb"
           MyConn.ConnectionString = connstr
    MyConn.Open
 
'the line below is the problem the stuff above might help i think
 
Set myrs = MyConn.Execute("UPDATE users SET ScreenName = '" 
& userscrname & "' WHERE Username ='" & employeeperson & "'")

Please Help

Sam Lad

[techgnome]

Since there is no recordset being returned.... you don't need the set.... just this:

MyConn.Execute("UPDATE users SET ScreenName = '" 
& userscrname & "' WHERE Username ='" & employeeperson & "'")

TG

[señorbadger]

thanks but still same error
this is the code now

Set MyConn = New ADODB.Connection
        'set the varible to get ready
    connstr = "Provider=MS Remote;" & _
           "Remote Server=http://192.168.0.2;" & _
           "Remote Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=C:\Inetpub\wwwroot\BCIMusrs.mdb"
           MyConn.ConnectionString = connstr
    MyConn.Open
MyConn.Execute ("UPDATE users SET ScreenName = '" & 
userscrname & "' WHERE Username ='" & employeeperson & "'")

[mendhak]

Hmm... remote accessing an MDB? You will have problems...

Remove the parentheses:

Set MyConn = New ADODB.Connection
        'set the varible to get ready
    connstr = "Provider=MS Remote;" & _
           "Remote Server=http://192.168.0.2;" & _
           "Remote Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=C:\Inetpub\wwwroot\BCIMusrs.mdb"
 
 
    MyConn.Open connstr
 
MyConn.Execute "UPDATE users SET ScreenName = '" & 
userscrname & "' WHERE Username ='" & employeeperson & "'"

[nkad]

If the .mdb file is opened (meaning you have it openend in MS Access) or if you are hosting this from a server and the IUSR account has no read permissions on the folder/file you are writting to then, in both cases, you will get that error.

[Clothahump]

You'll get this error if the table does not have a primary key established. Check to see if you do. If you don't, put one on it, even if you just add an identity field and make it the primary key.

[señorbadger]

done both of those IUSR has write permissions still same problem

help please !

[kovan]

make sure the db is not read-only

[señorbadger]

Ado is in type read only so now i ammended that, also field names were reserved words for connection (how foolish of me)


thanks all

this is the code to solve the issue

Dim MyConn As ADODB.Connection
     Set MyConn = New ADODB.Connection
 
         MyConn.ConnectionString = "Provider=MS Remote;" & _
                "Remote Server=http://127.0.0.1;" & _
                "Remote Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=C:\Inetpub\wwwroot\db.mdb"
  MyConn.CursorLocation = adUseClient 'open the database in r/w mode
  MyConn.Open
 
MyConn.Execute ("UPDATE users SET UserPWD = '" _
& TxtnewPWD.Text & "' WHERE UserID ='" & username & "'")

so to write back pick sensible field names and before you open
(like the line before type)

MyConn.CursorLocation = adUseClient

thanks again all !