dbCan... example for Visual Basic

This example displays property values in a message box. You can implement this example by adding a button, with this code, to the project described in ODBC example for Visual Basic.

Msg = "dbCanAppend = " & CStr(Lead1.dbCanAppend) & "."
Msg = Msg & Chr(10) & Chr(13) & "dbCanRestart = " & CStr(Lead1.dbCanRestart) & "."
Msg = Msg & Chr(10) & Chr(13) & "dbCanScroll = " & CStr(Lead1.dbCanScroll) & "."
Msg = Msg & Chr(10) & Chr(13) & "dbCanUpdate = " & CStr(Lead1.dbCanUpdate) & "."

' dbCurrentRecord is 0 based
Msg = Msg & Chr(10) & Chr(13) & "dbCurrentRecord = " & CStr(Lead1.dbCurrentRecord) & "."
Msg = Msg & Chr(10) & Chr(13) & "dbEditMode = " & CStr(Lead1.dbEditMode) & "."
Msg = Msg & Chr(10) & Chr(13) & "dbIsBOF = " & CStr(Lead1.dbIsBOF) & "."
Msg = Msg & Chr(10) & Chr(13) & "dbIsDeleted = " & CStr(Lead1.dbIsDeleted) & "."
Msg = Msg & Chr(10) & Chr(13) & "dbIsEOF = " & CStr(Lead1.dbIsEOF) & "."
Msg = Msg & Chr(10) & Chr(13) & "dbIsOpen = " & CStr(Lead1.dbIsOpen) & "."
Msg = Msg & Chr(10) & Chr(13) & "dbLoadBits = " & CStr(Lead1.dbLoadBits) & "."
Msg = Msg & Chr(10) & Chr(13) & "dbLockingMode = " & CStr(Lead1.dbLockingMode) & "."
Msg = Msg & Chr(10) & Chr(13) & "dbRecordCount = " & CStr(Lead1.dbRecordCount) & "."

Style = vbOKOnly
Title = "LEADTOOLS ActiveX Database Properties"
Response = MsgBox(Msg, Style, Title)