Icon View Thread

The following is the text of the current message along with any replies.
Messages 1 to 1 of 1 total
Thread PING PureBASIC'S the.weavster
Thu, Sep 25 2008 9:10 AMPermanent Link

"Rita"
Spotted this in the PB forum and I was wondering about
DBisam. So who are you and how do u find PB ?

 Dim f As FolderItem
 f = GetFolderItem("dbodbc.dll")
 If Not f.Exists Then
   MsgBox "dbodbc.dll isn't in the current folder"
   Return
 End If

 Dim dbodbc As RegistryItem
 dbodbc = New
RegistryItem("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\YourDriverAliasHere
ODBC DRIVER")
 dbodbc.Value("APILevel") = "1"
 dbodbc.Value("ConnectFunctions") = "YYY"
 dbodbc.Value("Driver") = f.AbsolutePath
 dbodbc.Value("DriverODBCVer") = "03.00"
 dbodbc.Value("FileExtns") = "*.dat,*.idx,*.blb"
 dbodbc.Value("FileUsage") = "1"
 dbodbc.Value("SQLLevel") = "0"
 dbodbc.Value("Setup") = f.AbsolutePath
 dbodbc.Value("UsageCount") = 1

 dbodbc = New
RegistryItem("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers")
 dbodbc.Value("YourDriverAliasHere ODBC DRIVER") = "Installed"

Exception err
 If err IsA RegistryAccessErrorException Then MsgBox "An Error Occurred
Whilst Trying To Set Up The ODBC Driver"

Rita

Image