Code de connection à BD Oracle

slt,

je dois développer une application pour ma boite, en asp, utilisant une bd oracle.

mais mon prob est que le code de connection à la BD est différent (dans la conception) que tout ce que j'ai pu lire sur les bouquins.

par exemple, le global.asa ne contient rien concernant la connection à la BD.

par exemple, après identification, g le code suivant:

Code:

---

1 2 3 4 5 6 7 8 9

'Création de la session soft set oConnect = server.createObject("33WebUser.oclWebUser") otErr = oConnect.otOpenConnection(Request.Form("otLogin"),Request.Form("otPassword"), application("otProfile")) if len(otErr)=0 then 'stockage de l'objet session PAM     set session("Connection")=oConnect set session("Pam")=oConnect.Pam

---

ce que je ne comprend pas ici, c comment se fait la connection à la BD...
g vu sur les livres, qu'il faut créer un objet de type connection:

Code:

---

set cnx = server.createObject("ADODB.Connection")

---

puis après un recordset.
or ici, je comprend pas le

Code:

---

set oConnect = server.createObject("33WebUser.oclWebUser")

---

cela correspond à quoi ce 33webuser et ce ocl.webuser ??
enfin, dernière question, lors de la création de l'objet type connection, est-on obligé de l'appeler ADODB ?? je ne pense pas, vu que l'on cré l'objet, mais dans le doute, je préfère demander...

merci de vos réponse est de votre aide :)

Salut,

je n'affirme pas détenir la réponse, mais il me semble que :

Lorsque Microsoft propose via ADODB une connexion Oracle, celle-ci est moins performante que les objets de conneixon du contructeur, on se demande pourquoi :D

Peut etre que l'objet "33WebUser.oclWebUser" est founit par oracle ?

je pensais en effet à un truc du genre, qu'il devait y avoir des trucs fournits par le constructeur du soft (en fait je dois modifier certaines choses, dc la base du soft existe déjà :) c pr ça que je ne comprenais pas ce bodel :)

je rajoute aussi que la connection à la base oracle est faite via le fichier tnsnames d'oracle et un lien ODBC configuré sur le serveur.
pfiout, je veux du php :)

et si je veux mettre en place un recordset, me suffit-il de faire:

Code:

---

set rec = server.createObject("33WebUser.RecordSet")

---

?
cela pourrait il fonctionner ?
merci

Citation:

---

Envoyé par bobic

et si je veux mettre en place un recordset, me suffit-il de faire:

Code:

---

set rec = server.createObject("33WebUser.RecordSet")

---

?
cela pourrait il fonctionner ?
merci

---

Ca me semble logique oui !

bon, g simplifié l'affaire, g repris du code présent dans une page.
Le code est le suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

'Vérification du compte en cours otsql="SELECT * FROM otWeb WHERE " otsql=otsql & "oidObject=" & oConnect.oidUser otsql=otsql & " AND oidWeb='" & replace(otOldLogin,"'","''") & "'" if len(otOldPassword)>0 then otsql=otsql & " AND otPassword='" & replace(otOldPassword,"'","''") & "'" else otsql=otsql & " AND otPassword is null" end if set oRec = oPam.ogbAdoData.Execute(otsql) if oRec.eof then otMessage= oPam.otDictionnary(8000174) else 'Création de la requête de mise à jour if len(otNewLogin)>0 then otsql= ",oidWeb='" & replace(otNewLogin,"'","''") & "'" end if if len(otNewPassword)>0 then if len(otsql)>0 then otsql=otsql & "," otsql=otsql & "otPassword='" & replace(otNewPassword,"'","''") & "'" else if len(otsql)>0 then otsql=otsql & "," otsql=otsql & "otPassword=null" end if otsql="UPDATE otWeb SET " & mid(otsql,2) otsql=otsql & " WHERE oidObject=" & oConnect.oidUser oPam.ogbAdoData.Execute cstr(otsql)

---

