InsertCommand avec DataAdapter.update

Version imprimable

Hello!
Code:

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 26 Try BDDDataSet = New DataSet() BDDConnection = New OleDbConnection() BDDConnection.ConnectionString = ParametreConnection Try BDDConnection.Open() Catch MsgBox("Vous devez ouvrir une Base de donnée Access avant toute opération.") End Try BDDCommand = New OleDbCommand("SELECT USER, MDP FROM Users") BDDDataAdapter = New OleDbDataAdapter(BDDCommand) BDDCommand.Connection() = BDDConnection BDDDataAdapter.Fill(BDDDataSet, "Users") BDDConnection.Close() Catch ex As Exception MsgBox("Erreur connection BDD: " & ex.Message) End Try BDDDataRow = BDDDataSet.Tables("Users").NewRow() BDDDataRow("USER") = System.Environment.UserName BDDDataRow("MDP") = TextBox1.Text BDDDataSet.Tables("Users").Rows.Add(BDDDataRow) BDDDataAdapter.Update(BDDDataSet, "Users") BDDConnection.Close()
Lorsque je rempli la textbox et que j'appuie qur le bouton qui declenche cette fonction, VS 2008 me retourne l'erreur suivante:

Citation:

L'exception System.InvalidOperationException n'a pas été gérée
Message="Update requiert un InsertCommand valide lors du passage de la collection DataRow avec de nouvelles lignes."
Source="System.Data"
StackTrace:
à System.Data.Common.DbDataAdapter.UpdatedRowStatusErrors(RowUpdatedEventArgs rowUpdatedEvent, BatchCommandInfo[] batchCommands, Int32 commandCount) à System.Data.Common.DbDataAdapter.UpdatedRowStatus(RowUpdatedEventArgs rowUpdatedEvent, BatchCommandInfo[] batchCommands, Int32 commandCount) à System.Data.Common.DbDataAdapter.Update(DataRow[] dataRows, DataTableMapping tableMapping) à System.Data.Common.DbDataAdapter.UpdateFromDataTable(DataTable dataTable, DataTableMapping tableMapping) à System.Data.Common.DbDataAdapter.Update(DataSet dataSet, String srcTable) à Apli_Vigneron.Form2.Button1_Click(Object sender, EventArgs e) dans C:\Users\Adrien\Documents\Visual Studio 2008\Projects\Apli_Vigneron\My Project\Form2.vb:ligne 36 à System.Windows.Forms.Control.OnClick(EventArgs e) à System.Windows.Forms.Button.OnClick(EventArgs e) à System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) à System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks) à System.Windows.Forms.Control.WndProc(Message& m) à System.Windows.Forms.ButtonBase.WndProc(Message& m) à System.Windows.Forms.Button.WndProc(Message& m) à System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) à System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) à System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) à System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg) à System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData) à System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context) à System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context) à System.Windows.Forms.Application.Run(ApplicationContext context) à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun() à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel() à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine) à Apli_Vigneron.My.MyApplication.Main(String[] Args) dans 17d14f5c-a337-4978-8281-53493378c1071.vb:ligne 81 à System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args) à System.AppDomain.nExecuteAssembly(Assembly assembly, String[] args) à System.Runtime.Hosting.ManifestRunner.Run(Boolean checkAptModel) à System.Runtime.Hosting.ManifestRunner.ExecuteAsAssembly() à System.Runtime.Hosting.ApplicationActivator.CreateInstance(ActivationContext activationContext, String[] activationCustomData) à System.Runtime.Hosting.ApplicationActivator.CreateInstance(ActivationContext activationContext) à Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssemblyDebugInZone() à System.Threading.ThreadHelper.ThreadStart_Context(Object state) à System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state) à System.Threading.ThreadHelper.ThreadStart()
InnerException:

C'est la première fois que je vois ce type d'erreur et j'ai demandé à plusieurs amis programmeurs, ils ne connaissent pas non plus.

Merki!

19/06/2008, 23h36
olsimare

Bonjour.

Apparemment, tu n'as pas mis de OleDbCommandBuilder sur ton OleDbDataAdapter.

Ca doit expliquer l'erreur.

Cdt.

ah oui merci ^^

Mais maintenant il me dit qu'il y'a une erreur sur la commande insert into.
Code:

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 Dim mdp1 As String Dim mdp2 As String InputBox("Veuillez confirmer que votre login Windows est " & System.Environment.UserName, "Login", System.Environment.UserName) ConnecDB("SELECT count(*) from users where user like'" & System.Environment.UserName & "'", "table") If BDDDataSet.Tables("table").Rows(0).Item(0).ToString() = 0 Then ConnecDB("SELECT USER, MDP FROM USERS", "Users") mdp1 = InputBox("Veuillez entrer un mot de passe.", "Mot de passe") mdp2 = InputBox("Veuillez confirmer votre mot de passe.", "Mot de passe") If mdp1 = mdp2 Then BDDDataRow = BDDDataSet.Tables("Users").NewRow() BDDDataRow("USER") = System.Environment.UserName BDDDataRow("MDP") = mdp1 BDDDataSet.Tables("Users").Rows.Add(BDDDataRow) Else : MsgBox("Les 2 mots de passe entrés ne correspondent pas, veuillez recommencer.", MsgBoxStyle.OkOnly, "Erreur") End If Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(BDDDataAdapter) builder.GetUpdateCommand() BDDDataAdapter.Update(BDDDataSet, "Users") BDDConnection.Close() End If
Citation:

