Running and update query 1

[BPMan]

I have an update query in my access database called savings.
I have an VB program that uses this database and i want to run this savings update query every time i load the program...
i know that i need to put stuff in the load of my first form but how do i run a query in my database?
Thanks

 

[jel]

I'm no expert on this, but this seems to do the trick:

    Dim CN As New ADODB.Connection
    Dim CM As New ADODB.Command
    
    With CN
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Mode = adModeReadWrite
        .CursorLocation = adUseClient
        .Open "path\myDataBase.mdb"
    End With

    With CM
        .CommandText = "myUpdateQuery"
        .ActiveConnection = CN
        .Execute
    End With
    
    Set CN = Nothing
    Set CM = Nothing

 

[BPMan]

thanks this help a ton...

 

[CCLINT]

Well, depending on the provider, and if no parameters are passed, this may work even easier:


conn.Execute "EXECUTE myQuery", Options:= cmdStoredProc


Then, you can use the additional parameter to make it run faster (ExecuteNoRecords, meaning rather no need to return records to the connection as in a recordset), and, using a variable if so desired to determine if any records got processed:

conn.Execute "EXECUTE myQuery", RecordsAffected:=lRecordsAffected, Options:= cmdStoredProc + adExecuteNoRecordsFalse