[VB] - Requête SQL

Version imprimable

06/03/2007, 09h13
guiguikawa

[VB] - Requête SQL

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:

"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.

En complément voici ma fonction :

Code:

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:

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

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:

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

06/03/2007, 11h18
Le Pharaon

Citation:

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 :D
Fais un msgbox de ta requête pour voir s'il n'y a pas d'erreur de syntaxe.

Code:

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

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:

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

06/03/2007, 11h41
guiguikawa

sinon la synthaxe de la requête est impeccable ...
06/03/2007, 11h43
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")
06/03/2007, 11h53
guiguikawa

oui d'accord mais je suppose que ca revient strictement au même ...
06/03/2007, 13h14
Le Pharaon

Qu'est ce que tu as comme message d'erreur ? SGBD ?

Même si tu n'as pas d'erreur, tu passeras dans le message...

Il faut mettre un Exit Sub avant l'étiquette Erreur:

Code:

1
2
3
4
5
6
7
    ...
    cnx.ConnectionString = "DRIVER={FileMaker Pro};FILEDSN=" & App.Path & "\ff.dsn;PASSWORD=" & LireINI("main", "mdp")
    cnx.Open
    Exit Sub
Erreur:
    MsgBox "ADOManager.init:erreur" & vbCr & vbCr & Err.Description, vbCritical
    ...

06/03/2007, 13h31
guiguikawa

j'ai aucun message d'erreur c'est la requête "select count(*) ..." qui me renvoie toujours -1. C'est surement filemaker, sgbd complètement pourri qui fait ça. Enfin j'en sais rien mais ca commence sérieusement à me gaver.

C'est bizarre parce que c'est une requête toute bête! La preuve j'ai un insert qui marche et le select marche pas. Pour le insert j'utilise un objet command et pour le select j'utilise un dataset.
06/03/2007, 13h50
Le Pharaon

Citation:

j'ai aucun message d'erreur c'est la requête "select count(*) ..." qui me renvoie toujours -1.

Essaye d'ajouter les paramètres curseur et type de verrou au moment d'ouverture de la requête.

Code:

rs.Open nomRequete, nomConnexion, adOpenForwardOnly, adLockReadOnly
06/03/2007, 14h03
guiguikawa

ok bujuman j'essaie avec les paramètres dont tu parle. Et oui Alain je viens de voir ton message je savais pas que ca passait obligatoirement par erreur même s'il n'y en a pas. Ca m'arrange ca veut dire que j'ai pas d'erreur ! c'est donc seuelemtn cette requête qui marche pas..

Un count marche avec fileMaker ?

Vraiment merci à vous en tout cas :king:
06/03/2007, 14h05
guiguikawa

ça ne change rien avec les paramètres que tu m'a dit ... satané requête !!!
06/03/2007, 14h22
Le Pharaon

J'ai complètement pélanger les médales.

Code:

rs.Open nomRequete, nomConnexion, adOpenKeyset, adLockReadOnly

adOpenKeyset au lieu de adOpenForwardOnly
06/03/2007, 14h33
guiguikawa

J'ai rajouté ce que tu m'a mis et j'ai eu un message d'erreur :

"ce pilote ODBC ne prends pas en charge les propriétés demandées"
06/03/2007, 14h52
guiguikawa

Une question :

J'ai mis des objet ADO. Cela suffit-il ou faut-il mettre aussi un concepteur dataEnvironment ou les objets ADO remplacent cet élément ?