[..] Problème connexion base de données

[scorp84]

Bonjour GaRydelaMer,

J'ai essayé d'utiliser ton tuto mais je bloque encore pour me connecter (je t'avais bien dit que c'était pas mon truc les bases de données

Grâce à ton dernier post (merci j'ai trouvé les drivers ODBC de mon PC : SQL Server.

Par contre je n'arrive pas à me connecter avec les données suivantes :

- Serveur SQL : 192.168.x.x
- Port : 1455
- Alias ODBC déjà déclaré sur le poste client : AAAA
- Login : LLLL
- Mot de passe : MMMM
- Table : Uti
- Champs : uti_id, uti_login,uti_mdp

Pourrais tu me donner un exemple avec mes données, ça serait super sympa de ta part.

Merci d'avance pour ton aide et pour ta patience

Amicalement.

BM

[GaRydelaMer]

Alors à 1ere vue comme ca:

► Afficher le texteA toi d'adapter

Code : Tout sélectionner

Global $GUI = 0
;;Global $GUI = GUICreate()
;; blah blah

Global $oConn = _ADOConnection_Create($GUI)
If Not isObj($oConn) Then
    MsgBox(0, "Erreur", "Erreur pas de connection")
EndIf

If $oConn.State <> $adStateOpen Then $oConn.Open

Local $SQL = "SELECT uti_id, uti_login, uti_mdp FROM UTIL"
Local $oRS = _ADORecordSet_Open($SQL, $oConn)

If $oRS.EOF Then
    MsgBox(0, "RecordSet Util", "Aucun enregistrement")
Else
    ConsoleWrite("Objet: " & ObjName($oRS) & "(Limit " & $oRS.MaxRecords & ")")
    ConsoleWrite(", Source: " & $oRS.Source & @LF)
    ConsoleWrite("  RecordCount: " & $oRS.RecordCount)
    ConsoleWrite(", Fields.Count: " & $oRS.Fields.Count & @LF)
    ConsoleWrite("  Position: " & $oRS.AbsolutePosition)
    ConsoleWrite(", PageSize: " & $oRS.PageSize)
    ConsoleWrite(", Page/PageCount: " & $oRS.AbsolutePage)
    ConsoleWrite("/" & $oRS.PageCount & @LF)
    For $i = 0 To $oRS.Fields.Count -1
        ConsoleWrite($oRS.Fields($i).Name & "->" &  $oRS.Fields($i).Type & @LF)
    Next
    While Not $oRs.EOF
        For $i = 0 To $oRS.Fields.Count -1
            ConsoleWrite($oRS.Fields($i).Name & "->" &  $oRS.Fields($i).Value & ", ")
        Next
        ConsoleWrite(@LF)
        $oRs.MoveNext
    Wend
EndIf


Func _ADORecordSet_Open($SQL, ByRef $oConn, $adOpen = $adOpenDynamic, $adLock = $adLockOptimistic, $adCmd = $adCmdText, $MaxRecords = 0)
    Local $oRs = ObjCreate("ADODB.Recordset")
    $oRs.MaxRecords = $MaxRecords
    Switch $oConn.Properties("DBMS Name" ).Value
        Case "PostgreSQL"
            If $adCmd = $adCmdTable Then $SQL = "SELECT * FROM " & $SQL
            $SQL = StringRegExpReplace($SQL, "(\[|\])", """")
            $adCmd = $adCmdText
        Case "MySQL"
            If $adCmd = $adCmdTable Then $SQL = "SELECT * FROM " & $SQL
            $SQL = StringRegExpReplace($SQL, "(\[|\])", "`")
            $adCmd = $adCmdText
    EndSwitch
    $oRs.Open($SQL, $oConn, $adOpen, $adLock, $adCmd)
    Return $oRs
EndFunc   ;==>_ADORecordSet_Open

[scorp84]

Super

Je teste ça demain.

Un grand merci à toi

Amicalement.

BM