VB.Net - Update d'un DataSet - Archives Visual Basic / Bases de données, Visual Basic, VB6, VB.NET, VB 2005, VB

Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 12 04 20:32:39

[OPENXML4J] THE FUTURE OF OPENXML4J par neodante

[OPENXML4J] UTILISER OPENXML4J OU POI POUR SES PROJETS JAVA AVEC OPEN XML : L'AVENIR DU PROJET OPENXML4J par neodante

LA NOTION DE CLASSE ABSTRAITE EN PHP5 par orion

ZUNE : SLIDESHOW LORS DE LA LECTURE DEPUIS LE ZUNE SOFTWARE par ROMELARD Fabrice

PROTéGEZ VOS ENFANTS D'INTERNET par orion

RE : INSTRUCTION POUR SIMULER TOUCHE CLAVIER par pi1147

RE : UTILISATION D'UN ETAT CRYSTAL REPORT AVEC DES SUBREPORT par paxx

RE : MSFLEXGRID->REMPLIR GRILLE VIA UN BOUTON par Morvonez

SELECTION RICHTEXTBOX par olobo

RE : COMPARAISON CODE SOURCE MODULE VB par casy

+ de logiciels à télécharger

1 303 587 membres
640 nouveaux aujourd'hui
14 559 membres club

Trouver une ressource

Trouvez une ressource parmi 39 089 codes, 1 209 343 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Poser une question

Sujet : VB.Net - Update d'un DataSet [ Archives Visual Basic / Bases de données ] (cboulas)

Informations & options pour cette discussion

Vous êtes ici : Thèmes / Archive Visual Basic & VB.NET / Archives Visual Basic / Bases de données / VB.Net - Update d'un DataSet
Ce sujet vous interesse ? Cliquez ici pour être averti quand il y a une nouvelle réponse

samedi 23 avril 2005 à 19:30:10 | VB.Net - Update d'un DataSet

cboulas

Salut, voilà j'ai un petit soucis qui ne m'est jamais arrivé, sauf en ayant fait une erreur. j'ai une base Access, celle-ci s'ouvre bien, le select se fait bien, mais si je veux faire un Update du Dataset pour faire un ajout ou une modif d'un enregistrement éxistant, VB.Net me retourne l'erreur : "Erreur dans la requette UPDATE" ou "INTO" selon le cas, j'ai générer automatiquement le Dataset, il ne devrais pas y avoir de pb normalement, car j'ai déjà utiliser cette méthode. voici le code :

[Code]
Dim NewRows As DataRow
NewRows = DataSet11.Actions.NewRow

With NewRows
   .Item("Datum") = LaTache.Jour
   .Item("Action") = LaTache.Nom
   .Item("Valid") = "False"
   .Item("Texte") = LaTache.Description
   .Item("Avert") = LaTache.Type
End With

DataSet11.Tables(0).Rows.Add(NewRows)

Dim i
Try
i = OleDbDataAdapter1.Update(DataSet11)
Catch ex As Exception
'Stop
End Try
[/Code]
J'ai vérifier au niveau du "End With" et toutes les informations sont bien stocké dans le DataSet, mais lors de l'Update, ça passe pas.

Merci d'avance.

Chris...
Web : Firstruner - eMail : Support&nbs

dimanche 24 avril 2005 à 11:16:53 | Re : VB.Net - Update d'un DataSet

labout

Pour cela il faut déclarer un 'OleDbUpdateCommand1

ce que fait le concepteur OleDbDataadapter quand on on le pose sur la feuille.

Exemple

Me.OleDbUpdateCommand1.CommandText = "UPDATE Cars SET Car = ?, City = ?, Comments = ?, DateFirst = ?, PubID = ?, State " & _

"= ?, [Top] = ? WHERE (Id = ?) AND (Car = ? OR ? IS NULL AND Car IS NULL) AND (Ci" & _

"ty = ? OR ? IS NULL AND City IS NULL) AND (DateFirst = ? OR ? IS NULL AND DateFi" & _

"rst IS NULL) AND (PubID = ? OR ? IS NULL AND PubID IS NULL) AND (State = ? OR ? " & _

