• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Connects to access w/o connection string. will pull data and give user possibility to modify data.

Connects to access w/o connection string. will pull data and give user possibility to modify data.

Connects to access w/o connection string. will pull data and give user possibility to modify data.

API Declarations


Dim RecordSet As New ADODB.RecordSet
Dim i As Integer
Dim ConnectionAccess As String



Rate Connects to access w/o connection string. will pull data and give user possibility to modify data.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    RecordSet.Close
    Set RecordSet = Nothing
End Sub

Private Sub cmdOpen_Click()
    Dim errLoop As Error
    Dim strTmp As String
    
    ConnectionAccess = "Driver={Microsoft Access Driver (*.mdb)};" & _
                  "Dbq=db1.mdb;" & _
                  "DefaultDir=I:\my senior project;" & _
                  "Uid=Admin;Pwd=;"

    On Error GoTo AdoErrors_found

    On Error GoTo AdoErrorLite_found

    RecordSet.Open "SELECT * FROM Products", ConnectionAccess, adOpenForwardOnly
    
    RecordSet.MoveFirst
    MsgBox (RecordSet.fields(0).Value)
    Exit Sub
    
CleanUp:

    Set RecordSet = Nothing
    Set Cmd1 = Nothing
    Set Conn1 = Nothing
    Exit Sub
AdoErrors_found:
    i = 1
    On Error Resume Next
    Set Errors_Found = Conn1.Errors
    For Each errLoop In Errors_Found
     With errLoop
        strTmp = strTmp & vbCrLf & "ADO Error # " & i & ":"
        strTmp = strTmp & vbCrLf & "   ADO Error   # " & .Number
        strTmp = strTmp & vbCrLf & "   Description   " & .Description
        strTmp = strTmp & vbCrLf & "   Source        " & .Source
        i = i + 1
     End With
    Next

AdoErrorLite_found:
    strTmp = strTmp & vbCrLf & "VB Error # " & Str(Err.Number)
    strTmp = strTmp & vbCrLf & "   Generated by " & Err.Source
    strTmp = strTmp & vbCrLf & "   Description  " & Err.Description
    MsgBox strTmp
    On Error GoTo 0
    GoTo CleanUp

End Sub