Discussion :

[d4lvy]

Bonjour a tous,

Voila j'ai deja posté pour une aide sur access et maintenant que tout marche parfaitement, j'ai un probleme pour un affichage dans mon datagrid.

Je peux afficher les données de ma table dans mon datagrid au chargement du formulaire, mais quand j'utilise un textbox pour faire un affichage precis, j'ai a chaque fois des erreurs.

Chargement du formulaire (tout fonctionne) :

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
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cnn As New OleDbConnection   'Connexion à la base de données
        Dim cmd As New OleDbCommand    'Commande requête
        Dim drr As OleDbDataReader            'Jeu d'enregistrements
        Dim existenreg As Boolean
        'Connexion à la base de données annuaire sous ACCESS
        cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\archivesCD.mdb"
        cnn.Open()
        'Requête SQL
        cmd.CommandText = "SELECT * FROM Archivage"
        cmd.Connection = cnn
        'Exécution de la requête et récupération du résultat sous forme d'un jeu d'enregistrements dans drr
        drr = cmd.ExecuteReader()
        GrdArchive.ColumnCount = 6
        GrdArchive.Rows.Clear()
        existenreg = drr.Read    'Lecture du premier enregistrement
        While existenreg            'Parcours des enregistrements
            GrdArchive.Rows.Add(drr("ID"), drr("NumAffaire"), drr("Année"), drr("Client"), drr("NumCd"), drr("Observations"))   'Ajout de l'enregistrement dans le DataGridView
            existenreg = drr.Read   'Lecture de l'enregistrement suivant
        End While
        drr.Close()
        cnn.Close()
    End Sub

_______

Afficher le n° d'affaire tapé dans le textbox prevu a cet effet :

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
 Private Sub BtnAff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAff.Click
        Dim cnn As New OleDbConnection   'Connexion à la base de données
        Dim cmd As New OleDbCommand    'Commande requête
        Dim drr As OleDbDataReader            'Jeu d'enregistrements
        Dim existenreg As Boolean
        'Connexion à la base de données annuaire sous ACCESS
        cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\archivesCD.mdb"
        cnn.Open()
        'Requête SQL
        cmd.CommandText = "SELECT * FROM Archivage WHERE NumAffaire=" & TxtAff.Text & "'"
        cmd.Connection = cnn
        'Exécution de la requête et récupération du résultat sous forme d'un jeu d'enregistrements dans drr
        drr = cmd.ExecuteReader()
        GrdArchive.ColumnCount = 6
        existenreg = drr.Read    'Lecture du premier enregistrement
        While existenreg            'Parcours des enregistrements
            GrdArchive.Rows.Add(drr("NumAffaire"), drr("Année"), drr("Client"), drr("NumCd"), drr("Observations"))   'Ajout de l'enregistrement dans le DataGridView
            existenreg = drr.Read   'Lecture de l'enregistrement suivant
        End While
        drr.Close()
        cnn.Close()

____

la j'ai une erreur, j'ai fait un screen :



et j'ai a peu pres la meme erreur si je veux un n° de cd precis, une année precise, un client precis.
Je sens que sa vient de mon SELECT, mais je ne sais pas quoi tenter. Si vous avez une idée, je prends

Merci.

[rv26t]

Bonjour
Pense à la mise en forme du code avec la balise code, c'est plus simple pour lire.

Code :

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

  cmd.CommandText = "SELECT * FROM Archivage WHERE NumAffaire=" & TxtAff.Text & "'"

Tu as une cote après TxtAff.Text pas avant.
La présence de cote dépend du type de NumAffaire.

A+, Hervé.

[d4lvy]

je ne comprend pas bien, il faut que je note comme cela ?

Code :

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

cmd.CommandText = "SELECT * FROM Archivage WHERE NumAffaire="' & TxtAff.Text & ";"

[rv26t]

Si NumAffaire est numérique

Code :

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

cmd.CommandText = "SELECT * FROM Archivage WHERE NumAffaire=" & TxtAff.Text

Si NumAffaire est alphanumérique

Code :

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

cmd.CommandText = "SELECT * FROM Archivage WHERE NumAffaire='" & TxtAff.Text & "'"

[d4lvy]

Aucun des deux ne marche.

