Discussion :

[nazimb]

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
 
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()

ds ton exemple j'obtiens ce message d'erreur

Code :

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

1
2
3
 
Value of type 'System.Web.UI.WebControls.TextBox' cannot be
 converted to 'String'.

mais je doute fort que ça soit l'étape à suivre

[nazimb]

j'ai essayé ça

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
 
Sub datalist1_updatecommand(ByVal obj As Object, ByVal e As
 System.Web.UI.WebControls.DataListCommandEventArgs)
 
  Dim myConnection As New oledbconnection
 ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
 "Data Source=C:\base\eval.mdb")
  Dim strsql As String = "update tblagent_service set agent=(@textbox2)
 and mat='2600' "
  Dim myCommand As New oledbcommand(strsql, myConnection)
  Dim objparam As oledbparameter
 
  objparam = myCommand.parameters.add("@textbox2", oledbtype.char)
  objparam.value = CType(e.Item.FindControl("textbox2"), textbox)
  myCommand.Connection.Open()
  myCommand.ExecuteNonQuery()
  myCommand.Connection.Close()
 
  DataList1.EditItemIndex = -1
  datalist1.databind()
End Sub

mais ça me retourne cette erreur :

Object must implement IConvertible.

[rattlehead]

je pense que ca vient de là

Code :

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

objparam.value = CType(e.Item.FindControl("textbox2"), textbox)

tu renvoies un objet de type textbox apparemment dans value et ca ne le fait pas.
pourquoi tu ne sers pas de l'assistant pour faire ton updatecommand?
sinon mais les messages d'erreur complet ca aide.

[nazimb]

en d'autres termes?

[rattlehead]

bah que veux tu qu'il fasse ta textbox. lui il lui faut un objet du type IConvertible donc ca plante. en gros il te manque le .Text

[JauB]

je ne pense pas que la requête :
Dim strsql As String = "update tblagent_service set agent=(@textbox2)
and mat='2600' "
marche, sauf si c'est exceptionelle sous ACCESS!!

sous sql server pour mettre à jour une table alors il faut séparer les champs à mettre à jour par des virgules et non pas par le mot clé AND