Discussion :

[vlksoft]

Bonjour à tous,

je suis en train de créer ma 1° appli visual 6.0 avec des tables access 2003. Je me trouve coincé par une petite chose. J'ai conçu une requete SQL ajout qui devra être exécutée. Mais je ne sais pas cmment le faire à partir du visual basic 6.0.

merci d'avance

[azzouz_soui]

Bonsoir,
Explique toi bien .
pas besoin d'une requête pour ajouter un enregistrement dans base access.
Il te suffit à l'aide d'un bouton commande "ajouter" écrire un code..

Code :

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

1
2
Dim rs As adodb.Recordset
 rs.AddNew

bon courage

[OhMonBato]

Puisque c'est ta première appli, est ce vraiment du VB6 ou du VB6.3 (donc du VBA) utilisé sous Access ?

[vlksoft]

Bonjour ohmonbato

De tout ce temps, je fais toujours le VBA access. Suite a certaines difficultes que j ai rencontre en access, j ai achete le visual studio6 sur lequel j ai commence ma premiere appli.

Je compte bien recevoir des conseils de votre part.

merci

pas besoin d'une requête pour ajouter un enregistrement dans base access.
Il te suffit à l'aide d'un bouton commande "ajouter" écrire un code..

Code :

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

1
2
Dim rs As adodb.Recordset
 rs.AddNew

Je trouve que la methode addnew est bonne quand on a affaire a une seul enregitrement ou quand on le fait par saisie directe. Cependant, dans mon cas, les enregistrements a ajouter dans une table se trouve dans une autre table. Et les enregistrements a ajouter devront etre selectionnes a partir d un critere, puis ensuite ajouter a la nouvelle table. j ai trouve qu en utilisant une requete ajout ce serait pratique. Donnez moi des conseils SVP.

merci

[OhMonBato]

Plutot que de te faire une explication générale, ce qu eje serais bien incapable de faire d'ailleurs, je t'encourage à aller voir les tutoriels dont le lien est en haut de cette page ainsi que dans ma signature. On y traite beaucoup des bases de données sous VB6.

[Mr NGANZI]

Place ce code a l'endroit ou tu veux que s'execute ta requette.
pour plus de precision, sois plus precis

Code :

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

1
2
3
4
5
6
7
8
'tu declares tes objets de bdd dans vb
dim BaseAccess as Database
dim Requette as QueryDef
 
'tu leur attribue une valeur
set BaseAccess=opendatabase("Chemin\NomBase.mdb")
set Requette=BaseAccess.CreateQuerydef("","RequeteSqlInsertInto")
Requette.Execute