PureBasic Forums - English

Code: Select all

;
;Create DSN on the fly  for ODBC
;
; An example by Siegfried Rings (CodeGuru)

#ODBC_ADD_DSN = 1        ; Add Data source
#ODBC_CONFIG_DSN = 2     ; Configure (edit) Data source
#ODBC_REMOVE_DSN = 3     ; Remove Data source

Procedure MakeConnection(Driver.s, strAttributes.s)
  Result=OpenLibrary(1,"ODBCCP32.DLL")
  If Result
    lpszDriver.s=Driver
    ; MessageRequester("Info",strAttributes,0)
    MyMemory=AllocateMemory(Len(strAttributes))
    CopyMemory(@strAttributes,MyMemory,Len(strAttributes))
    For L=1 To Len(strAttributes )
      If PeekB(MyMemory +l-1)=Asc(";")
        PokeB(MyMemory +l-1,0)
      EndIf
    Next L
    Result = CallFunction(1, "SQLConfigDataSource", 0, #ODBC_ADD_DSN, @lpszDriver.s, MyMemory)
    FreeMemory(MyMemory)
    CloseLibrary(1)
    If Result
      ProcedureReturn 1;MessageRequester("Info","DSN Created",0)
    EndIf
  EndIf
EndProcedure


Procedure DeleteConnection(Driver.s,DSN.s)
  Result=OpenLibrary(1,"ODBCCP32.DLL")
  If Result
    lpszDriver.s=Driver
    strAttributes.s = "DSN="+DSN
    Result = CallFunction(1, "SQLConfigDataSource", 0, #ODBC_REMOVE_DSN, @lpszDriver.s, @strAttributes)
    CloseLibrary(1)
    If Result
      ProcedureReturn 1;MessageRequester("Info","DSN Delete",0)
    EndIf
  EndIf
EndProcedure

;example:
Debug Makeconnection("Microsoft Access Driver (*.mdb)","Server=SomeServer; Description=Description For PurebasicODBC;DSN=PureBasic_DSN;DBQ=d:\biblio.mdb;UID=Rings;PWD=Siggi;")
Debug Makeconnection("Microsoft Excel Driver (*.xls)","DSN=Excel_TEST;Description=New_Excel_Data_Source;FileType=Excel97;DBQ=C:\\Telefon.xls;")

;or delete:
Debug DeleteConnection("Microsoft Access Driver (*.mdb)","PureBasic_DSN")

Code: Select all

CompilerIf #PB_Compiler_IsMainFile
  EnableExplicit
CompilerEndIf


;
;Create DSN on the fly  for ODBC
;
; An example by Siegfried Rings (CodeGuru)

#ODBC_ADD_DSN = 1        ; Add Data source
#ODBC_CONFIG_DSN = 2     ; Configure (edit) Data source
#ODBC_REMOVE_DSN = 3     ; Remove Data source
#ODBC_ADD_SYS_DSN = 4
#ODBC_CONFIG_SYS_DSN = 5
#ODBC_REMOVE_SYS_DSN = 6
#ODBC_REMOVE_DEFAULT_DSN = 7

Procedure.i MakeConnection(Driver$, strAttributes$)
  
  Protected Result.i, Lib.i, *Driver, *Attributes, i.i
  
  
  Lib = OpenLibrary(#PB_Any, "ODBCCP32.DLL")
  If Lib
    *Driver = AllocateMemory(Len(Driver$) + 1)
    If *Driver
      PokeS(*Driver, Driver$, -1, #PB_Ascii)

      *Attributes = AllocateMemory(Len(strAttributes$) + 2) ; + 2 for double 0 terminated
      If *Attributes
        PokeS(*Attributes, strAttributes$, -1, #PB_Ascii)
        For i = 1 To MemorySize(*Attributes)
          If PeekA(*Attributes + i - 1) = ';'
            PokeA(*Attributes + i - 1, 0)
          EndIf
        Next i
        
        If CallFunction(Lib, "SQLConfigDataSource", 0, #ODBC_ADD_DSN, *Driver, *Attributes)
          Result = #True
        EndIf
        FreeMemory(*Attributes)
      EndIf
      FreeMemory(*Driver)
    EndIf
    
    CloseLibrary(Lib)
  EndIf
  
  ProcedureReturn Result
  
EndProcedure


Procedure DeleteConnection(Driver$, DSN$)
  
  Protected Result.i, Lib.i, *Driver, strAttributes$, *Attributes
  
  
  Lib = OpenLibrary(#PB_Any, "ODBCCP32.DLL")
  If Lib
    *Driver = AllocateMemory(Len(Driver$) + 1)
    If *Driver
      PokeS(*Driver, Driver$, -1, #PB_Ascii)
      
      strAttributes$ = "DSN=" + DSN$
      *Attributes = AllocateMemory(Len(strAttributes$) + 2) ; + 2 for double 0 terminated
      If *Attributes
        PokeS(*Attributes, strAttributes$, -1, #PB_Ascii)
        
        If CallFunction(Lib, "SQLConfigDataSource", 0, #ODBC_REMOVE_DSN, *Driver, *Attributes)
          Result = #True
        EndIf
        FreeMemory(*Attributes)
      EndIf
      FreeMemory(*Driver)
    EndIf
    CloseLibrary(Lib)
  EndIf
  
  ProcedureReturn Result
  
EndProcedure


CompilerIf #PB_Compiler_IsMainFile
  ;example:
  Debug Makeconnection("Microsoft Access Driver (*.mdb)", "Server=SomeServer; Description=Description For PurebasicODBC;DSN=PureBasic_DSN;DBQ=c:\tmp\biblio.mdb;UID=Rings;PWD=Siggi;")
  ;Debug Makeconnection("Microsoft Excel Driver (*.xls)", "DSN=Excel_TEST;Description=New_Excel_Data_Source;FileType=Excel97;DBQ=C:\\Telefon.xls;")
  
  ;or delete:
  Debug DeleteConnection("Microsoft Access Driver (*.mdb)", "PureBasic_DSN")
CompilerEndIf

Code: Select all

Makeconnection("ODBC Driver 11 for SQL Server", "Driver={SQL Server Native Client 11.0};Server=tcp:xxx.database.windows.net,1433;Database=xxx;Uid=xxx;Pwd=MyPassword;Encrypt=yes;TrustServerCertificate=no;Connection Timeout=30;Dsn=xxx")