Discussion :

[guiguikawa]

Bonjour à tous,

J'ai une appli VB qui utilise une BD FileMaker pro 5.5. Mon souci est que la requête ci-après me retourne toujours quoi qu'il arrive "-1"

Code :

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

"select count(*) from " & TronqueFichier(LireINI(SectFile, "fichier")) & " where code_article=" & Chr(34) & "ME007" & Chr(34) & ""), cnx

Mes objets ADO fonctionnent car j'ai un insert qui fonctionne très bien. En loccurrence ici je dois faire un insert si et seulement si le numéro que je veux insérer n'existe pas déjà dans la base.

Ma requête ici est : "select count(*) from GT_Inventaire_BouteilleARI where code_article="ME007"

Dans ce cas elle devrait me retourner environ 1300. Pourquoi me retourne t-elle uniquement -1 ?

Merci d'avance pour votre soutien.

Guillaume.

[guiguikawa]

En complément voici ma fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function existeDDSIS(numDDSIS As String) As Boolean
    dsTmp.Open ("select count(*) from " & TronqueFichier(LireINI(SectFile, "fichier")) & " where code_article=" & Chr(34) & "ME007" & Chr(34) & ""), cnx
    MsgBox Trim$(" & Chr(34) & 'ME007' & Chr(34) & ")
    MsgBox Trim$(Str$(dsTmp.RecordCount))
    If dsTmp.RecordCount > 0 Then
        existeDDSIS = True
        dsTmp.Close
    Else
        existeDDSIS = False
        dsTmp.Close
    End If
End Function

Et voici l'interface :

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
23
24
25
26
27
Private Sub acquisition()
Dim ret() As String
    If fonction.SaisieArticle(TxtScan.Text, ret) Then
        If Not fonction.existeDDSIS(TxtScan.Text) Then
            Dim codeArticle As String
            Dim n°sdis As String
            Dim n°ddsis As String
            codeArticle = UCase$(Left$(TxtScan.Text, 5))
            n°sdis = Right$(TxtScan.Text, 4)
            n°ddsis = UCase$(TxtScan.Text)
            Call fonction.enregistreAcquisition(codeArticle, "test", n°ddsis)
            If fonction.existeDDSIS(TxtScan.Text) Then
                Call Beep(Ok)
                Lblmessage.Text = "Article ajouté dans la base !"
            Else
                Call Beep(erreur)
                Lblmessage.Text = "Une erreur est survenue ..."
            End If
        Else
            Call fonction.Beep(erreur)
            Lblmessage.Text = "Le numéro DDSIS : " & TxtScan.Text & " existe déjà dans la base de données !"
        End If
    Else
        Call fonction.Beep(erreur)
        Lblmessage.Text = "Le numéro DDSIS n'a pas un format valide !"
    End If
End Sub

[guiguikawa]

J'ai modifié ma fonction. Je viens de me rendre compte qu'elle génère une erreur je crois. Mais où est l'erreur ???

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
Public Function existeDDSIS(numDDSIS As String) As Boolean
    'Initialisation du RecordSet
    If dsTmp.State <> adStateClosed Then dsTmp.Close
    dsTmp.Open ("select count(code_article) from " & TronqueFichier(LireINI(SectFile, "fichier")) & " where code_article=" & Chr(34) & "ME007" & Chr(34) & ""), cnx
    On Error GoTo erreur
    If dsTmp.RecordCount > 0 Then
        existeDDSIS = True
        dsTmp.Close
    Else
        existeDDSIS = False
        dsTmp.Close
    End If
erreur:
    existeDDSIS = False
    MsgBox "ADOManager.existeDDSIS:erreur" & vbCr & vbCr & Err.Description, vbCritical
End Function

[Le Pharaon]

J'ai modifié ma fonction. Je viens de me rendre compte qu'elle génère une erreur je crois. Mais où est l'erreur ???

Je te repose la question
Fais un msgbox de ta requête pour voir s'il n'y a pas d'erreur de syntaxe.

Code :

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

 msgbox "select count(code_article) from " & TronqueFichier(LireINI(SectFile, "fichier")) & " where code_article=" & Chr(34) & "ME007" & Chr(34) & ""

[guiguikawa]

Je viens de voir en mettant des goto erreur partout que j'avais un autre problème dès le commencement. En effet j'ai une procédure init() qui fait ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub Init()
    On Error GoTo Erreur
    If cnx.State <> adStateClosed Then
        cnx.Close
    End If
    cnx.ConnectionString = "DRIVER={FileMaker Pro};FILEDSN=" & App.Path & "\ff.dsn;PASSWORD=" & LireINI("main", "mdp")
    cnx.Open
Erreur:
    MsgBox "ADOManager.init:erreur" & vbCr & vbCr & Err.Description, vbCritical
End Sub

Etant donné que j'ai le msgBox qui s'affiche, y'a un souci. Mais ça fait pas mal de temps que je suis dessus et je vois pas ou est le problème. En plus de cela, dans l'interface suivante, j'ai un insert qui passe très bien alors ma connexion est censé ne pas être ouverte puisque erreur comme je l'ai dit plus haut...

De l'aide !

Merci à toi en tout cas

[guiguikawa]

sinon la synthaxe de la requête est impeccable ...

[Le Pharaon]

Pourquoi appeler des fonctions dans la chaine de connexion ? Tu peux juste les récuprérer dans des variables pour rendre ton code plus lisible.

En faisant par exemple pour le mot de passe : pwd = LireINI("main", "mdp")