Discussion :

[robert_trudel]

salut

j'accède à une autre bd access via dao

ensuite je fais

Set rst = db.OpenRecordset("select prod_federation , prod_caisse, prod_guichet, prod_employe, prod_date_collecte, prod_heure_collecte, prod_heure_debut, prod_heure_fin, prod_nb_enveloppe, prod_num_poste, prod_date, prod_pause, prod_partage, prod_autre, prod_description from tbProductivite")

lorsque cette ligne est exécuté, je recois:

run-time error 13
type mismatch

une idée?

merci

[catoucat]

Qu'est-ce que ca donne quand tu demandes une requete deja definie ou un truc tout simple? genre

Code :

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

Set rst = db.OpenRecordset("SELECT * FROM TbProductivite;")

[LedZeppII]

Bonjour

db et rst sont bien déclarés comme ça ?

Code x :

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

Dim db As DAO.Database, rst As DAO.Recordset

[robert_trudel]

j'ai testé catoutcat.. mais j'obtenir le même problème

en effet LedZepII, j'avais pas mis dao devant le recordset... mais je l'avais fait pour la database....

ça fonctionne mais pourquoi j'ai run-time error 3061
too few parameters. expected 1.

Code :

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

1
2
3
4
5
6
 
CurrentDb.Execute "insert into tbProductivite(prod_federation, " & _
" prod_caisse, prod_guichet, prod_employe, prod_date_collecte, " & _
" prod_heure_collecte, prod_heure_debut, prod_heure_fin," & _
" prod_nb_enveloppe, prod_num_poste, prod_date, prod_pause, prod_partage, prod_autre, prod_description) " & _
" values(" & rst.Fields(0).Value & ", " & rst.Fields(1).Value & "," & rst.Fields(2).Value & "," & rst.Fields(3).Value & "," & rst.Fields(4).Value & "," & "'" & rst.Fields(5).Value & "'" & "," & "'" & rst.Fields(6).Value & "'" & "," & "'" & rst.Fields(7).Value & "'" & ", " & rst.Fields(8).Value & "," & rst.Fields(9).Value & "," & rst.Fields(10).Value & ", " & "'" & rst.Fields(11).Value & "'" & ", " & rst.Fields(12).Value & ", " & rst.Fields(13).Value & ", " & rst.Fields(14).Value & ")"

[catoucat]

Il ne manque pas un point virgule a la fin? Sinon tu as teste de retourner toute la chaine pour voir s'il arrive a tout interpreter?

Code :

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

1
2
3
4
5
MsgBox "insert into tbProductivite(prod_federation, " & _
" prod_caisse, prod_guichet, prod_employe, prod_date_collecte, " & _
" prod_heure_collecte, prod_heure_debut, prod_heure_fin," & _
" prod_nb_enveloppe, prod_num_poste, prod_date, prod_pause, prod_partage, prod_autre, prod_description) " & _
" values(" & rst.Fields(0).Value & ", " & rst.Fields(1).Value & "," & rst.Fields(2).Value & "," & rst.Fields(3).Value & "," & rst.Fields(4).Value & "," & "'" & rst.Fields(5).Value & "'" & "," & "'" & rst.Fields(6).Value & "'" & "," & "'" & rst.Fields(7).Value & "'" & ", " & rst.Fields(8).Value & "," & rst.Fields(9).Value & "," & rst.Fields(10).Value & ", " & "'" & rst.Fields(11).Value & "'" & ", " & rst.Fields(12).Value & ", " & rst.Fields(13).Value & ", " & rst.Fields(14).Value & ");"

[robert_trudel]

Il ne manque pas un point virgule a la fin? Sinon tu as teste de retourner toute la chaine pour voir s'il arrive a tout interpreter?

Code :

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

1
2
3
4
5
MsgBox "insert into tbProductivite(prod_federation, " & _
" prod_caisse, prod_guichet, prod_employe, prod_date_collecte, " & _
" prod_heure_collecte, prod_heure_debut, prod_heure_fin," & _
" prod_nb_enveloppe, prod_num_poste, prod_date, prod_pause, prod_partage, prod_autre, prod_description) " & _
" values(" & rst.Fields(0).Value & ", " & rst.Fields(1).Value & "," & rst.Fields(2).Value & "," & rst.Fields(3).Value & "," & rst.Fields(4).Value & "," & "'" & rst.Fields(5).Value & "'" & "," & "'" & rst.Fields(6).Value & "'" & "," & "'" & rst.Fields(7).Value & "'" & ", " & rst.Fields(8).Value & "," & rst.Fields(9).Value & "," & rst.Fields(10).Value & ", " & "'" & rst.Fields(11).Value & "'" & ", " & rst.Fields(12).Value & ", " & rst.Fields(13).Value & ", " & rst.Fields(14).Value & ");"

