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:
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
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
 
 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)
Merci d'avance