DataReader avec base de données Access

Bonjour, 

            j'ai un petit problème présentement avec ma requête SQL.  Je doit lire dans ma table tblMuscular le champ Muscular_Id.  Le type de donnée de ce champs est mis sur NuméroAuto.  Quand j'execute ma requête  SQL avec datareader. Ca ne veut pas s'executer.  Ce que je comprend en ce moment c'est que je passe une commande texte.  Quand je demande de lire dans le champs Muscular_Id, il voit que c'est un NuméroAuto (donc une valeur numérique entière).  Tandis que c'est une commande Texte de format String, il ne l'accepte pas. 

Il y a sûrement une solution à ce problème.  Voici mon code:

Dim strSQL As String

Dim strLigne1 As String

Dim strLigne2 As String

Dim strImaId As String

Dim intImaId As Integer

Dim Read As New IniReader(Application.StartupPath & "\ImaCount.txt")

Dim drExercicePic As OleDbDataReader

Dim cmdSelect As OleDbCommand = New OleDbCommand

' Lie dans le fichier ImaCount.txt la valeur de l'image qui a été

' sélectionné...

intImaId = Read.Read_Value("ID", "Image" & strImageId)

Read.Close()

' Met l'image sélectionné dans le picturebox...

picDetail.Image = picDblSelect.Image

Try

' Ouvre la connection de la base de donnée...

OpenConnexion()

strSQL = "SELECT Note, Note_Cust "

strSQL &= "FROM tblMuscular "

strSQL &= "WHERE Muscular_Id = '" & intImaId & "'"

With cmdSelect

.Connection = cnExercise

.CommandType = CommandType.Text

.CommandText = strSQL

drExercicePic = .ExecuteReader()

End With

' Print on the list box all the items founds...

Do While drExercicePic.Read()

strLigne1 = drExercicePic.GetString(0)

strLigne2 &= drExercicePic.GetString(1)

Loop

' Close the datareader, the connexion to the database,

drExercicePic.Close()

CloseConnexion()

Catch ex As Exception

' Print error message if we have a problem connection with

' database...

MessageBox.Show("Try to connect to the database", _

"Error Connection", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

si tu penses que c'est un probleme de type, retype ta variable
intIma.tostring ou CType (intIma, int)
mais vu ta requete, je doute que ton probleme vienne de la, puisque de toute façon c'est une chaine string ton strSql.

c'est quoi l'erreur que tu as?


dernière chose: un conseil sur le try catch
préfère un code du type:

maConn.Open
Try
'code sur la connection
Catch
'erreur lors de la connection
Finally
maconn.Close

c'est plus malin (et plus efficace) comme gestion d'erreur

Benouille la grenouille

Essaye d'écrire ta requète ainsi, peut être que ça vas marcher:

strSQL = "SELECT Note, Note_Cust "

strSQL &= "FROM tblMuscular "

strSQL &= "WHERE ((Muscular_Id) = '" &  intImaId  & "')"

Mad_kad, ca ne fonctionne pas.  Ma procédure passe immédiatement à la fonction catch (soit le message box). La procédure bloque sur ExecuteReader du data reader.
 
Auparavant, j'ai essayé de remplacé (après le WHERE de la requête), par un champs de la table qui était défini comme un champ texte.  Ma procédure fonctionnait.  Par contre, avec le champ Muscular_Id qui est défini comme un NuméroAutomatique.  ca ne fonctionne pas.

À propos, pourquoi les parenthèses ?

Merci Benouille pour le conseil du Try, Catch.