OVH Community, votre nouvel espace communautaire.

Insert dans ma db impossible


Kiffarts
30/12/2011, 19h42
Non, au niveau de MM_Insert il manquait le id=""
Le ConGen je l'avais désactivé pour tester!

ocram
30/12/2011, 13h05
c'était au niveau du champs congen?

Kiffarts
30/12/2011, 12h14
Probleme Résolu
Merci pour votre patience
Bonne journée

Solution: Vérifier que les champs du formulaire aient bien un tag name="nomduchamp" et id="nomduchamp"

Kiffarts
30/12/2011, 09h39
Questions subsidiaires, cela pourrait-il avoir à faire avec les accès utilisateurs?
Dans MylittleAdmin au niveau sécurité, je vois plusieurs possibilité d'utilisateurs entre autres: .dbo, guest, kiffarts
ma connection string fait appel à .dbo. l'erreur n'est-elle pas à ce niveau ? Ne faudrait-il pas utiliser kiffarts ou guest? après lui avoir assigné les droits adéquats?

Kiffarts
30/12/2011, 09h20
Une idée de piste ?

Kiffarts
29/12/2011, 12h58
Il est au dessus dans le premier message, faut-il autre chose?

ocram
29/12/2011, 12h47
pouvez vous poster la le code d'insertion

Kiffarts
29/12/2011, 10h56
Via le lien vers ma page: http://www.kiffarts.be/pages/inscvisiteur.asp

ocram
29/12/2011, 10h41
je peux arrivé au même result que vous (erreur) comment ?

Kiffarts
29/12/2011, 10h36
Merci, oui je suis déjà passé par là !
Ma connection fonctionne très bien, je peut lire mes recordsets et les afficher sans problème.
Par contre impossible de faire un INSERT et je comprend pas pourquoi

ocram
29/12/2011, 10h27
c'est de l'asp ? Normalement tu devrais trouvé ton bonheur ici => http://guide.ovh.com/bddmutuwindows

Kiffarts
29/12/2011, 10h04
Bonjour,
Je tente en vain de mettre au point une page avec un formulaire pour inserser un enregistrement dans ma db.

A savoir, je suis newbie en SQL Server, je travaille sous Dreamweaver cs5.5

le script asp pour l'insertion:
Code:

<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<%
If (CStr(Request("MM_insert")) = "IntroVis") Then
  If (Not MM_abortEdit) Then
    ' execute the insert
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_kifdb_STRING
    MM_editCmd.CommandText = "INSERT INTO dbo.Membres (Nom, Prenom, Pseudo, Sexe, Pwd, Email, Avatar, NewsLetter, ConGen) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 201, 1, 50, Request.Form("Nom")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, 50, Request.Form("Prenom")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 201, 1, 35, Request.Form("Pseudo")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 201, 1, 10, Request.Form("Sexe")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 201, 1, 25, Request.Form("Pwd")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 201, 1, 50, Request.Form("Email")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 201, 1, 50, Request.Form("Avatar")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 201, 1, 3, Request.Form("NewsLetter")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 201, 1, 3, Request.Form("Congen")) ' adLongVarChar
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "EnregReussi.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
  End If
End If
%>
me semble correct, mais je reçoit le message d'erreur suivant:

Microsoft OLE DB Provider for SQL Server erreur '80040e14'

The parameterized query '(@P1 text,@P2 text,@P3 text,@P4 text,@P5 text,@P6 text,@P7 text,' expects the parameter '@P8', which was not supplied.

/Pages/InscVisiteur.asp, ligne 42
La ligne 42 étant l'execute : MM_editCmd.Execute

Pourriez-vous me donner une piste?
D'avance merci