Page 1 sur 1
[..] Problème connexion base de données
Posté : mer. 31 mars 2010 15:46
par 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
Re: [Tuto] Base de données avec ADO, ADOX, DataLinks.
Posté : mer. 31 mars 2010 17:06
par 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
Re: [Tuto] Base de données avec ADO, ADOX, DataLinks.
Posté : mer. 31 mars 2010 21:09
par scorp84
Super
Je teste ça demain.
Un grand merci à toi
Amicalement.
BM