PureBoard

Code: Alles auswählen

;
; Konfig-Datei mit folgenden Keys erstellen
; Werte können natürlich nur Beispiele sein
;
;         [ODBC]
;         DSN = TimeStamp
;         SERVER = 127.0.0.1
;         ADDRESS = 127.0.0.1,3306
;         DESCRIPTION = OSArbeitszeit
;         DATABASE = Timestampsql
;         DRIVER = MySQL ODBC 3.51 Driver 
;         QUERYLOG_ON = yes
;         QUERYLOGFILE = c:\ODBCquery.log
;         QUERYLOGTIME = 1
;         STATSLOG_ON = yes
;         STATSLOGFILE = c:\ODBCPerformance.log
;         TRUSTED_CONNECTION = 0
;         UID = Username
;         PWD = Password

Procedure OSCreateODBC(Map ODBCAttrib.s())
    strAttrib.s=""
    lpszDriver.s=ODBCAttrib("DRIVER")
    DeleteMapElement(ODBCAttrib(),"DRIVER")
    If FindMapElement(ODBCAttrib(),"TRUSTED_CONNECTION")
        If ODBCAttrib("TRUSTED_CONNECTION")="1" Or LCase(ODBCAttrib("TRUSTED_CONNECTION"))="yes"
            DeleteMapElement(ODBCAttrib(),"UID")
            DeleteMapElement(ODBCAttrib(),"PWD")
        EndIf
    EndIf
    ResetMap(ODBCAttrib())
    While NextMapElement(ODBCAttrib())
        strAttrib.s+MapKey(ODBCAttrib())+"="+ODBCAttrib(MapKey(ODBCAttrib()))+";"
    Wend
    strAttrib+";"
    FreeMap(ODBCAttrib())
    *Buffer=AllocateMemory(Len(strAttrib)) 
    CopyMemory(@strAttrib,*Buffer,Len(strAttrib)) 
    For L=0 To Len(strAttrib)-1
        If PeekB(*Buffer+L)=';' 
            PokeB(*Buffer+L,0) 
        EndIf 
    Next L 
    Result = SQLConfigDataSource_(0,#ODBC_ADD_DSN,lpszDriver.s,*Buffer ) 
    FreeMemory(*Buffer) 
    ProcedureReturn Result
EndProcedure 

NewMap ODBCAttr.s()

If Not OpenPreferences(MyConfigFile$)
    MessageRequester("ACHTUNG","Keine Konfig-Datei vorhanden!",#PB_MessageRequester_Ok)
    End
EndIf    
If Not PreferenceGroup("ODBC")
    MessageRequester("ACHTUNG","Keine ODBC-Daten vorhanden!",#PB_MessageRequester_Ok)
    End
EndIf
ExaminePreferenceKeys()
While NextPreferenceKey()
    Name.s=PreferenceKeyName()
    ODBCAttr(UCase(Name))=PreferenceKeyValue()
Wend
ClosePreferences()

If Not OSCreateODBC(ODBCAttr())
    MessageRequester("ACHTUNG","Erstellen/Änderung der User-ODBC fehlgeschlagen!",#PB_MessageRequester_Ok)
    End
Else
    MessageRequester("Info","Erfolgreich User-ODBC erstellt bzw. geändert!",#PB_MessageRequester_Ok)
EndIf        

Code: Alles auswählen

;@____________________________________________________________________________________________________
; ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
; »»» 
; »»» MySQL ODBC 3.51 Connector
; »»» 
; ____________________________________________________________________________________________________
; ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
EnableExplicit
;
#ODBC_ADD_DSN    = 1   
#ODBC_CONFIG_DSN = 2
#ODBC_REMOVE_DSN = 3
;
; Option Flags for ODBC MYSQL 
; Link : http://dev.mysql.com/doc/refman/5.0/en/connector-odbc-configuration-connection-parameters.html
; dort kann man weitere Flags finden
;
#FLAG_FIELD_LENGTH     = 1
#FLAG_FOUND_ROWS       = 2
#FLAG_COMPRESSED_PROTO = 2048
;
#ODBC_OPTION_FLAGS = #FLAG_FIELD_LENGTH|#FLAG_FOUND_ROWS|#FLAG_COMPRESSED_PROTO
; ____________________________________________________________________________________________________
; ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Procedure.i ODBC_AddConnection(ConnectionString.s)
  
  ; Idea : shire
  ; Link : http://www.purebasic.fr/english/viewtopic.php?p=371161#p371161
  
  Protected Result
  
  Result = SQLConfigDataSource_(0, #ODBC_ADD_DSN, "MySQL ODBC 3.51 Driver", ConnectionString)
  
  ProcedureReturn Result
  
EndProcedure
; ____________________________________________________________________________________________________
; ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Procedure.i ODBC_RemoveConnection(DSN.s)
  ; srod
  Protected Result

  Result=SQLConfigDataSource_(0,#ODBC_REMOVE_DSN,"MySQL ODBC 3.51 Driver","DSN="+DSN)
  If Result
    ProcedureReturn #True
  EndIf
EndProcedure
; ____________________________________________________________________________________________________
; ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Procedure.s CreateDNS(DSN.s, User.s, Pass.s, Database.s, Server.s="localhost", Port = 3306, OptionFlags = #ODBC_OPTION_FLAGS, Description.s = "Description")
  
  ; mein bescheidener Beitrag (Eigentlich nur für MySQL 3.51, evt. auch für 5 funktionieren
  
  Protected CS.s = "", Result
    
  CS = "DSN=" + DSN + "; "
  CS + "DESCRIPTION=" + Description + "; "
  CS + "SERVER=" + Server + "; "
  CS + "PORT=" + Str(Port) + "; "
  CS + "USER=" + User + "; "
  CS + "PASSWORD=" + Pass + "; "
  CS + "DATABASE=" + Database + "; "
  CS + "OPTION=" + Str(OptionFlags)
  
  Result = ODBC_AddConnection(CS)
  If Result
    ProcedureReturn DSN
  Else
    MessageRequester("Error","Check your Data")
    ProcedureReturn ""
  EndIf
   
EndProcedure
; ____________________________________________________________________________________________________
; ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
; Beispiel
;
Define DSN.s
DSN = CreateDNS("Meine-DSN","Username","Passwort","Datenbankname","localhost",3306,#ODBC_OPTION_FLAGS,"Beschreibung")
; ODBC_RemoveConnection(DSN)