Visual Basic

joselito j. mebolos wrote:

what reference should i use?

C:\Program Files\Common Files\system\ado\msado15.dll

I are Troll

Creamboy wrote:

what about if i'm trying 2 connect my windows application to an online server (like on my website, www.mysite.com)?

Dim tim as Date
tim = now()

Ace Anthony C. Austria wrote:

However, whenever I run the program, it stops when I click cmdSave and Run-Time Error 91 "Object variable or With block variable not set". The highlighted syntax would be the five aforementioned lines involving AdoAudit. The save command for AdoRec, on the other hand, functions properly.

I are Troll

Private Sub cmdSave_Click()

    'enter values for your scenario
    Const connStr As String = "<replace with the connection string to connect to your Access DB>"
    Const tableName As String = "<replace with the table name of the table you wish to save to>"

    'vars
    Dim dbConn As ADODB.Connection
    Dim saveRec As ADODB.Recordset
    
    'initialize & open connection to DB
    Set dbConn = New ADODB.Connection
    dbConn.Open connStr
    
    'initialize & open recordset to table
    Set saveRec = New ADODB.Recordset
    saveRec.Open "SELECT TOP 0 * FROM [" & tableName & "]", dbConn, adOpenDynamic, adLockOptimistic
    
    'create new record
    saveRec.AddNew
    
    'save data to new record
    saveRec("Operation") = "Added or Altered Reference Material"
    saveRec("DateDone") = Format(Now, "mm-dd-yyyy")
    saveRec("TimeDone") = Format(Now, "hh:mm:ss ampm")
    
    'save record
    saveRec.Update
    
    'clean up
    saveRec.Close
    Set saveRec = Nothing
    
    dbConn.Close
    Set dbConn = Nothing

End Sub

chazy_chaz640 wrote:

Please help me with my project hotel reservation system in visual basic programming language. Please, i really need the code coz i'm just a beginner in programming.