Discussion :

[Bertr@nd]

Bonjour à tous !!
J'ai un petit souci : le résultat de la requête est le suivant : 'Erreur d'exécution '13' Type incompatible'

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
Private Sub Form_Load()
Dim req As Integer
Dim rstpret As New Recordset
Dim NumM As Integer
Dim code As Integer
 
code = frmretour.lstretour.ItemData(frmretour.lstretour.ListIndex)
NumM = frmretour.cbomembre.ItemData(frmretour.cbomembre.ListIndex)
 
req = " SELECT * FROM Pret WHERE Code= " & code & " AND NumM = " & NumM & ""
rstpret.Open req, Cnx
Do While Not rstpret.EOF
    If IsNull(rstpret("DateRetour")) Then
        txtnom.Text = frmretour.cbomembre.Text
        txtdate.Text = rstpret("DateEmprunt")
        txtduree = CDate(Date) - rstpret("DateEmprunt")
    End If
    rstpret.MoveNext
Loop
 
rstpret.Close
End Sub

Dans ma table Prêt, NumM et Code sont de type Numérique entier.

Je précise que que les noms des variables et de la table sont corrects (respect des majuscules...).
Je dois avouer que je ne sais pas pquoi

Merci d'avance

[jmfmarques]

code = frmretour.lstretour.ItemData(frmretour.lstretour.ListIndex)
NumM = frmretour.cbomembre.ItemData(frmretour.cbomembre.ListIndex)

Dans ta table, oui, mais là ?

[Mr NGANZI]

Code :

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

req = " SELECT * FROM Pret WHERE Code= " & code & " AND NumM = " & NumM & ""

ça veut dire que req est du type String!
et puis je trouve ton code un peu touffu.
je t'en propose un autre tout à l'heure

Édité par zazaraignée

[Mr NGANZI]

Code :

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

Dim req As Integer

mets plutot

Code :

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

Dim req As String

Édité par zazaraignée

[Mr NGANZI]

si ça ne marche pas explique moi ce que ton code doit faire et je vais essayer de le faire à ma manière.

[Bertr@nd]

je suis un abruti ...c'était évidemment le type qui n'allait pas...
dsl pour le dérangement ^^

POur l'aspect touffu , j'ai fait du copier/coller , il n'a pas pris l'indentation des lignes de code et j'ai enlevé tous les commentaires...

Merci encore

[Bertr@nd]

tant que j'y suis....
j'ai un autre problème...
j'exécute soi cette requête :
auj étant la date du jour

Code :

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

req2 = "insert into OBJET values(" & code & ", '" & txttitre.Text & "',#" & auj & "#, " & original & "," & fr & ", " & donneur & "," & CodeSup & "," & CodeLang & ")"

soi celle-ci :

Code :

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

req2 = "insert into OBJET (Code, Titre, DateEntree, Original, Fr, NumM, CodeSup) values (" & code & ", '" & txttitre.Text & "', #" & auj & "#, " & original & ", " & fr & ", " & donneur & "," & CodeSup & ")"

Dans les 2 cas, le message d'erreur est :
"Aucune valeur donnée pour un ou plusieurs des paramètres requis."

J'utilise une simple base Access.
pareil...je ne vois pas pquoi...

[Mr NGANZI]

essaie plutot ça

Code :

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

req2 = "insert into OBJET values(" & code & ", '" & txttitre.Text & "'," & chr(35) & auj & chr(35) & " , " & original & "," & fr & ", " & donneur & "," & CodeSup & "," & CodeLang & ")"

si tes types sont bien déclarés ça devarait marcher.
je te suis....

Édité par zazaraignée

[Bertr@nd]

non , toujours le même message...

[MGD_Software]

Le problème n'est pas un problème de syntaxe ou de présentation de valeur, mais une ABSENCE de données : l'un des paramètres est vide.

On ne sait pas ce que représentent les variables donneur, codesup, etc. D'après le texte de la requête, ce sont des valeurs numériques.

Or si dans le code elles n'ont pas explicitement été déclarées comme telle par un Dim ... As integer (par exemple), leur valeur par défaut est une chaine vide. Idem si ce sont les contenus de textbox par exemple.

Dans ce cas, la requete INSERT va envoyer la clause VALEURS avec certaines chaines vides, ce qui est interdit. Par exemple, si le troisième paramètre est un variant et qu'il n'a pas été initialisé, on aura :

Code :

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

... VALEURS ('ABC', 12, , 23)

Si on ne veut pas remplir une valeur de champ numérique, il faut mettre Null à la place. Dans l'exemple précédent cela donnerait

Code :

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

... VALEURS ('ABC', 12, Null, 23)

Attention, pas de guillemets autour de Null.

De même, par défaut Access n'accepte pas les chaines vides dans les champs texte. Il est donc nécessaire de tester la valeur de la chaine avant d'écrire la requête. Exemple:

Code :

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

 sReq = "INSERT INTO Table VALUES (" & Iif(sVar = "", "Null", "'" & sVar & "'") & ")"

Si sVar est vide, on aura :
INSERT INTO Table VALUES (Null)
sinon on aura :
INSERT INTO Table VALUES ('Valeur de sVar')

J'espère avoir été clair... Un conseil : en cas de difficulté, mettre un point d'arrêt sur la ligne Rs.Open..., et lors de l'arrêt aller dans la fenêtre de debogage et taper Print req2. La plupart du temps, la lecture du texte de la requête suffit à trouver le problème.

[KrusK]

Tu as aussi une autre solution : tu précises les colonnes qui contiennent des données

Code :

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

1
2
INSERT INTO table1 (col1, col2, col3)
VALUES (val1, val2, val3)