Bonjour,
Lors de l'exécution de mon application,elle bloque et affiche sans arrêt le message d'erreur suivant:
"Aucune valeur donnée pour un ou plusieurs des paramètres requis"
mais je ne trouve pas c'est où l'erreur,je mets mon code de connexion et d'insertion de données dans la base que j'ai mis dans un module:
et voici une requête appelant cette fonction:
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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45 Dim MyConnection As New System.Data.OleDb.OleDbConnection() 'procédure de connection a une bd access Public Sub connection() Try If MyConnection.State = ConnectionState.Open Then MyConnection.Close() End If MyConnection.Close() MyConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source='C:\Users\admin\Desktop\mybase.mdb'" MyConnection.Open() Catch ex As Exception MessageBox.Show("Impossible d'établir la connection à la base." & ex.Message) End Try End Sub 'deconenction de la base Public Sub deconnection() Try MyConnection.Close() Catch ex As Exception MessageBox.Show("Impossible d'établir la connection à la base." & ex.Message) End Try End Sub Public Function access(ByVal requetesql As String) As DataSet Dim MyAdapter As OleDbDataAdapter = New OleDbDataAdapter() Dim MyDataSet As DataSet = New DataSet ' Dim StrConnect As String Dim MyCommand As OleDbCommand ' Dim requete As String connection() Try MyCommand = New OleDbCommand(requetesql, MyConnection) MyAdapter.SelectCommand = MyCommand MyDataSet.Clear() MyAdapter.Fill(MyDataSet) 'A ce niveau les donnes résultantes de la requete 'se trouvent dans => MyDataSet.Tables(0) Catch ex As Exception MessageBox.Show("Impossible d'établir la connection à la base." & ex.Message) End Try Return MyDataSet deconnection() End Function
Merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Dim req As String Dim tmp As Long = GetTickCount() - TInit Dim evnmt As String = vb.Left(evt, 79) Dim gps As String = RichTextBox4.Text req = "INSERT INTO evenement_MS(heure,[time],nombre,durée,typ,evenement, GPS,COM,Tinit,CLI) VALUES(now,tmp,0,0,'AT',evnmt,gps,PortGSM,TInit,Clip)" 'Dim MonDs as new Dataset 'MonDs = access(req)
Partager