Results 1 to 3 of 3

Thread: What's wrong with this??????!!!!!!!!!

  1. #1

    Thread Starter
    PowerPoster
    Join Date
    Jul 1999
    Posts
    5,923

    Post

    This is driving me NUTS. I HATE ADO!! Can somebody please tell me why I keep getting an error saying "Insufficient base bloody information for updating and friggin' refreshing this hell hole recordset"

    Dim adoUserLog As Recordset
    Dim db As Connection

    Set db = New Connection

    With db
    .CursorLocation = adUseClient
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & CurrentDir & "Data\Driving.mdb;Jet OLEDB atabase Password=MyPassword;"
    .Open
    End With

    Set adoUserLog = New Recordset
    adoUserLog.Open "SELECT * FROM [User Log];", db, adOpenStatic, adLockOptimistic

    With adoUserLog
    .AddNew
    .Fields("UserID").Value = CurrentUserID
    .Fields("Description").Value = Activity
    .Fields("LogDate").Value = Format(Date, "dd/MM/yyyy")
    .Fields("LogTime").Value = Format(Time, "hh:nn:ss")
    .Update
    End With

    I'm at a complete loss, I see nothing wrong and I'm on the verge of pumping this computer full o'lead

    Please HELP and keep me sane!

    A thousand thank you's

    Many regards,

    ------------------
    - Chris
    chris.kilhams@totalise.co.uk
    If it ain't broke - don't fix it

    [This message has been edited by chrisjk (edited 02-06-2000).]

  2. #2
    Guru Aaron Young's Avatar
    Join Date
    Jun 1999
    Location
    Red Wing, MN, USA
    Posts
    2,176

    Post

    When you specify UseClient Side Cursor Location, you're telling it to use a different set of Drivers, which it can't find or don't work, remove that line and you should be fine, ie.
    Code:
    Private Sub Command1_Click()
        Dim adoUserLog As New ADODB.Recordset
        Dim db As New ADODB.Connection
        
        db.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\Driving.mdb;"
        
        adoUserLog.Open "SELECT * FROM [User Log];", db, adOpenStatic, adLockOptimistic
        With adoUserLog
            .AddNew
            .Fields("UserID").Value = CurrentUserID
            .Fields("Description").Value = Activity
            .Fields("LogDate").Value = Format(Date, "dd/MM/yyyy")
            .Fields("LogTime").Value = Format(Time, "hh:nn:ss")
            .Update
        End With
    End Sub
    ------------------
    Aaron Young
    Analyst Programmer
    aarony@redwingsoftware.com
    ajyoung@pressenter.com


  3. #3

    Thread Starter
    PowerPoster
    Join Date
    Jul 1999
    Posts
    5,923

    Post

    Would you believe I've been tearing my hair out over 1 line!!! It was in every example of ADO though...

    Anyway, thanks Aaron. Now I can sleep.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width