Discussion :

[nazimb]

Salut à tous,

je n'arrive pas a updater ma table via un champs de saisi, j'explique:

mon champ: textbox1.text

ma rêquete : update tblagent_service set agent="test" where mat=(@textbox1)

mais ça marche pas,comment je devrais proceder , je cherche depuis 2 jours sur le web, mais je n'arrive pas a trouver une explication claire.

merci

[souaddemaroc]

salut vous pouvez tout simplement faire cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
update tblagent_service set agent="test" 
where mat= &  textbox1.text

[nazimb]

mon pb est ds la récupération du parametre

[JauB]

mon pb est ds la récupération du parametre

de quel paramétre tu parles

[nazimb]

le textbox1

[JauB]

sincèrement je comprend pas ce que tu veux dire!!le textbox1 tu l'as donc tu peux le récupérer dans une variable string par exemple ou integer si c'est entier
enfin.... expliquez vous bien pour que les autres puissent vous aider

[nazimb]

je n'arrive pas a récupérer la valeur du textbox, pour l'utiliser ds la requete

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Le paramètre @text1 n'a pas de valeur par défaut.

[rattlehead]

pour faire un update d'une table il faut une command. tu l'as créée?

[nazimb]

oui je l'ai créé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Sub datalist1_updatecommand(ByVal obj AsObject, ByVal e As
 DataListCommandEventArgs)
 
 Dim myConnection AsNew oledbconnection
  ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=C:\base\eval.mdb")
 
 
 Dim strsql AsString = "update tblagent_service set agent='test' where
 mat=@textbox2 "
 
 Dim myCommand AsNew oledbcommand(strsql, myConnection)
 Dim objparam As oledbparameter
 
 objparam = myCommand.parameters.add("@textbox2", oledbtype.char)
 objparam.value = textbox2.text
 
 myCommand.Connection.Open()
 myCommand.ExecuteNonQuery()
 myCommand.Connection.Close()
 DataList1.EditItemIndex = -1
 datalist1.databind()
EndSub

[JauB]

bah on t'avait deja dit de faire comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
im strsql AsString = "update tblagent_service set
 agent='test' where mat=" & textbox2 & "

[rattlehead]

essaye avec varchar plutot que char. peut etre que ta chaine est trop longue. mais sinon au moment de l'update il l'aurait tronqué. là je seche.

[nazimb]

tjs rien, mais je me pose la question, es-ce que la valeur contenue ds le texbox peut etre récupérée comme je le fais, ou manque t il quelque chose?

[rattlehead]

tu peux nous balancer le message d'erreur exacte que tu as?
merci.

[nazimb]

Le paramètre @text1 n'a pas de valeur par défaut.

Description:
An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details:
System.Data.OleDb.OleDbException: Le paramètre @text1 n'a pas de valeur par défaut.

Source Error:
Line 88: Line 89:
myCommand.Connection.Open()Line 90:
myCommand.ExecuteNonQuery()Line 91:
myCommand.Connection.Close()Line 92:

[rattlehead]

c'est quoi ce @text1?

[nazimb]

c'est un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
<inputid="Text1"type="text"value='<%#Container.DataItem("agent")%>'
Runat="server"NAME="Text1"/>
 

il m'affiche un résultat suite a une requete parametrée, et ce resultat je peux le modifier et qd je valide la modification j'obtiens le message d'erreur qui est plus haut.

[rattlehead]

que contient Text1.text? et pourquoi dans ta requete tu as textbix2.text?

[nazimb]

il contient de simples donnée de type text, le textbox2.text, est juste une erreur de de frappe, c'est pas ça qui pose pb

[rattlehead]

en fait au moment où tu débuggues que vaut text1.text?

[blueghost]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Dim myConnection As String = ConfigurationSettings.AppSettings("dsnC")
 Dim conSQL As New OdbcConnection(myConnection) 
 Dim da As OdbcDataAdapter = New OdbcDataAdapter()
 
 Dim varProdID as string = request.QueryString("updateID")
 
:P ou dans ton cas dim varprodID as string = textbox1.text
 
 Dim strUpdateStmt As String
 strUpdateStmt = "UPDATE TABLE SET " & _
    "NomContact = '" & NomContact.Text & "', " & _
    "JobTitle = '" & JobTitle.Text & "', " & _
 
    "WHERE ID_CONTACT = " & varProdID & ""
 
 Dim myCommand As OdbcCommand = New OdbcCommand(strUpdateStmt, conSQL)
    conSQL.Open()
 myCommand.Executenonquery
 conSQL.close()