Dans Access, NumAffaire est en tant que texte.
Les numero d'affaires sont du style : 97A217.
Et pour les champs n'ayant pas de numero, j'ai rajouté "aucun numero" pour pas qu'il soit vide.

[Sankasssss]

Bonsoir,

on ne le répétera jamais assez, quand vous utilisez des valeurs qui ne sont pas fixe, donc qui proviennent de variable, ne concaténez pas les chaînes manuellement.
Utilisez plutôt les requêtes paramétrées qui sont faites pour cela :

Code :

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

1
2
3
        cmd.CommandText = "SELECT * FROM Archivage WHERE NumAffaire = ?"
        cmd.Parameters.Add("NumAffaire", System.Data.OleDb.OleDbType.VarChar)
        cmd.Parameters("NumAffaire").Value =  TxtAff.Text

Celle-ci vous protège des erreurs d'écriture de requête (pas besoins de mettre les quotte ') ainsi que des injections SQL (sécurité d'injection de code par l'interface)...

[d4lvy]

J'ai bien repris ces 3 lignes et quand j'appuie sur le bouton pour lancer ma recherche, il n'y a pas d'erreurs, mais il ne se passe rien non plus

pourtant mon datagrid est bien chargé au demarrage, donc pour une recherche plus precise, sa devrait fonctionner. L'erreur ne peut pas se trouver ailleurs que dans le SELECT non ?

[Sankasssss]

Etes-vous sûr que rien ne se passes?
Vous n'avez pas vider votre dataGrid donc les lignes se trouvent surement à la fin

[d4lvy]

En effet ça marche !! heureusement que vous etes la, je n'aurai pas pensé a verifier. Et pourtant sa m'arrivait souvent en cours.

Il me faut rajouter un GrdArchive.Rows.Clear() alors ?

[Sankasssss]

Ça semblerais logique

[Pol63]

dans le form_load sur un os x64 les erreurs sont "absorbées"
mets un try cath avec un point d'arret/msgbox dans le catch pour être sûr (de toute facon un accès à une bdd sans try catch n'est pas une bonne idée)

[d4lvy]

dans le form_load sur un os x64 les erreurs sont "absorbées"
mets un try cath avec un point d'arret/msgbox dans le catch pour être sûr (de toute facon un accès à une bdd sans try catch n'est pas une bonne idée)

J'ai jamais du voir ça pendant ma 1ere année de BTS, je pige absolument rien

J'ai rajouté la ligne pour vider mon datagrid et sa marche niquel. Je vais tenter de me debrouiller pour les autres champs. Il ne me restera ensuite plus qu'a rajouter une interface et un bouton pour pouvoir rajouter une nouvelle affaire a la base de donnée. En classe on faisait ça sur un deuxième formulaire en parralèle, mais peut on tout faire sur un seul ?

[Pol63]

je disais qu'il y a un bug de .net et un moyen pour intercepter les erreurs d'exécution ^^

[d4lvy]

Ah d'accord sa m'a pas l'air evident a coder.

Bon je savais que j'allais revenir pour mon bouton Ajouter, j'ai une dernière erreur sur executeNonQuery.

Voila le code (et cette fois je met les balises ) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub BtnAjout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAjout.Click
        Dim cnn As New OleDbConnection   'Connexion à la base de données
        Dim cmd As New OleDbCommand    'Commande requête
        'Connexion à la base de données annuaire sous ACCESS
        cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\archivesCD.mdb"
        cnn.Open()
        'Requête SQL
        cmd.CommandText = "INSERT INTO personne (NumAffaire, Année, Client, NumCd, Observations) VALUES ('" & TxtNewAff.Text & "','" & TxtAjoutAn.Text & "','" & TxtAjoutCli.Text & "','" & TxtAjoutCD.Text & "','" & TxtNewOb.Text & ")"
        cmd.Connection = cnn
        cmd.ExecuteNonQuery()
        GrdArchive.Rows.Add("", TxtNewAff.Text, TxtAjoutAn.Text, TxtAjoutCli.Text, TxtAjoutCD.Text, TxtNewOb.Text)
        cnn.Close()
    End Sub

le message d'erreur :

Erreur de syntaxe dans la chaîne dans l'expression '')

c'est une histoire de guillemet et de cote non ? c'est assez chiant ce genre d'erreur...

[Pol63]

il manque un quote avant la )

sinon il n'est pas conseillé de concaténer une requete avec des textbox, il faut mieux utiliser des requetes paramétrés

