alias666
Messages postés308Date d'inscriptionmardi 1 juin 2004StatutMembreDernière intervention23 mars 2010
-
29 nov. 2004 à 16:04
alias666
Messages postés308Date d'inscriptionmardi 1 juin 2004StatutMembreDernière intervention23 mars 2010
-
30 nov. 2004 à 11:15
Salut j'ai un tit problème sur un Recordset apparement il y a un opérateur absent mais je ne vois rien d'anormal...
Private Sub btnRapport_Click()
Dim Rst As Recordset, Rst2 As Recordset, Rst3 As Recordset
Screen.MousePointer = vbHourglass
If cboProfil.ListIndex < 0 Then
MsgBox "Veuillez sélectionner un profil", vbInformation, "Information"
cboProfil.SetFocus
Else
If cboPc.ListIndex < 0 Then
MsgBox "Veuillez sélectionner un pc", vbInformation, "Information"
cboPc.SetFocus
Else
Db.Execute "DELETE * from Impression", dbOpenDynaset Set Rst Db.OpenRecordset("Select * From detailprofil Where Numprofil" & cboProfil.ItemData(cboProfil.ListIndex), dbOpenSnapshot)
While Not Rst.EOF Set Rst2 Db.OpenRecordset("Select * From tableimport Where libellé'" & cboPc.List(cboPc.ListIndex) & "' And Page='" & Rst!Page & "' And Group ='" & Rst!Group & "' And Item ='" & Rst!Item & "'", dbOpenDynaset)
If Not Rst2.EOF Then
End If
Rst2.Close
Rst.MoveNext
Wend
Rst.Close
End If
End If
Screen.MousePointer = vbDefault
End Sub
L'erreur se situe là:
Set Rst2 Db.OpenRecordset("Select * From tableimport Where libellé'" & cboPc.List(cboPc.ListIndex) & "' And Page='" & Rst!Page & "' And Group ='" & Rst!Group & "' And Item ='" & Rst!Item & "'", dbOpenDynaset)
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 29 nov. 2004 à 17:45
Est-ce que tout les champs sélectionnés sont de types texte ? Car pour du format numéraire, tu n'as pas besoin des quotes.
_______________________________________
DarK Sidious
[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer
alias666
Messages postés308Date d'inscriptionmardi 1 juin 2004StatutMembreDernière intervention23 mars 2010 29 nov. 2004 à 17:55
Ils sont tous de type texte. Sinon pour voir si c'est les quotes j'aurai bien remplacé par "chr(34)" mais je ne sais pas le faire je m'embrouille avec les " et les &. Tu pourrais pas m'aider???
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 200620 29 nov. 2004 à 21:08
Salut, l'une des valeurs que tu veux comparer ne contiendrait-elle pas un ' ou un " ? Par hasard.
Explication : tu constitues une chaine donc, si dans l'un de tes champs (cboPc.List(cboPc.ListIndex) par exemple) il y a un ' ou un ", ça peut poser problème.
alias666
Messages postés308Date d'inscriptionmardi 1 juin 2004StatutMembreDernière intervention23 mars 2010 30 nov. 2004 à 09:22
Non désolé cela vient pas de là. Cea vient du champs "Group" et donc je vois pas très bien mes champs dans ma base son bien à 255 caractères. Tout va bien sauf un tit truc qui me pose bien des problèmes malheuresement....
alias666
Messages postés308Date d'inscriptionmardi 1 juin 2004StatutMembreDernière intervention23 mars 2010 30 nov. 2004 à 09:48
Personne ne peut m'aider à remplacer les " ' " par chr(34) dans la requête SQL histoire de voir si cela ne vient pas des quotes tout simplement on sais jamais..