quand je l'affiche, tous semble ok

Code :

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

1
2
3
4
5
6
 
 MsgBox "insert into tbProductivite(prod_federation, " & _
                " prod_caisse, prod_guichet, prod_employe, prod_date_collecte, " & _
                " prod_heure_collecte, prod_heure_debut, prod_heure_fin," & _
                " prod_nb_enveloppe, prod_num_poste, prod_date, prod_pause, prod_partage, prod_autre, prod_description, prod_TypeGuichet) " & _
                " values(" & rst.Fields(0).Value & ", " & rst.Fields(1).Value & "," & rst.Fields(2).Value & "," & rst.Fields(3).Value & "," & "'" & rst.Fields(4).Value & "'" & "," & "'" & rst.Fields(5).Value & "'" & "," & "'" & rst.Fields(6).Value & "'" & "," & "'" & rst.Fields(7).Value & "'" & ", " & rst.Fields(8).Value & "," & rst.Fields(9).Value & "," & "'" & rst.Fields(10).Value & "'" & ", " & "'" & rst.Fields(11).Value & "'" & ", " & rst.Fields(12).Value & ", " & rst.Fields(13).Value & ", " & rst.Fields(14).Value & ", " & rst.Fields(14).Value & ");"

et toujours le même message

ces champs sont de type string
prod_federation
prod_caisse
prod_guichet
prod_employe
prod_description

ces champs sont de type date/time
prod_date_collecte
prod_heure_collecte
prod_heure_debut
prod_heure_fin
prod_date
prod_pause

ces champ sont de type number
prod_nb_enveloppe
prod_num_poste
prod_partage
prod_autre

Code :

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

1
2
3
4
5
6
 
CurrentDb.Execute "insert into tbProductivite(prod_federation, " & _
                " prod_caisse, prod_guichet, prod_employe, prod_date_collecte, " & _
                " prod_heure_collecte, prod_heure_debut, prod_heure_fin," & _
                " prod_nb_enveloppe, prod_num_poste, prod_date, prod_pause, prod_partage, prod_autre, prod_description, prod_TypeGuichet) " & _
                " values(" & rst.Fields(0).Value & ", " & rst.Fields(1).Value & "," & rst.Fields(2).Value & "," & rst.Fields(3).Value & "," & "'" & rst.Fields(4).Value & "'" & "," & "'" & rst.Fields(5).Value & "'" & "," & "'" & rst.Fields(6).Value & "'" & "," & "'" & rst.Fields(7).Value & "'" & ", " & rst.Fields(8).Value & "," & rst.Fields(9).Value & "," & "'" & rst.Fields(10).Value & "'" & ", " & "'" & rst.Fields(11).Value & "'" & ", " & rst.Fields(12).Value & ", " & rst.Fields(13).Value & ", " & rst.Fields(14).Value & ", " & rst.Fields(15).Value & ");"

[robert_trudel]

avec ça semble corriger le problème

Code :

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

1
2
3
4
5
6
 
CurrentDb.Execute "insert into tbProductivite(prod_federation, " & _
                " prod_caisse, prod_guichet, prod_employe, prod_date_collecte, " & _
                " prod_heure_collecte, prod_heure_debut, prod_heure_fin," & _
                " prod_nb_enveloppe, prod_num_poste, prod_date, prod_pause, prod_partage, prod_autre, prod_description, prod_TypeGuichet) " & _
                " values(" & rst.Fields(0).Value & ", " & rst.Fields(1).Value & "," & rst.Fields(2).Value & "," & rst.Fields(3).Value & "," & "'" & rst.Fields(4).Value & "'" & "," & "'" & rst.Fields(5).Value & "'" & "," & "'" & rst.Fields(6).Value & "'" & "," & "'" & rst.Fields(7).Value & "'" & ", " & rst.Fields(8).Value & "," & rst.Fields(9).Value & "," & "'" & rst.Fields(10).Value & "'" & ", " & "'" & rst.Fields(11).Value & "'" & ", " & rst.Fields(12).Value & ", " & rst.Fields(13).Value & ", " & "'" & rst.Fields(14).Value & "'" & ", " & rst.Fields(15).Value & ");"