Page 1 sur 1

[..]Connexion et Insertion dans une BDD SQL server

Posté : lun. 30 mars 2009 12:28
par batoune
Bonjour,
Je cherche un petit script qui me permettrait de me connecter et d'effectuer des insertion dans une base de donnée en SQL qui est situer sur un serveur Microsoft SQL server 2000 sur mon réseau.
J'ai trouver plusieur script pour mySQL mais aucun pour SQL, Si quelqu'un pouvait m'aider

Merci d'avance.

PS : pour me connecter a ma base via une page web ecrit en asp j'utilise le code suivant : (des fois que ce soit utile)

Code : Tout sélectionner

serverAdresse = "xxx.xxx.xxx.xxx" 'adresse du serveur
user = "user"       'utilisateur
password = "****"       'mot de passe
nomBase = "resultats"   'nom de la base a utiliser

'Ouverture de la connection
Set Maconnexion = Server.CreateObject("ADODB.Connection")
conn = "driver={SQL Server};server="& serverAdresse &";db=" & nomBase & ";user id=" & user & ";pwd=" & password ' & ";option=16386"
            
Maconnexion.open conn
 

Re: [..]Connexion et Insertion dans une BDD SQL server

Posté : lun. 30 mars 2009 12:59
par ani
désolé moi je touche pas encore a sql ni au base de donnée :(

le code vb(s) en au3 c'est facile à transformer.

Code : Tout sélectionner

$serverAdresse = "xxx.xxx.xxx.xxx" ;adresse du serveur
$user = "user"       ;utilisateur
$password = "****"       ;mot de passe
$nomBase = "resultats"   ;nom de la base a utiliser

;Ouverture de la connection
Global $Maconnexion = ObjCreate("ADODB.Connection")
$conn = "driver={SQL Server};server="& $serverAdresse &";db=" & $nomBase & ";user id=" & $user & ";pwd=" & $password ' & ";option=16386"
            
$Maconnexion.open($conn)

Re: [..]Connexion et Insertion dans une BDD SQL server

Posté : lun. 30 mars 2009 13:31
par batoune
bon ben j'ai trouvé une partie de la réponse tout seul!!

Code : Tout sélectionner

;Ouverture de la connection
$objConn = ObjCreate("ADODB.Connection")
$objConn.Open("Provider='sqloledb';Data Source='xxx.xxx.xxx.xxx\xxxxx';Initial Catalog='[mabase]';User ID='[user]';")
$rsCustomers2 = $objConn.Execute("Select * from resultats_tests where ID > 65")
With $rsCustomers2
    While Not .EOF
        ConsoleWrite(.Fields("ID").Value & " - " & .Fields("motif").Value & @LF)
        .MoveNext
    WEnd
    .Close
EndWith
$objConn.Close
Ce code me permet de me connecter et de consulter les donnée de ma base.
Mais des que je fais une instruction du type : INSERT, il y a une erreur et aucune insertion n'est effectué. si quelqu'un a une solution sur ce point je suis preneur