Requêtes paramétrées access vers visual basic express

Bonsoir tout le monde,

Je viens vers vous pour connaitre mes quelques erreurs sur la récupération de la chaine de connexion à la base de données Access sur Visual basic express.

Après quelques aides sur le chat. Je viens vers vous.

Voici mon code actuellement:

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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71

Imports System Imports System.Data Imports System.Data.OleDb Imports Microsoft.VisualBasic Imports System.Data.SqlClient   Public Class Form1   'les variables Dim Connection As New OleDbConnection Dim DtSet As New DataSet() Dim AdapTUSER As OleDbCommand Dim marequete As String Dim ole As OleDbCommand   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Matable As DataTable     DtSet.Tables.Clear() 'on parametre la chaine de connection pour la base de donnée testbdd.mdb Connection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=D:\BDD_test.accdb;"   'on ouvre la connection Connection.Open() If Connection.State = ConnectionState.Open Then Label1.Text = "connection ok" End If   'ma requete 'sql = "select Mois, CU_h, RDV, Pourcentage_Production, Prime from R_Altitude_Prod where Matricule Like '%" & TextBox1.Text & "' And Annee Like '%" & TextBox2.Text & "' " marequete = "select Mois, CU_h, RDV, Pourcentage_Production, Prime from R_Altitude_Prod where Matricule Like @param1 And Annee LIKE @param2"   With ole.Parameters .Add(New OleDbParameter("@param1", SqlDbType.Int, 4)) .Add(New OleDbParameter("@param2", SqlDbType.Int, 4)) End With   'definition du DataAdapter AdapTUSER = New OleDbCommand(marequete, Connection)     ' rempli le dataset AdapTUSER.Connection.Open() AdapTUSER.ExecuteNonQuery() AdapTUSER.Connection.Close   'on ferme la connection Connection.Close()   'ajoute un datagrid sur ta form et ce code va relier ta table USER au datagrid qui va t'afficher les donnée 'affichage des données dans le datagrid     Matable = DtSet.Tables("R_Altitude_Prod") With DataGrid1 'alimentation de matable .DataSource = Matable 'Ligne paire en blanc .RowsDefaultCellStyle.BackColor = Color.White 'ligne impaire en bleu claire .AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue 'Empeche la saisie dans les cellules .EditMode = DataGridViewEditMode.EditProgrammatically 'masquer l'entete de sélection .RowHeadersVisible = False   End With End Sub   End Class

---

J'ai un message me disant: "Mot clé non pris en charge : 'provider'."

Merci d'avance,

Vincent.

Hello,

Tu auras toutes les infos dont tu as besoin ici.

Bonjour Kropernic,

Merci pour ta réponse, mais maintenant j'ai une erreur pour parameters:

Code:

---

1 2 3 4 5

With ole.Parameters .Add(New OleDbParameter("@param1", SqlDbType.Int, 4)) .Add(New OleDbParameter("@param2", SqlDbType.Int, 4)) End with

---

Merci d'avance,

Cordialement,

Vincent

C'est bien, ça veut dire qu'on progresse :)


Par contre, sans le message d'erreur, ça va être compliqué.

Pense à TOUJOURS donné le message d'erreur que tu reçois quand tu viens demander de l'aide.

Bonjour,

Citation:

---

Envoyé par vins86

mais maintenant j'ai une erreur pour parameters:

Code:

---

1 2 3 4 5

With ole.Parameters .Add(New OleDbParameter("@param1", SqlDbType.Int, 4)) .Add(New OleDbParameter("@param2", SqlDbType.Int, 4)) End with

---

---

Ca c'est du copier/coller. :? (modifié pour moitié)
OleDbParameter=> access ; SqlDbType => SQLServer, il ne doit pas aimer le mélange :mouarf:

Ahah, bien vu Hervé ^^.

Perso sans message d'erreur, je ne n'avais pas été plus loin.

Sinon attention que pour access, les noms des paramètres ne sont pas pris en compte. C'est l'ordre de leur ajout dans l'objet command qui est important.

Bonjour et merci pour vos réponses.

J'avais même pas vu cette erreur. Pas bien..

Par contre je ne comprend pas:

les noms des paramètres ne sont pas pris en compte. C'est l'ordre de leur ajout dans l'objet command qui est important. .

Merci d'avance.

Cordialement,

Vincent

C'est quel mot que tu n'as pas compris ? Ma phrase me semble pourtant claire ^^

Tu peux mettre n'importe quel noms. Dans les add, access prendra le premier paramètre pour matricule (1er add) et le deuxième paramètre pour Annee (2ème ADD) puisqu'ils apparaîssent dans cet ordre dans la requête.