"IS NULL AND State IS NULL) AND ([Top] = ?)"

Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Car", System.Data.OleDb.OleDbType.VarWChar, 50, "Car"))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("City", System.Data.OleDb.OleDbType.VarWChar, 50, "City"))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Comments", System.Data.OleDb.OleDbType.VarWChar, 0, "Comments"))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("DateFirst", System.Data.OleDb.OleDbType.DBDate, 0, "DateFirst"))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("PubID", System.Data.OleDb.OleDbType.Integer, 0, "PubID"))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("State", System.Data.OleDb.OleDbType.VarWChar, 2, "State"))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Top", System.Data.OleDb.OleDbType.Boolean, 2, "Top"))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Id", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Id", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Car", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Car", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Car1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Car", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_City", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "City", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_City1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "City", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DateFirst", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DateFirst", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DateFirst1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DateFirst", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_PubID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "PubID", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_PubID1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "PubID", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_State", System.Data.OleDb.OleDbType.VarWChar, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "State", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_State1", System.Data.OleDb.OleDbType.VarWChar, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "State", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Top", System.Data.OleDb.OleDbType.Boolean, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Top", System.Data.DataRowVersion.Original, Nothing))

et idem pour delete

Me.OleDbDeleteCommand1.CommandText = "DELETE FROM Cars WHERE (Id = ?) AND (Car = ? OR ? IS NULL AND Car IS NULL) AND (C" & _

"ity = ? OR ? IS NULL AND City IS NULL) AND (DateFirst = ? OR ? IS NULL AND DateF" & _

"irst IS NULL) AND (PubID = ? OR ? IS NULL AND PubID IS NULL) AND (State = ? OR ?" & _

" IS NULL AND State IS NULL) AND ([Top] = ?)"

Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Id", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Id", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Car", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Car", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Car1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Car", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_City", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "City", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_City1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "City", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DateFirst", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DateFirst", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DateFirst1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DateFirst", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_PubID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "PubID", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_PubID1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "PubID", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_State", System.Data.OleDb.OleDbType.VarWChar, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "State", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_State1", System.Data.OleDb.OleDbType.VarWChar, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "State", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Top", System.Data.OleDb.OleDbType.Boolean, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Top", System.Data.DataRowVersion.Original, Nothing))

@+

labout

dimanche 24 avril 2005 à 11:29:32 | Re : VB.Net - Update d'un DataSet

cboulas

Salut, merci pour ta réponse, j'ai fait un "drag and drop" de la base située dans "server explorer" de ma base, VS.Net à alors créer automatiquement toutes ces commandes, d'habitude je travail avec des bases SQL, mais là vu l'utilité Access suffisais, donc les UpDateCommand, InsertCommand, DeleteCommand on donc générés automatiquement par VS. le Delete fonctionne bien mais pas l'update ou insert. J'ai déjà utiliser cette technique avec une autre base access, et je n'est jamais eu ce pb.

Voici le code de l'update et insert :

'OleDbSelectCommand1

Me.OleDbSelectCommand1.CommandText = "SELECT Action, Avert, Datum, [N°], Texte, Valid FROM Actions"

Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1

'OleDbInsertCommand1

Me.OleDbInsertCommand1.CommandText = "INSERT INTO Actions(Action, Avert, Datum, Texte, Valid) VALUES (?, ?, ?, ?, ?)"

Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1

Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Action", System.Data.OleDb.OleDbType.VarWChar, 50, "Action"))

Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Avert", System.Data.OleDb.OleDbType.VarWChar, 50, "Avert"))

Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Datum", System.Data.OleDb.OleDbType.VarWChar, 50, "Datum"))

Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Texte", System.Data.OleDb.OleDbType.VarWChar, 50, "Texte"))

Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Valid", System.Data.OleDb.OleDbType.VarWChar, 50, "Valid"))

'OleDbUpdateCommand1

Me.OleDbUpdateCommand1.CommandText = "UPDATE Actions SET Action = ?, Avert = ?, Datum = ?, Texte = ?, Valid = ? WHERE (" & _

"[N°] = ?) AND (Action = ? OR ? IS NULL AND Action IS NULL) AND (Avert = ? OR ? I" & _

"S NULL AND Avert IS NULL) AND (Datum = ? OR ? IS NULL AND Datum IS NULL) AND (Te" & _

"xte = ? OR ? IS NULL AND Texte IS NULL) AND (Valid = ? OR ? IS NULL AND Valid IS" & _

" NULL)"

Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Action", System.Data.OleDb.OleDbType.VarWChar, 50, "Action"))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Avert", System.Data.OleDb.OleDbType.VarWChar, 50, "Avert"))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Datum", System.Data.OleDb.OleDbType.VarWChar, 50, "Datum"))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Texte", System.Data.OleDb.OleDbType.VarWChar, 50, "Texte"))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Valid", System.Data.OleDb.OleDbType.VarWChar, 50, "Valid"))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_N_", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "N°", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Action", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Action", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Action1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Action", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Avert", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Avert", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Avert1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Avert", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Datum", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Datum", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Datum1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Datum", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Texte", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Texte", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Texte1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Texte", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Valid", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Valid", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Valid1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Valid", System.Data.DataRowVersion.Original, Nothing))

'OleDbDeleteCommand1

