Code: Select all
Declare AddConnection(Driver.s,ConnectString.s)
Declare RemoveConnection(Driver.s,DSN.s)
#ODBC_ADD_DSN = 1
#ODBC_CONFIG_DSN = 2
#ODBC_REMOVE_DSN = 3
;Replace File.s with a database that exists on your system!
File.s = "i:\_movies\sample.db"
Driver.s = "SQLite3 ODBC Driver"
Connectstring.s = "DSN=SessionDSN;Database="+File
Result=AddConnection(Driver,Connectstring)
If Result
InitDatabase()
db = OpenDatabase(0, "SessionDSN", "", "")
If db
Debug "Opened Successfully"
CloseDatabase(0)
If RemoveConnection(Driver,"SessionDSN")
Debug "Closed Successfully"
EndIf
EndIf
EndIf
Procedure AddConnection(Driver.s,ConnectString.s)
Result=SQLConfigDataSource_(0,#ODBC_ADD_DSN,Driver,ConnectString )
If Result
ProcedureReturn 1
EndIf
EndProcedure
Procedure RemoveConnection(Driver.s,DSN.s)
Result=SQLConfigDataSource_(0,#ODBC_REMOVE_DSN,Driver,"DSN="+DSN)
If Result
ProcedureReturn 1
EndIf
EndProcedure