Merci rv26t et Kropernic

Du coup j'ai compris ce que tu voulais dire Kropernic.

Par contre, j'ai toujours une erreur pour cette partie:

Code:

---

1 2 3 4

With ole.Parameters .Add(New OleDbParameter("@?", OleDbType.Int, 4)) .Add(New OleDbParameter("@?", OleDbType.Int, 4)) End With

---

message d'erreur:

Code:

---

'int' n'est pas un membre de 'system.data.oledb.oledbtype'

---

J'ai essayer ceci:

Code:

---

1 2 3 4

With ole.Parameters .Add(New OleDbParameter("@?", OleDbType.Char)) .Add(New OleDbParameter("@?", OleDbType.Char)) End With

---

Et j'obtiens:

message d'erreur:

Code:

---

La référence d'objet n'est pas définie à une instance d'un objet pour ole.parameter

---

Merci d'avance.

Cordialement,

Vincent

Citation:

---

Envoyé par vins86

Code:

---

.Add(New OleDbParameter("@?", OleDbType.Int, 4))

---

---

8O Le Int tu l'as trouvé ou ? Ah oui, toujours le copié/collé :mrgreen: :aie:
L'intellisense propose OleDbType.Integer il faut comprendre à quoi correspondent les paramètres de la méthode et l'utilisation

Merci mais toujours la même erreur:

J'ai essayer ceci:



Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1234 With ole.Parameters
.Add(New OleDbParameter("@?", OleDbType.Char))
.Add(New OleDbParameter("@?", OleDbType.Char))
End With Et j'obtiens:

message d'erreur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

La référence d'objet n'est pas définie à une instance d'un objet pour ole.parameterMerci d'avance.

Cordialement,

Vincent

Arrête de jouer à l'apprenti sorcier en mettant du code au hasard et essaie de comprendre ce que tu fais ;)

As tu lu mon post précédant, je t'ai expliqué ;)

Citation:

---

Envoyé par rv26t

Ah oui, toujours le copié/collé :mrgreen: :aie:

---

dans tes paramètres

Citation:

---

Envoyé par vins86

OleDbType.Int

---

dans mes paramètres

Citation:

---

Envoyé par rv26t

OleDbType.Integer

---

Bonsoir, Kropernic, rv26t,

Je viens de me rendre compte que je me suis tromper dans le collage de mon code.
*
Actuellement, j'ai ceci:

Code:

---

1 2 3 4

With ole.Parameters .Add(New OleDbParameter("@?", OleDbType.Integer, 4)) .Add(New OleDbParameter("@?", OleDbType.Integer, 4)) End With

---

Mais j'ai bien ce message d'erreur:

Code:

---

1 2 3 4

L'exception System.NullReferenceException n'a pas été gérée La référence d'objet n'est pas définie à une instance d'un objet.

---

Cordialement,

Vincent.

J'avais pas regardé le message vu que la syntaxe était fausse

Citation:

---

Envoyé par vins86

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Class Form1   'les variables '... Dim ole As OleDbCommand   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Matable As DataTable   '... With ole.Parameters '...

---

---

Logique, tu ne l'as pas instancié

Et comment faut-il faire pour l'instancié?

Merci d'avance.

Cordialement,

Vincent.

Hello,

Pour créer une instance d'une classe, il faut utiliser le mot-clef "new".

Cela étant dit et à voir les questions que tu poses, je crois que cela serait vraiment bien que tu prennes le temps de lire un cours sur le langage et la programmation en générale.

Il y en a un très très très bien en post-it sur ce forum.

Cela va p-e te paraître une perte de temps mais crois moi, au final, tu seras plus que gagnant.

Bonjour Kropernic,

Merci pour l'information.

Donc si j'ai bien compris, pour créer une instance de la classe il faut que je fasse

Code:

---

Dim ole As new OleDbCommand

---

Je vais lire des cours. Pour apprendre les bases.

Cordialement,

Vincent.

Tu as bien compris.

Bonsoir,

Pour cela plus de problème, sauf un autre problème. C'est que @? ne fait plus référence à mes 2 textbox.

Comment mettre les variables de mes 2 textbox svp?

Cordialement,

Vincent

Ben si tu regardes tout le fil de cette discussion tu ne les avais jamais mis.

Code:

---

1 2 3 4 5

marequete = "select Mois, CU_h, RDV, Pourcentage_Production, Prime from R_Altitude_Prod where Matricule Like ? And Annee LIKE ?" With ole.Parameters .Add(New OleDbParameter("?", OleDbType.Integer, 4)).value = Integer.Parse(txtMatricule.text) ' correspond au parametre Matricule Like ? .Add(New OleDbParameter("?", OleDbType.Integer, 4)).value = Integer.Parse(txtAnnee.text) ' correspond au parametre Annee LIKE ? End With

