Discussion :

[GuixInDaMixx]

Bonjour à tous,

Je souhaite écrire le programme suivant :

Lorsque je clique sur un bouton, le programme ouvre une base de données Access 2007, lit une requête sql et affiche par des MsgBox successives chaque valeur des champs demandés par la requête.

J'ai donc produit le code suivant :

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
Private Sub Command6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command6.Click
 
        'Définition du pilote de connexion
        cnx.Provider = "Microsoft.ACE.OLEDB.12.0"
        'Définition de la chaîne de connexion
        cnx.ConnectionString = "H:\TX\[TX] IHM\Reverse_Engineering_Application.NET\Test.accdb"
        'Ouverture de la base de données
        cnx.Open()
 
        rst.Open("SELECT Test FROM Table_Test", cnx)
 
        'Affichage des valeurs du champ Test
        While Not (rst.EOF)
 
            MsgBox(rst("Test"))
 
            rst.MoveNext()
        End While
 
    End Sub

Il semblerait que le programme parvient à ouvrir la base mais malheureusement, j'obtient le message d'erreur suivant lors de l'affichage des MsgBox :

Une exception non gérée du type 'System.ArgumentException' s'est produite dans Microsoft.VisualBasic.dll

Informations supplémentaires*: L'argument 'Prompt' ne peut pas être converti en type 'String'.

Pouvez-me m'aider à résoudre ce problème ?

[Totanne]

Il te dit que les données que tu essayes de passer en titre de ta messageBox ne peuvent pas être converties en chaine de caractères.
Tu devrait essayer de caster avec Cstr ou peut être vérifier que tes données ne sont pas nulles ...

[tomlev]

C'est quoi cette variable "rst" ?
Je comprends pas trop ta méthode pour accéder à la base... ça n'a pas l'air d'être de l'ADO.NET en tous cas

[GuixInDaMixx]

Oups, désolé, j'ai oublié de préciser les déclarations de variables :

Code :

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

1
2
Dim cnx As New ADODB.Connection
Dim rst As New ADODB.Recordset

@ Totanne : merci du conseil, je vais tester cela.

@ tomlev : il me semble que si, à moins que je me trompes, je ne connais pas trop, peux-tu préciser ?

[tomlev]

Ah ok... c'est ADODB, pas ADO.NET
J'imagine que tu as récupéré ce code d'une appli en VB6 ? En .NET il y a une nouvelle architecture d'accès aux bases de données (ADO.NET), pour en savoir plus je t'invite à consulter les tutoriels :
http://dotnet.developpez.com/cours/?...bnet#sqlservvb

[GuixInDaMixx]

En fait c'est en fouillant sur le net que j'avais trouvé des infos sur ADODB, ça me semblait bien.
Je vais jeté un oeil à ton lien, merci

[GuixInDaMixx]

J'ai testé en castant mon champ rst("Test") avec cette modification :

Code :

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

MsgBox(CStr(rst("Test")))

Mais à nouveau, message d'erreur :

Une exception non gérée du type 'System.InvalidCastException' s'est produite dans Reverse_Engineering_Application.exe

Informations supplémentaires*: Impossible d'effectuer un cast d'un objet de type 'ADODB.InternalField' en type 'System.String'.

Une autre idée peut-être?

[GuixInDaMixx]

OK, j'ai résolu le problème ainsi :

Code :

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

MsgBox(rst("Test").Value)

Bonne soirée.