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(RasterODBC.dbCanAppend) & "."
Msg = Msg & Chr(10) & Chr(13) & "dbCanRestart = " & CStr(RasterODBC.dbCanRestart) & "."
Msg = Msg & Chr(10) & Chr(13) & "dbCanScroll = " & CStr(RasterODBC.dbCanScroll) & "."
Msg = Msg & Chr(10) & Chr(13) & "dbCanUpdate = " & CStr(RasterODBC.dbCanUpdate) & "."
' dbCurrentRecord is 0 based
Msg = Msg & Chr(10) & Chr(13) & "dbCurrentRecord = " & CStr(RasterODBC.dbCurrentRecord) & "."
Msg = Msg & Chr(10) & Chr(13) & "dbEditMode = " & CStr(RasterODBC.dbEditMode) & "."
Msg = Msg & Chr(10) & Chr(13) & "dbIsBOF = " & CStr(RasterODBC.dbIsBOF) & "."
Msg = Msg & Chr(10) & Chr(13) & "dbIsDeleted = " & CStr(RasterODBC.dbIsDeleted) & "."
Msg = Msg & Chr(10) & Chr(13) & "dbIsEOF = " & CStr(RasterODBC.dbIsEOF) & "."
Msg = Msg & Chr(10) & Chr(13) & "dbIsOpen = " & CStr(RasterODBC.dbIsOpen) & "."
Msg = Msg & Chr(10) & Chr(13) & "dbLoadBits = " & CStr(RasterODBC.dbLoadBits) & "."
Msg = Msg & Chr(10) & Chr(13) & "dbLockingMode = " & CStr(RasterODBC.dbLockingMode) & "."
Msg = Msg & Chr(10) & Chr(13) & "dbRecordCount = " & CStr(RasterODBC.dbRecordCount) & "."
Style = vbOKOnly
Title = "LEADTOOLS ActiveX Database Properties"
Response = MsgBox(Msg, Style, Title)