---

met bien les ? comme présenté dans la requête.

Bonsoir,

Merci pour tes réponses et pour toute la patience de chacun d'entre vous.

Mais j'ai une erreur sur "AdapTUSER.ExecuteNonQuery()"

Le message est " Aucune valeur donnée pour un ou plusieurs des paramètres requis."

Pourtant j'ai bien ces données dans la bdd.

Voici le code actuel:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

marequete = "select Mois, CU_h, RDV, Pourcentage_Production, Prime from R_Altitude_Prod where Matricule Like ? And Annee LIKE ?"   With ole.Parameters .Add(New OleDbParameter("?", OleDbType.Char, 4)).Value = Split(TextBox1.Text) ' correspond au parametre Matricule Like ? .Add(New OleDbParameter("?", OleDbType.Char, 4)).Value = Split(TextBox2.Text) ' correspond au parametre Annee LIKE ?   End With   'definition du DataAdapter AdapTUSER = New OleDbCommand(marequete, Connection)     ' rempli le dataset AdapTUSER.Connection.Open() AdapTUSER.ExecuteNonQuery() AdapTUSER.Connection.Close()

---

Cordialement,

Vincent.

J'ai été inattentif (désolé, je passe parfois rapidement en revu le sujet), avec le like il faut mettre le joker % de chaque coté pour la recherche (suivant l'année d'access ce joker peut être différent, mais je ne me souviens plus des conditions, il ya un sujet dessus en recherchant on doit pouvoir le retrouver)

Code:

---

1 2 3 4 5

marequete = "select Mois, CU_h, RDV, Pourcentage_Production, Prime from R_Altitude_Prod where Matricule Like ? And Annee LIKE ?" With ole.Parameters .Add(New OleDbParameter("?", OleDbType.VarChar, 4)).value = "%" & Me.txtMatricule.Text & "%" ' correspond au parametre Matricule Like ? .Add(New OleDbParameter("?", OleDbType.VarChar, 4)).value = "%" & Me.txtAnnee.Text & "%" ' correspond au parametre Annee LIKE ? End With

---

.

Mais pour revenir à l'erreur

Citation:

---

Envoyé par vins86

Mais j'ai une erreur sur "AdapTUSER.ExecuteNonQuery()"

Le message est " Aucune valeur donnée pour un ou plusieurs des paramètres requis."

Pourtant j'ai bien ces données dans la bdd.

Voici le code actuel:

Code:

---

1 2 3 4 5 6 7

With ole.Parameters .Add(New OleDbParameter("?", OleDbType.Char, 4)).Value = Split(TextBox1.Text) ' correspond au parametre Matricule Like ? .Add(New OleDbParameter("?", OleDbType.Char, 4)).Value = Split(TextBox2.Text) ' correspond au parametre Annee LIKE ? End With   'definition du DataAdapter AdapTUSER = New OleDbCommand(marequete, Connection)

---

---

C'est normal "ole" et "AdapTUSER" n'ont rien à voir. (et le split ?)
Essaye de comprendre ce que tu fais, quelle est la logique d'enchaînement des opérations. Et pourquoi tu as ce message (très explicite)

[Edit]Bon j'ai revu la discussion
Regarde ton premier post, à quoi sert AdapTUSER.ExecuteNonQuery() ?
Que veux-tu faire ? une interrogation ou une mise à jour ?
A mon avis tu devrais relire un tuto pour éclaircir le fonctionnement.

Bonsoir,

Merci pour les réponses.

Ce que je souhaite. C'est pour lire une base de données.

J'ai toujours une erreur pour executenonquery()

J'ai essayé de comprendre d'où cela vient.

Je remet le code:

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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

