Discussion :

[Oluha]

Bonjour

J'ai fais un programme par le biais d'un formulaire dans une base .adp reliée à SQL Serveur.
J'ai un petit soucis sur ce morceau de code :

Code :

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

1
2
3
4
5
6
7
8
            DoCmd.RunSQL ("truncate table listecomplete")
 
            Sleep 10000
 
            stSQL = "insert into listecomplete (INDIV_NUM, NOM, ADR_COMP1, ADR_COMP2, ADR_ADR, CPVILLE, MUM_PAYS, PUBLI_NUM, CODE_RELANCE, REGLE_EXAMPLAIRE, ABO_DTE_PNUM, ABO_PNUM, DNUM, ABO_SERVIR, TARIF_LIB, REGLE_INDIV_NUM, REGLE_FACTURE, ORIREG_LIB, Lib_reglement, REGLE_MONTANT, REGLE_ECART, NOM_NUM, ABO_DTE_DER_MODIF,REGLE_DATE_OPERATION, REGLE_LIB, ADR_CP, REGLE_DATETITRE, PUBLI_CODE, PUBLI_NOM) " + stSQL
 
            ' on remplie la table
            DoCmd.RunSQL (stSQL)

Avec dans stSQL un select suivant les options cochées dans mon formulaire.

Il me fait bien le truncate par contre il ne rempli pas ma table.
J'ai lancé une trace dans SQL serveur, je vois bien les 2 requêtes arriver. De plus, si je copie la seconde requête dans l'analyseur de requête il rempli bien ma table !

J'ai ajouté un sleep pensant que ca résoudrait quelque chose mais ca ne change rien.

Ce qu'il y a de bizarre c'est que ca fonctionne 1 fois sur 10.

Là je sèche complètement, quelqu'un aurait une idée ?

Merci

[Heureux-oli]

Essaie de changer ton opérateur de concaténation.

En VBA, c'est & au lieu de +.

[Oluha]

j'ai testé mais ca ne change rien. De toutes façons je vois bien la requette dans ma trace sur le serveur et elle fonctionne dans l'analyseur.

[Lou Pitchoun]

Salut,

Essaie :

Code :

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

stSQL = "INSERT INTO listecomplete VALUES (INDIV_NUM, NOM, ADR_COMP1, ADR_COMP2, ADR_ADR, CPVILLE, MUM_PAYS, PUBLI_NUM, CODE_RELANCE, REGLE_EXAMPLAIRE, ABO_DTE_PNUM, ABO_PNUM, DNUM, ABO_SERVIR, TARIF_LIB, REGLE_INDIV_NUM, REGLE_FACTURE, ORIREG_LIB, Lib_reglement, REGLE_MONTANT, REGLE_ECART, NOM_NUM, ABO_DTE_DER_MODIF,REGLE_DATE_OPERATION, REGLE_LIB, ADR_CP, REGLE_DATETITRE, PUBLI_CODE, PUBLI_NOM) " + stSQL

[Oluha]

Euh il ne s'agit pas des valeurs que j'insère mais des colonnes de ma table.
Je l'ai peut être mal exprimé plus haut, j'ai un select à la suite, ma requête donne quelque chose du genre :

Code :

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

1
2
insert into matable (colA, colB...)
select col1, col2... from monautretable

Et je ne pense pas que le problème vient de la requête car si je la récupère dans ma trace et que je la copie dans l'analyseur, elle fonctionne

[FRED.G]

Salut !

Juste une idée comme ça :
Au lieu d'utiliser DoCmd.RunSQL, essai d'instancier ta base dans une variable DAO.DataBase, et utilise toujours cette instance pour exécuter ton SQL (avec la méthode Execute).

[Oluha]

Je viens de tester ca en m'aidant de la FAQ mais ca ne compile pas

Erreur de compilation : type défini par l'utilisateur non défini

Code :

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

1
2
    Dim db As DAO.Database
    Set db = CurrentDb

(il bloque sur la 1ere ligne ci dessus).

J'ai essayé de voir s'il ne manquait pas une référence mais je ne vois pas laquelle ajouter.

[Heureux-oli]

Il faut ajouter la référence DAO dans l'éditeur VBA.

[Oluha]

c'est ce que j'avais cherché mais je ne l'avais pas vu, maintenant c'est bon mais ca plante sur la requete :

Code :

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

db.Execute "truncate table listecomplete"

Erreur d'execution '91':
Variable objet ou variable bloc With non définie

J'ai pourtant pris exemple sur un code de la FAQ

[FRED.G]

Est-ce que CurrentDb fonctionne pour les projet Adp ?
Même question pour DAO qui modélise le JetEngine je crois... Du coup, je maintiens mon idée de bosser sur une seule instance pour exécuter son SQL, mais peut-être que DAO ne peut pas être utilisé. ADO ?

[Heureux-oli]

J'avais pensé à ADO, mais comme je n'utilise pas les "serveur SQL", j'ai fait confiance à Fred.

ADO est moins souple.

[FRED.G]

comme je n'utilise pas les "serveur SQL", j'ai fait confiance à Fred.

Et moi je faisais confiance à Heureux-oli.

Soyons clairs : je n'ai jamais utilisé de projet ADP

[Oluha]

effectivement dans l'aide ils parlent de CurrentDb pour des projets .mdb
Mais du coup je ne connais pas la syntaxe pour lui définir ma base sur un projet .adp

Edit : ok je vais essayer de chercher sur le net mais ca fait un bout de temps que je coince là dessus et j'ai jamais trouvé de solution

[Oluha]

j'ai passé le truc en ADO en jetant un oeil sur cette page : http://argyronet.developpez.com/offi...b2adp/#L10-5-2

Code :

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

1
2
Dim db As ADODB.Connection
Set db = CurrentProject.Connection

mais ca me fait une expiration de delais sur ma 2eme requete

[Kloun]

Le timeout doit être paramêtrable.

Mon aide sur ADO est HS, mais il y a un CommandTimeOut ...

[Oluha]

chez moi non plus l'aide en ligne ne fonctionne pas

[DMboup]

Il me semble que dans un projet ADP les requêtes actions doivent être dans une procédure stockée.

[Oluha]

J'ai résolu mon problème avec ADO. Maintenant ca a l'air de fonctionner à chaque fois.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim db As ADODB.Connection
Set db = New ADODB.Connection
db.ConnectionString = "Provider='sqloledb';Data Source='monserveur'; Initial Catalog='mabdd'; User ID='toto';Password='toto';"
db.ConnectionTimeout = 0
db.Open
 
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = db
cmd.CommandText = "truncate table listecomplete"
cmd.CommandType = 1
cmd.CommandTimeout = 240
cmd.Execute
Set cmd = Nothing