[ADO.Net][VB.Net] Comment réaliser un Update via un champ de saisie ?

Version imprimable

Voir 40 message(s) de cette discussion en une page

Citation:

Envoyé par blueghost

Code:

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:

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

j'ai essayé ça

Code:

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 :

Citation:

Object must implement IConvertible.

15/05/2006, 09h42
rattlehead

je pense que ca vient de là

Code:

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.
15/05/2006, 11h45
nazimb

en d'autres termes?
15/05/2006, 12h35
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
15/05/2006, 14h10
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 :mrgreen:

Voir 40 message(s) de cette discussion en une page