Imports System Imports System.Data Imports System.Data.OleDb Imports Microsoft.VisualBasic Imports System.Data.SqlClient   Public Class Form1   'les variables Dim Connection As New OleDbConnection Dim DtSet As New DataSet() Dim AdapTUSER As OleDbCommand Dim marequete As String Dim ole As New OleDbCommand 'Dim parameter As OleDbParameter     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Matable As DataTable     DtSet.Tables.Clear()   'on parametre la chaine de connection pour la base de donnée testbdd.mdb Connection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=D:\BDD_test.accdb;"   'ma requete 'sql = "select Mois, CU_h, RDV, Pourcentage_Production, Prime from R_Altitude_Prod where Matricule Like '%" & TextBox1.Text & "' And Annee Like '%" & TextBox2.Text & "' " marequete = "select Mois, CU_h, RDV, Pourcentage_Production, Prime from R_Altitude_Prod where Matricule Like ? And Annee LIKE ?" With ole.Parameters .Add(New OleDbParameter("?", OleDbType.VarChar, 4)).Value = "%" & Me.TextBox1.Text & "%" ' correspond au parametre Matricule Like ? .Add(New OleDbParameter("?", OleDbType.VarChar, 4)).Value = "%" & Me.TextBox2.Text & "%" ' correspond au parametre Annee LIKE ? End With   'definition du DataAdapter AdapTUSER = New OleDbCommand(marequete, Connection)     ' rempli le dataset AdapTUSER.Connection.Open() AdapTUSER.ExecuteNonQuery() AdapTUSER.Connection.Close()   'on ferme la connection Connection.Close()   'ajoute un datagrid sur ta form et ce code va relier ta table USER au datagrid qui va t'afficher les donnée 'affichage des données dans le datagrid     Matable = DtSet.Tables("R_Altitude_Prod") With DataGrid1 'alimentation de matable .DataSource = Matable 'Ligne paire en blanc .RowsDefaultCellStyle.BackColor = Color.White 'ligne impaire en bleu claire .AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue 'Empeche la saisie dans les cellules .EditMode = DataGridViewEditMode.EditProgrammatically 'masquer l'entete de sélection .RowHeadersVisible = False   End With   End Sub   End Class

---

Cordialement,

Vincent.

Citation:

---

Envoyé par rv26t

C'est normal "ole" et "AdapTUSER" n'ont rien à voir.
Essaye de comprendre ce que tu fais, quelle est la logique d'enchaînement des opérations. Et pourquoi tu as ce message (très explicite)

---

Réfléchi pourquoi.

Citation:

---

Envoyé par rv26t

à quoi sert AdapTUSER.ExecuteNonQuery() ?

---

Vois aussi ce point

Ensuite même si tu corriges les deux points au dessus, tu ne fais rien de AdapTUSER.

Quel est le lien avec la fin du code ?
Reprend un tuto parceque la tu ne sais absolument pas ce qui se passe et c'est pour cela que tu n'avances pas.

Résumons

Citation:

---

Envoyé par rv26t

C'est normal "ole" et "AdapTUSER" n'ont rien à voir.

---

Tu as créé 2 variables indépendante, dans une tu mets les paramètres, dans l'autre la requête et la commande d'exécution.
Ce sont 2 variables indépendante qui ne se connaissent pas.

Citation:

---

Envoyé par rv26t

à quoi sert AdapTUSER.ExecuteNonQuery() ?

---

Réponse : à faire un update, un insert ou un delete.

Citation:

---

Envoyé par vins86

Le message est " Aucune valeur donnée pour un ou plusieurs des paramètres requis."

---

Vérifie les noms des colonnes dans ta base de données avec ceux de ta requête.


Exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Public Sub LectureProd(ByVal Matricule As String, ByVal Annee As String) Try Using cnn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\data\Personnes\Personnes.accdb") Using cmd As New OleDb.OleDbCommand("select Mois, CU_h, RDV, Pourcentage_Production, Prime from Prod where Matricule like ? And [Annee] like ?", cnn) cmd.Parameters.Add(New OleDb.OleDbParameter("Matricule", OleDb.OleDbType.VarChar, 4)).Value = "%" & Matricule & "%" cmd.Parameters.Add(New OleDb.OleDbParameter("Annee", OleDb.OleDbType.VarChar, 4)).Value = "%" & Annee & "%" cnn.Open() Using dr As OleDb.OleDbDataReader = cmd.ExecuteReader() While dr.Read MessageBox.Show(String.Format(" Mois: {0} ; prime: {1} ; rdv: {2} ; % {3}", dr("mois"), dr("Prime"), dr("RDV"), dr("Pourcentage_Production"))) End While End Using End Using End Using Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub

---

J'ai "OleDb." parceque je n'ai pas fait l'imports
Les paramètres pourraient être rajouté ainsi

Code:

---

1 2	cmd.Parameters.AddWithValue("?", "%" & Matricule & "%") cmd.Parameters.AddWithValue("?", "%" & Annee & "%")

---

messagebox résultant

Bonsoir rv26t,

Merci beaucoup. Je commence à comprendre le principe. Tout est bien alimenté dans la datagrid.

Merci vraiment pour le temps passé et pour l'aide que vous m'avez apporté. En plus tout fonctionne parfaitement.

Cordialement,

Vincent.