Code :

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

1
2
lecommand.commandtext = "INSERT ... VALUES ... (@machin, ..."
lecommand.parameters.add("@machin").value = texbtoxX.text

car si l'utilisateur utilise l'apostrophe ca va planter, et s'il est malin il peut hacker ta base de données en rentrant du code sql dans le textbox
(google a plus d'infos sur les DbParameters)

[d4lvy]

Merci pour l'absence de quote. Sa fonctionne tout parfaitement. (je regarderais peut etre l'autre solution cet apres midi) Par contre quand la nouvelle affaire est rentré dans la BDD, le champ de l'ID reste vide.

Comme sur Access il est en numero auto je me suis dit qu'il ne fallait rien faire et que sa se mettrait tout seul, a la suite

EDIT : probleme résolu, il fallait juste fermé l'application pour que la nouvelle affaire soit bien enregistré

[d4lvy]

Desolé du double post, ce probleme ci est resolu, mais en testant le bouton ajouter, j'ai rentré des informations "bidons", donc comme c'est pour une entreprise il faut que je rajoute un bouton supprimer

et vu que je sais a l'avance que je vais avoir des erreurs, ne mettez pas ce topic en résolu s'il vous plaït.

____

Après fermeture de Visual Basic et réouverture, l'affaire que j'avais ajouté a disparu, sans doute pas sauvegardé finalement. Comment faire pour qu'il reste en mémoire definitivement.

Mais j'ai quand meme fait mon code pour le futur bouton supp. Je vous le met, meme si je n'ai pas pu le tester :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub BtnSupp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSupp.Click
        Dim cnn As New OleDbConnection
        Dim cmd As New OleDbCommand
        Dim NumAff As Integer, ligsel As Integer
        ligsel = GrdArchive.CurrentRow.Index
        NumAff = GrdArchive.Item(0, ligsel).Value
        cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\archivesCD.mdb"
        cnn.Open()
        cmd.CommandText = "DELETE FROM Archivage WHERE ID=" & NumAff
        cmd.Connection = cnn
        cmd.ExecuteNonQuery()
        GrdArchive.Rows.RemoveAt(ligsel)
        cnn.Close()

[Pol63]

il n'y a que toi qui peut flagger résolu via le bouton en bas de cette page


concernant la base qui revient à son état initial, ca arrive à beaucoup de gens sur le forum qui utilisent les assistants de vb, si j'ai bien compris la base étant créée par vb serait recréé (donc à vide) à chaque compilation, auquel cas il suffirait de la déplacer (ne pas la mettre dans \bin\*)

[d4lvy]

Les modo ont du le faire a ma place quand ils ont vu que j'ai ecrit probleme résolu

J'ai fait une petite presentation de cette application a mon maïtre de stage, normalement c'etait mon projet de stage d'1 mois. Et du coup j'ai fini la 1ere semaine merci a vous pour l'aide.

Cependant mon maïtre de stage m'a demandé de peaufiné un peu. Au chargement du datagrid, j'avais listé par ordre d'ID mais mon maitre veut que je masque le champ ID et que je liste par n° de Cd. Ce que j'ai fait mais sa s'affiche plutot comme ça : 1, 11, 12, 13, 14, 15, 16, 17, 18, 19, 2, 21, 22 etc

et la deuxieme chose qu'il m'a demandé c'est pour afficher les affaires par Client. Par exemple quand on tape ALSTOM, sa affiche toutes les affaires qu'ils ont avec ALSTOM. Mais ils ont aussi des Client nommés ALSTOM-Belfort et donc il faut tout recopier sans faute dans le textbox pour que cela s'affiche.
Il faudrait qu'a la saisie d'ALSTOM, ils soient tous afficher (ALSTOM, ALSTOM-Belfort, ALSTOM-Creusot, etc...)

et sur ces 2 points je seche completement. Est ce au moins possible sur Vb ?

[Pol63]

si le numéro est une colonne string dans la base de données, le tri fait que "2" est inférieur à "11"
si ca sera toujours un numéro, change le type de la colonne, et le tri sera bon

pour alstom, il faut utiliser like
sous access : where colonne like 'alstom*'
* signifie rien ou tous caractères
ou éventuellement '*alstom*' si tu veux aussi ce qui contient alstom mais pas forcément au début du string