; paramètres de connexion vers Postgresql
   local $db = "labase"
   local $server = "leserveur" 
   local $port = leport
   local $uid = "lelogin", $pwd= "lemotdepasse"
   local $ssl = "disable"
   Local  $oConn = ObjCreate("ADODB.Connection")
   $oConn.Provider = "MSDASQL"
   $oConn.ConnectionString = "DRIVER={PostgreSQL Unicode};DATABASE=" & $db & _
            ";SERVER=" & $server & ";PORT=" & $port & _
            ";UID=" & $uid & ";PWD=" & $pwd & _
            ";SSLmode=" & $ssl
			
; connexion à Postgresql
   $oConn.Open
   $adoRs = ObjCreate ("ADODB.Recordset")
   $adoRs.CursorType = 1
   $adoRs.LockType = 3


$code_barre  = InputBox("Entrer Code Barre ", "Entrer Code Barre ")

If $code_barre = "" Then Exit
If @error Then Exit
  
   $query = "SELECT DISTINCT id_prelevement FROM monschema.matable WHERE codebarre = '" &  $code_barre & "' "
   $adoRs.Open ($query, $oConn)

   
   ; récupération des valeurs des champs de la table sql
    With $adoRs
		While Not .EOF
			$id_prelevement  = $adoRs.Fields("id_prelevement").value		
            Run (@ProgramFilesDir & "\Mozilla Firefox\firefox.exe https://monsite/prelevement/affiche/id/" & $id_prelevement & "#")
            .MoveNext
        WEnd
    EndWith
   
; fermeture de la connexion Postgresql 
$oConn.Close