Oledb + vb.NET [URGENT]

Question

Bonjour j'essaye desesp&#233;rement d'ajouter une entr&#233;e dans une base de donn&#233;es Access via un prog en .NET. J'y arrive pas !!!  et je ne vois pas pourquoi..... 
J'ai droit &#224; une erreur non r&#233;pertori&#233;e sur l'Update du DataAdapter.

mon code:



Private 
Sub Button1_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Button1.Click

Dim bdName 
As 
String
Dim MyConnexion 
As OleDbConnection = 
New OleDbConnection

Dim objCommand 
As OleDbCommand

Dim objDataAdapter 
As OleDbDataAdapter

Dim objDataSet 
As 
New DataSet

Dim objDataTable 
As DataTable

Dim objCommandBuilder 
As OleDbCommandBuilder

Dim objDataRow 
As DataRow


bdName = "\server\Rejets.mdb"
MyConnexion = 
New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & bdName)
MyConnexion.Open()
objCommand = 
New OleDbCommand("SELECT Date,Id_Equipe FROM Saisies;")
objDataAdapter = 
New OleDbDataAdapter(objCommand)
objCommand.Connection = MyConnexion
objDataAdapter.Fill(objDataSet, "Saisies")
objDataTable = objDataSet.Tables("Saisies")
objDataRow = objDataSet.Tables("Saisies").NewRow
objDataRow("Date") = Now()
objDataRow("Id_Equipe") = 3
objDataSet.Tables("Saisies").Rows.Add(objDataRow)
objCommandBuilder = 
New OleDbCommandBuilder(objDataAdapter)
objDataAdapter.Update(objDataSet, "Saisies")
objDataSet.Clear()
objDataAdapter.Fill(objDataSet, "Saisies")
objDataTable = objDataSet.Tables("Saisies")

MyConnexion = 
Nothing
objCommand = 
Nothing
objCommandBuilder = 
Nothing
objDataAdapter = 
Nothing
objDataRow = 
Nothing
objDataSet = 
Nothing
objDataTable = 
Nothing
End 
Sub

Si quelqu'un voit pourquoi &#231;a merde et si il y a plus simple, je suis preneur !!! 
Merci !!!

Kamui74

kamui74 · Answer

J'ai oubli&#233; de donner la structure de ma table :

Table Saisies:
   Id : Num&#233;roAuto
   Date : Date
   Id_Equipe : Num&#233;rique

cs_lim · Answer

Salut

Essaye ce code



Dim bdName 
As 
String
Dim MyConnexion 
As OleDbConnection = 
New OleDbConnection()

Dim objCommand 
As 
New OleDbCommand()

Dim objDataAdapter 
As 
New OleDbDataAdapter()

Dim objDataSet 
As 
New DataSet()

Dim objDataTable 
As 
New DataTable("Saisies")


'Vide le dataset de toutes les tables pr&#233;sentes
objDataSet.Tables.Clear()
'Ajoute la table sasies au dataset
objDataSet.Tables.Add(objDataTable)


'Connexion Serveur
bdName = "\server\Rejets.mdb"
MyConnexion = 
New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & bdName)
MyConnexion.Open()


'Mise &#224; jour
'On donne la connexion &#224; l'objet comande
objCommand.Connection = MyConnexion
'Cr&#233;ation de la requete d'update
objCommand.CommandText = "UPDATE Saisies SET id_equipe='" & "3" & "', date='" & Now() & "';"
'Affectation de de la requete au dataadapter
objDataAdapter.UpdateCommand = objCommand
'Execution de la requete update
objDataAdapter.UpdateCommand.ExecuteNonQuery()


'Remplit le dataset
objCommand.Connection = MyConnexion
objCommand.CommandText = "SELECT * FROM Saisies;"
objDataAdapter.SelectCommand = objCommand
objDataAdapter.SelectCommand.ExecuteNonQuery()
objDataAdapter.Fill(objDataSet)


MyConnexion.close()

@+
LIM

kamui74 · Answer

merci, mais &#231;a merde au niveau du UpdateCommand.ExecuteNonQuery. M&#234;me message d'erreur que dans ce que j'avais fait : "Erreur de Syntaxe dans l'instruction Update"... Avec un Try Catch &#231;a marche mieux pour voir les erreurs ...Oups !;)

@+

cs_lim · Answer

D&#233;sol&#233; mais j'ai pas access (je l'ai pas tester)

essaye d'enlever les ' avant et apr&#232;s 3 et la date. J'ai pas fais gaffe que c'&#233;tait ud num&#233;rique. l'habitude de travailler en chaine de caract&#232;re.

@+
LIM

cs_chris81 · Answer

sous access les dates c #Date()#

http://www.correzeweb.com
http://www.localetv.com

Oledb + vb.NET [URGENT]

5 réponses

Discussions similaires