L'exception System.Data.OleDb.OleDbException n'a pas été gérée
ErrorCode=-2147217900
Message="Erreur de syntaxe dans l'instruction INSERT INTO."
Source="Microsoft JET Database Engine"
StackTrace:
à System.Data.Common.DbDataAdapter.UpdatedRowStatusErrors(RowUpdatedEventArgs rowUpdatedEvent, BatchCommandInfo[] batchCommands, Int32 commandCount) à System.Data.Common.DbDataAdapter.UpdatedRowStatus(RowUpdatedEventArgs rowUpdatedEvent, BatchCommandInfo[] batchCommands, Int32 commandCount) à System.Data.Common.DbDataAdapter.Update(DataRow[] dataRows, DataTableMapping tableMapping) à System.Data.Common.DbDataAdapter.UpdateFromDataTable(DataTable dataTable, DataTableMapping tableMapping) à System.Data.Common.DbDataAdapter.Update(DataSet dataSet, String srcTable) à Apli_Vigneron.User.Button1_Click(Object sender, EventArgs e) dans C:\Users\Adrien\Documents\Visual Studio 2008\Projects\Apli_Vigneron\User.vb:ligne 43 à System.Windows.Forms.Control.OnClick(EventArgs e) à System.Windows.Forms.Button.OnClick(EventArgs e) à System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) à System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks) à System.Windows.Forms.Control.WndProc(Message& m) à System.Windows.Forms.ButtonBase.WndProc(Message& m) à System.Windows.Forms.Button.WndProc(Message& m) à System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) à System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) à System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) à System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg) à System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData) à System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context) à System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context) à System.Windows.Forms.Application.Run(ApplicationContext context) à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun() à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel() à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine) à Apli_Vigneron.My.MyApplication.Main(String[] Args) dans 17d14f5c-a337-4978-8281-53493378c1071.vb:ligne 81 à System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args) à System.AppDomain.nExecuteAssembly(Assembly assembly, String[] args) à System.Runtime.Hosting.ManifestRunner.Run(Boolean checkAptModel) à System.Runtime.Hosting.ManifestRunner.ExecuteAsAssembly() à System.Runtime.Hosting.ApplicationActivator.CreateInstance(ActivationContext activationContext, String[] activationCustomData) à System.Runtime.Hosting.ApplicationActivator.CreateInstance(ActivationContext activationContext) à Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssemblyDebugInZone() à System.Threading.ThreadHelper.ThreadStart_Context(Object state) à System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state) à System.Threading.ThreadHelper.ThreadStart()
InnerException:

20/06/2008, 14h06
Lefaucheux

si tu donne pas ta requête , ca va etre dur de te dépanner !:mrgreen:
22/06/2008, 12h24
a_ferre

bah la requête c'est pas moi qui la fait c'est BDDDataAdaptater.update qui s'en occupe...

sinon j'aurai changer la requête 8O
22/06/2008, 12h39
bidou

ca me surprendrait que le commandbuilder sache générer des requête action en partant d'un aggrégat
23/06/2008, 13h31
a_ferre

je parle de BDDDataAdaptater.update
24/06/2008, 00h00
olsimare

Bonjour.

Dans le nouveau code, je ne vois pas où tu positionnes la commande de sélection pour BDDDataAdapter.

C'est normal ?

Cdt.

en fait j'ai la fonction connecDB qui fait tout:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function ConnecDB(ByVal Requete As String, ByVal Nom_Table As String)
 
        Try
            BDDDataSet = New BDDDataSet()
            BDDConnection = New OleDbConnection()
            BDDConnection.ConnectionString = My.Settings.BDDConnectionString
            Try
                BDDConnection.Open()
            Catch
                MsgBox("Vous devez ouvrir une Base de donnée Access avant toute opération.")
            End Try
            BDDCommand = New OleDbCommand(Requete)
            BDDDataAdapter = New OleDbDataAdapter(BDDCommand)
            BDDCommand.Connection() = BDDConnection
            BDDDataAdapter.Fill(BDDDataSet, Nom_Table)
            BDDConnection.Close()
            Return BDDDataSet
 
        Catch ex As Exception
            MsgBox("Erreur connection BDD: " & ex.Message)
        End Try
 
    End Function

25/06/2008, 11h59
Lefaucheux

tu passes bien une requete en paramètre......elle est ou , cette requête ?

il manque pas avant le fill , un truc du style :

BDDDataAdapter.selectcommend = BDDCommand ?

(désolé d'insister.....:oops:)
25/06/2008, 17h27
a_ferre

bah j'sais pas comment le dire autrement:

BDDDataAdapter = New OleDbDataAdapter(BDDCommand)

et dans mon 2eme post

ConnecDB("SELECT count(*) from users where user like'" & System.Environment.UserName & "'", "table")
26/06/2008, 00h18
olsimare
Bonjour.

Un conseil, commence par mettre des option strict on et option explicit on, car quand je vois ça :
Code:

1 2 Function ConnecDB(ByVal Requete As String, ByVal Nom_Table As String)
(d'où qu'il est le as Dataset ?)

Je me dis que c'est peut être juste un probléme de portée de variable tout ça car jusque là je n'ai pas vu leur déclaration.

Cdt.