Me.OleDbDeleteCommand1.CommandText = "DELETE FROM Actions WHERE ([N°] = ?) AND (Action = ? OR ? IS NULL AND Action IS N" & _

"ULL) AND (Avert = ? OR ? IS NULL AND Avert IS NULL) AND (Datum = ? OR ? IS NULL " & _

"AND Datum IS NULL) AND (Texte = ? OR ? IS NULL AND Texte IS NULL) AND (Valid = ?" & _

" OR ? IS NULL AND Valid IS NULL)"

Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_N_", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "N°", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Action", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Action", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Action1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Action", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Avert", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Avert", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Avert1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Avert", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Datum", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Datum", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Datum1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Datum", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Texte", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Texte", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Texte1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Texte", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Valid", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Valid", System.Data.DataRowVersion.Original, Nothing))

Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Valid1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Valid", System.Data.DataRowVersion.Original, Nothing))

'OleDbConnection1

Me.OleDbConnection1.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _

"ocking Mode=1;Jet OLEDB:Database Password=;Data Source=""C:\Documents and Setting" & _

"s\Christophe\Bureau\Travaux\Projet VB\eT@sk\eT@sk\Base.mdb"";Password=;Jet OLEDB:" & _

"Engine Type=5;Jet OLEDB:Global Bulk Transactions=1;Provider=""Microsoft.Jet.OLEDB" & _

".4.0"";Jet OLEDB:System database=;Jet OLEDB:SFP=False;Extended Properties=;Mode=S" & _

"hare Deny None;Jet OLEDB:New Database Password=;Jet OLEDB:Create System Database" & _

"=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Re" & _

"plica Repair=False;User ID=Admin;Jet OLEDB:Encrypt Database=False"

'OleDbDataAdapter1

Me.OleDbDataAdapter1.DeleteCommand = Me.OleDbDeleteCommand1

Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1

Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1

Me.OleDbDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Actions", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("Action", "Action"), New System.Data.Common.DataColumnMapping("Avert", "Avert"), New System.Data.Common.DataColumnMapping("Datum", "Datum"), New System.Data.Common.DataColumnMapping("Texte", "Texte"), New System.Data.Common.DataColumnMapping("Valid", "Valid")})})

Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1

'DataSet11

Me.DataSet11.DataSetName = "DataSet1"

Me.DataSet11.Locale = New System.Globalization.CultureInfo("fr-FR")

Chris...
Web : Firstruner - eMail : Support&nbs

Cette discussion est classé dans : vb, dataset, item, update, latache

Répondre à ce message

Sujets en rapport avec ce message

Problemes laison access VB [ par ducker88 ] duck88 Salut a tous, Je dois creer une liaison entre une base access et mon programme en VB .Net J'utilise un OleDbAdapter, un DataSet et la base e datagridview VB 2005 [ par ralebole ] Bonjour voila mon probleme je voudrais ecrire dans un dataset et afficher les données de se dataset dans un datagridview.TextBox1Button1DataGridView1D probleme d'update avec vb [ par Magnum313 ] bonjour,j'ai un souci pour effectuer un update sur une base de donnée acess en utilisant vb6, le code de ma requete est le suivant :Cnx.Execute (" UPD requete update sous vb avec access [ par didou853113 ] Bonjour, en exécutant la requete suivante un message d'erreur me dit qu'il y a une erreur de syntaxe dans celle-ci. Si quelqu'un pouvait m'éclairer, m Comment inserer des données dans un dataset ? [ par Alexia178 ] Bonjour,Actuellement je developpe une petite application sous VB express Edition avec une connexion avec une base de données SQL Server Express Editio Gestion dataset en VB [ par ttornade ] Bonjour à tous,je voudrais implémenter une fonctionalité de recherche particulière dans une base SQL server. Ma stratégie est celle de charger le plus requet insert update VB 2005 + Access [ par ssimou_06 ] je suis entrain de créer une application avec Vb 2005 et access veillez me donner le code de l'insertion et update . merci VB.Net Vider une cellule d'un datagrid et faire un Update de la BD [ par MagDix ] Rebonjour à tous J'ai un problème pour mettre à jour mon Datagridview lorsque je lui met une cellule vide. J'ai un datagridview et je fait un Upda update en vb.net [ par liehuos001 ] bjr j'ai un lèger probleme conecernant update sur vb.net 2003 et ma abse donnees access ' Création de la nouvelle ligne NewLigne = ds.Tables("ajout"). VB.Net Sélectionner un item dans un Listbox [ par MagDix ] Bonjour J'utilise un ListBox avec un Picturebox. Je fais afficher dans le listbox, les images que j'ai dans un répertoire sur mon disque dur. Je