Pilote ODBC Microsoft Access erreur ... [ASP] - Programmation
Marsh Posté le 03-09-2001 à 14:26:53
Salut.
il y a une partie de ton code que je ne comprends pas trop.
premierement : est ce que dynabase est bien un dsn ?
Dans ce cas la syntaxe correcte serait plutôt :
oConn.Open "DSN=dynabase;"
deuxièmement : dans l'ouverture de ton recordset, dans le second paramètre doit figurer l'objet "connection" à utilisé. parce que dans ton cas je ne vois pas bien l'utilité de créer un objet connection si tu ne l'utilise pas après ! Tu vois ce que je veux dire.
J'ai un doute sur le bon fonctionnent de ton code même sous PWS.
Ceci dit je peux me tromper.
Marsh Posté le 03-09-2001 à 14:36:07
dédé...espèce de sale flemmard...retourne bosser (et pis il est où mon Visio Enterprise :gun: )
Marsh Posté le 03-09-2001 à 14:40:54
Chewbacca a écrit a écrit : dédé...espèce de sale flemmard...retourne bosser (et pis il est où mon Visio Enterprise :gun: ) |
Dans ma poche !?!?!?!
Et pi tu l'auras si tu répond au monsieur et si tu te coupe les poil de ta tête
Marsh Posté le 03-09-2001 à 14:49:24
arrête de poster quand tu est sous anxiolétique...tu oublie la moitié des mots ...c'est pas à Greg que tu t'adresse...triple andouille
Marsh Posté le 03-09-2001 à 14:57:13
Tu t'es vu quand t'as bu ?
c ki le plus chevelu de vous deux d'après toi !!!
Marsh Posté le 03-09-2001 à 14:06:24
Voilà un bout de code tout à fait classique ... ça marche bien avec le PWS par contre, une fois en ligne ... ça me provoque une erreur ...
Set oConn = Server.CreateObject("ADODB.Connection" )
oConn.Open "dynabase"
Set oRs = Server.CreateObject("ADODB.Recordset" )
oRs.Open "dossiermail", "dynabase", adOpenKeyset, adLockPessimistic, adCmdTable
oRs.AddNew
oRs.Fields("ref-dossier" ) = session("ref-dossier" )
oRs.Fields ("texte" ) = session("texte" )
oRs.Fields ("dest1" ) = session("dest1" )
oRs.Fields ("dest2" ) = session("dest2" )
oRs.Fields ("dest3" ) = session("dest3" )
oRs.Fields ("objet" ) = session("objet" )
if session("infos" ) ="1" then
oRs.Fields ("email" ) = session("email2" )
else
oRs.Fields ("email" ) = session("email" )
end if
select case session("signature" )
case "sign1" : oRs.Fields ("signature" ) = session ("prenom" ) & " " & ucase(session("nom" ))
case "sign2" : oRs.Fields ("signature" ) = ucase(session ("nom" )) & " " & session("prenom" )
case "sign3" : oRs.Fields ("signature" ) = session ("autresign" )
end select
oRs.Update
oRs.Close
oConn.Close
set oRs = nothing
set oConn = nothing
L'erreur qui s'en suit à l'exec: Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][Pilote ODBC Microsoft Access]Erreur dans la ligne
la ligne provoquant l'erreur est: oRs.Update
Je ne vois vraiment pas où est le binz, c'est pourquoi j'en fais appel à vous ...
D'avance merci !!