Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Dbase III et requete

6 réponses
Avatar
David
Bonjour,

Sous VB6, si je suis arrivé facilement à afficher
ma base DBase III dans une MSFlexGrid
grâce à Data1, je ne trouve pas la syntaxe
pour effectuer une requête(SQL ?) pour afficher
dans la MSFlexGrid des "lignes" recherchées.

Je suis sûrement dérouté car jusqu'à présent
je n'ai fait des applications qu'avec des SQL d'Access
(sous VB6).

Merci pour vos réponse.

--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.

6 réponses

Avatar
Jean-marc
David wrote:
Bonjour,

Sous VB6, si je suis arrivé facilement à afficher
ma base DBase III dans une MSFlexGrid
grâce à Data1, je ne trouve pas la syntaxe
pour effectuer une requête(SQL ?) pour afficher
dans la MSFlexGrid des "lignes" recherchées.

Je suis sûrement dérouté car jusqu'à présent
je n'ai fait des applications qu'avec des SQL d'Access
(sous VB6).



C'est tout simple: Le controle data à une propriété
RecordSource. Je suppose que c'est la que tu mets la
table sur laquelle est connectée ta Flexgrid.

Et bien dans ce champ RecordSource, on peut certes mettre
le nom d'une table, mais on peut aussi écrire une requête
SQL, du genre :
SELECT TOTO, TITI FROM MA_TABLE WHERE TUTU='HELLO'

Donc dans ton code, tu mets un truc comme

Data1.RecordSource = "SELECT TOTO, TITI FROM MA_TABLE WHERE TUTU='HELLO'"
Data1.Refresh

Et voila : ta flexgrid affichera bien les données retournées par ta requête.

Cordialement,

--
Jean-marc Noury (jean_marc_n2)
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Avatar
David
Bonjour,

Merci pour votre réponse qui me rappelle la
programmation d'une requête d'Access sous VB6.

Malheureusement malgré touS les essais j'ai toujours une
erreur dont la plus courante est visible ici :

http://users.skynet.be/DAVID/ErreurRequete.htm

Sous Access, sous VB6, j'ai mis en plus de vos lignes de
programme, à l'époque - voici bien 10 ans !, quelque chose comme :

Set db = OpenDatabase(disque)
'("c:DAVIWEBCOLOVIDdavimdb.mdb")
Set rs = db.OpenRecordset(SQL, dbOpenSnapshot)

Merci d'avance pour les apports que vous voudriez me
communiquer.

--
a+ Jean-Pol
Site Web : www.colovid.be
Site Web perso pour le fun : http://users.skynet.be/DAVID/
Cette page est transmise avec des électrons 100% recyclés.


"Jean-marc" a écrit dans le message de news:
4b803b09$0$2864$
David wrote:
Bonjour,

Sous VB6, si je suis arrivé facilement à afficher
ma base DBase III dans une MSFlexGrid
grâce à Data1, je ne trouve pas la syntaxe
pour effectuer une requête(SQL ?) pour afficher
dans la MSFlexGrid des "lignes" recherchées.

Je suis sûrement dérouté car jusqu'à présent
je n'ai fait des applications qu'avec des SQL d'Access
(sous VB6).



C'est tout simple: Le controle data à une propriété
RecordSource. Je suppose que c'est la que tu mets la
table sur laquelle est connectée ta Flexgrid.

Et bien dans ce champ RecordSource, on peut certes mettre
le nom d'une table, mais on peut aussi écrire une requête
SQL, du genre :
SELECT TOTO, TITI FROM MA_TABLE WHERE TUTU='HELLO'

Donc dans ton code, tu mets un truc comme

Data1.RecordSource = "SELECT TOTO, TITI FROM MA_TABLE WHERE TUTU='HELLO'"
Data1.Refresh

Et voila : ta flexgrid affichera bien les données retournées par ta
requête.

Cordialement,

--
Jean-marc Noury (jean_marc_n2)
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;






Avatar
Jean-marc
David wrote:
Bonjour,

Merci pour votre réponse qui me rappelle la
programmation d'une requête d'Access sous VB6.

Malheureusement malgré touS les essais j'ai toujours une
erreur dont la plus courante est visible ici :

http://users.skynet.be/DAVID/ErreurRequete.htm



Hello,
en tout cas, la requête SQL que je vois dans le message
d'erreur n'est pas valide.

je suggère d'essayer un simple:
"SELECT * From Exterior"
pour commencer. Si cela fonctionne, il fauudra
affiner.

Question: je suppose que "Exterior" est le nom de
la table ?

PS: je n'ai pas utilisé DBase III depuis 1992 et je ne l'ai
jamais utilisé avec VB6 - Peut être faut il Googler un
peu pour trouver des choses ?

--
Jean-marc Noury (jean_marc_n2)
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Avatar
Daniel AUBRY
peut être remplacer * par % (écart entre Access et VB6)

"Jean-marc" a écrit dans le message de news:
4b813812$0$2885$
David wrote:
Bonjour,

Merci pour votre réponse qui me rappelle la
programmation d'une requête d'Access sous VB6.

Malheureusement malgré touS les essais j'ai toujours une
erreur dont la plus courante est visible ici :

http://users.skynet.be/DAVID/ErreurRequete.htm



Hello,
en tout cas, la requête SQL que je vois dans le message
d'erreur n'est pas valide.

je suggère d'essayer un simple:
"SELECT * From Exterior"
pour commencer. Si cela fonctionne, il fauudra
affiner.

Question: je suppose que "Exterior" est le nom de
la table ?

PS: je n'ai pas utilisé DBase III depuis 1992 et je ne l'ai
jamais utilisé avec VB6 - Peut être faut il Googler un
peu pour trouver des choses ?

--
Jean-marc Noury (jean_marc_n2)
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;






Avatar
Jean-marc
Daniel AUBRY wrote:
peut être remplacer * par % (écart entre Access et VB6)



Pas dans la partie SELECT. La différence entre % et * s'applique
quand ce signe est utilisé comme wildcard dans une clause WHERE
avec un opérateur like.

--
Jean-marc Noury (jean_marc_n2)
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Avatar
Daniel AUBRY
David a donné ce lien comme exemple :
http://users.skynet.be/DAVID/ErreurRequete.htm

et dans cet exemple son sql finit par = 'RAL 3000*' et là, en VB6/Access il
faut bien
mette un % à la place du *, alors peut être qu'avec dBase aussi.


"Jean-marc" a écrit dans le message de news:
4b82e4fc$0$2855$
Daniel AUBRY wrote:
peut être remplacer * par % (écart entre Access et VB6)



Pas dans la partie SELECT. La différence entre % et * s'applique
quand ce signe est utilisé comme wildcard dans une clause WHERE
avec un opérateur like.

--
Jean-marc Noury (jean_marc_n2)
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;