reprenant l'exemple de ce code, g fait ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10

<% sql ="SELECT * from otWeb WHERE oidObject='30366974'" oPam.ogbAdoData.Execute cstr(sql)     test=sql("otPassword") response.write "test: " & test %>

---

le but ici est qu'il se connecte à la bd, dans la table otweb, qu'il sélectionne la "ligne" avec l'oidobject "30366974" et qu'il m'affiche donc le passd (mis dans la variable test)...

le prob, c qu'il ne m'affiche pas la valeur de test....
est-ce parce que je ne l'ai pas déclaré via un dim test ? (d'ailleurs ceci est-il obligatoire ?)

je ne sais pas non plus si pour la valeur de oidobject je dois mettre des ', des " ou rien dans le cas de caractères numériques
mon prob, c qu'il ne me sort aucune erreur, alors qu'en php, il m'aurait déjà jeté... :(

enfin, coment faire pour tester si la reqête à la bd est bonne ou pas ?

merci d'avance pr ce petits conseils :)

Bobic,
Le problème est que en asp si tu fais un response.write d'une valeur null il ne t'affiche rien
Maintenant je ne comprends pas oPam.ogbAdoData.Execute cstr(sql)
car tu execute une requete de selection et non pas d'action.

Pourquoi ne pas mettre le resutlat de ta requete dans un recordset.

set RS = server.createobject("adodb.recordset")

après tu fait RS.Open ( SQL )

Après tu feras :
response.write RS("otPassword")

A mon avis ca devrais marcher meme avec des objets Oracle.

Tiens nous au courant

g dc fait cela:

Code:

---

1 2 3 4

sql ="SELECT * from otWeb WHERE oidObject='30366974'" set RS = server.createobject("33WebUser.recordset") RS.Open ( SQL ) response.write RS("otPassword")

---

mais rien ne sort :(
je précise que plutot que metre ADODB, g mis 33WebUser puisque dans un fichier en inclusion g ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

set oConnect = server.createObject("Pam33WebUser.oclWebUser") otErr = oConnect.otReprise(Request.QueryString("u")) if len(otErr)> 0 then Response.Clear Response.Redirect "../ActionU/Exit.asp" end if 'stockage de l'objet application PAM ovReprise=true set session("Connection")=oConnect set oPam=oConnect.Pam end if

---

ensuite, g repis cela oPam.ogbAdoData.Execute cstr(sql) car dans ce fichie, y'a cela pour insérer des datas dans la basen et je me suis dit qu'e reprenant le même modèle, cela devrait fonctionner...
sauf, que je ne savais pas qu'il fallait faire une diff entre l'éxécution dune requette de sélection, et une insertion..... :?

C'est bizarre donc que sur RS.OPEN (sql) il ne génere pas d'erreur !!

Il se peut donc que la manipulation de l'objet soit différente qu'une connection adodb normale. Tu n'as aucune documentation ?

non, je n'ai pas de doc malheureusement sur la façon dont c programmé :)

je n'ai que le code existant et qui tourne déjà.......

Je suis désolé, je ne pas aider, il me semble que tu n'as pas d'erreurs d'execution donc tu es proche au but !!

Bon courage

c bon, cela fctionne maintenant. g mis cela:

Code:

---

1 2 3 4 5 6 7 8 9 10

<% dim otSql   otSql="SELECT * FROM otWeb WHERE oidobject=30366974" set oRec = oPam.ogbAdoData.Execute(otsql)       %> <b><%=oRec("OTPASSWORD")%></b>

---

g compris ma connerie maintenant :) il fallait d'abord que je déclare une var avec l'éxécution de ma requete, puis que je m'en serve pr apeler le champ de la BD :)

ouf :) je v pouvoir enfin avancer !

merci à tout ceux qui ont pris le tps de me lire et de m'aider :)

ouf je l'aurai pas deviné !! Felicitations !! :D

N'oublie pas :resolu: :twisted: