Odbc Excel et variable

Version imprimable

29/09/2017, 17h25
loupi2004

Odbc Excel et variable

Bonjour,
J'utilise une connexion odbc afin de récupérer des informations sur un fichier Excel. Dans la requête SQL au moment du where j'ai une date (12/10/2017) j'aimerai créer une variable sur une cellule afin de la mettre directement sur ma requête SQL est-ce possible ?
Cordialement
03/10/2017, 18h00
loupi2004

Je n'arrive pas à créer une variable locale, il me dit que la requête n'est pas graphique...
03/10/2017, 19h20
Invité

Bonsoir,

Quel code utilises tu?
03/10/2017, 19h29
loupi2004

Je vais sur autre base de données, je vais vers base odbc, ensuite j'utilise une connexion postgres vers une base de données sur un serveur postgres. Je clique sur SQL, je colle la requête que je souhaite exploiter, et dans le where je mets (test=?) Afin d'utiliser un Paramètre, une variable sur Excel, afin de mettre une date dans la variable. Car par défaut dans ma requête SQL c'est un current_date et j'aime remplacer par ma variable exel...

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Const adChar = 129, adParamOutput = 2, adCmdText = 1
Sql = "Select * From MyTable Where [Test]=?;"
 With CreateObject("ADODB.Command")
    .ActiveConnection = Connexion
    .CommandType = adCmdText  'adCmdFile=256,adCmdStoredProc=4,adCmdTable=2,adCmdTableDirect=521,adCmdText=1,nknown=8
    .CommandTimeout = 500
     .CommandText = Sql
      .Parameters.Append  CreateObject("ADODB.Command").CreateParameter("Test", adChar, adParamOutput, 50, "TOTO") 'ChampsName,TypeChamps, Directionr, size, Value
    Set CommadExecute = .Execute
  End With
End Sub

04/10/2017, 11h53
loupi2004

merci a la place de mettre ma requete sql dans le connecteur odbc, je le mets dans le script vba ?
04/10/2017, 12h00
Invité

c'est ce que je ferais!

1 pièce(s) jointe(s)

Il a l'air de ne pas accepter ma requete....

dois-je continuer d'utiliser ma commande dans les propriétés de connexion

Pièce jointe 316769

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Sub test()
Const adChar = 129, adParamOutput = 2, adCmdText = 1
Sql = "with q1 as (
select 
  intervention.objet_id as id_interne_aurion, 
  evenement.debut AS "Début.Événement", 
  intervenant.ind_nom AS "Nom.Intervenant", 
  D1.valeur AS "Libellé.Module", 
  D2.valeur AS "Libellé.Type d'activité", 
  ressource.code AS "Code.Ressource", 
  evenement.fin AS "Fin.Événement", 
  D3.valeur AS "Libellé.Type de ressource"
from (select o.* from v_interventions_filtrees_par_service o where true and not o.obsolete) intervention
left join auriga.t_evenements evenement on evenement.objet_id = intervention.evenement_id
left join auriga.t_intervenants_evenements R1 on R1.evenement_id = evenement.objet_id
left join auriga.t_individus intervenant on intervenant.objet_id = R1.intervenant_id
left join auriga.t_evenements_cours R2 on R2.evenement_id = evenement.objet_id
left join auriga.t_cours cours on cours.objet_id = R2.cours_id
left join auriga.t_relations R3 on R3.source_id = intervention.objet_id and R3.relation_nom = 'intervention-matiere'
left join auriga.t_matieres matiere on matiere.objet_id = R3.dest_id
left join auriga.t_relations R4 on R4.source_id = R3.rel_objet_id and R4.relation_nom = 'intervention-matiere-type_enseignement'
left join auriga.t_types_activite type_enseignement on type_enseignement.objet_id = R4.dest_id
left join auriga.t_interventions_ressources R5 on R5.intervention_id = intervention.objet_id
left join auriga.t_ressources ressource on ressource.objet_id = R5.ressource_id
left join auriga.t_types_ressource type_ressource on type_ressource.objet_id = ressource.type_ressource_id
left join auriga.t_multilangues D1 on (D1.objet_id, D1.attribut_id, D1.langue_id) = (cours.objet_id, 561, 94577)
left join auriga.t_multilangues D2 on (D2.objet_id, D2.attribut_id, D2.langue_id) = (type_enseignement.objet_id, 781, 94577)
left join auriga.t_multilangues D3 on (D3.objet_id, D3.attribut_id, D3.langue_id) = (type_ressource.objet_id, 471, 94577)
where (true
and (evenement.debut >= current_date and evenement.debut < (current_date+1))
)
)
select
distinct
id_interne_aurion, 
  q1."Nom.Intervenant", 
  q1."Libellé.Module", 
  q1."Libellé.Type d'activité", 
  (cast(cast(q1."Début.Événement" as timestamp) as time)) as "Seulement heure ,Début.Événement", 
  (cast(cast(q1."Fin.Événement" as timestamp) as time)) as "Seulement heure ,Fin.Événement", 
  q1."Code.Ressource", 
  q1."Libellé.Type de ressource"
from q1
where true /* and id_interne_aurion= any(('{' || $P{ObjectID_List} || '}')::integer[]) */;"
 With CreateObject("ADODB.Command")
    .ActiveConnection = Connexion
    .CommandType = adCmdText  'adCmdFile=256,adCmdStoredProc=4,adCmdTable=2,adCmdTableDirect=521,adCmdText=1,nknown=8
    .CommandTimeout = 500
     .CommandText = Sql
      .Parameters.Append  CreateObject("ADODB.Command").CreateParameter("Test", adChar, adParamOutput, 50, "TOTO") 'ChampsName,TypeChamps, Directionr, size, Value
    Set CommadExecute = .Execute
  End With
End Sub

04/10/2017, 12h36
Invité
difficile je n'utilise jamais ça! je suis pas très féru en connexion purement Excel!

j'utilise une connexion ADODB!

Citation:

Excel GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Base & ";Extended Properties=""Excel 12.0;HDR=" & Array("No", "YES")(Abs(AvecTitre)) & ";"""
ACCESS97
GenereCSTRING = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & Fichier
ACCESS2000
GenereCSTRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Fichier & ";Persist Security Info=False"
ACCESS2012
GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";"
MySQL
GenereCSTRING = " DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & Server & ";UID=" & User & ";DATABASE=" & Base & ";Password=" & PassWord
ODBC
GenereCSTRING = "Provider=MSDASQL.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Data Source=" & Base
ORACLE
GenereCSTRING = "Provider=OraOLEDB.Oracle.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Data Source=" & Base
SQLSERVER2005
GenereCSTRING = "Provider=SQLOLEDB.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & Base & ";Data Source=" & Server
SQLServer2008R2
GenereCSTRING = "Provider=SQLNCLI;Server=" & Server & ";Database=" & Base & ";UID=" & User & ";PWD=" & PassWord & ";"
SQLite
GenereCSTRING = "Provider=OleSQLite.SQLiteSource.3; Data Source=" & Fichier
GenereCSTRING = "Driver={SQLite ODBC (UTF-8) Driver};Database=" & Fichier & ";StepAPI=;Timeout="
SQLite3
GenereCSTRING = "Driver={SQLite3 ODBC Driver};Database=" & Fichier & ";LongNames=0;Timeout=4000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
CSV
GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server & ";Extended Properties=""Text;HDR=" & Array("No", "YES")(Abs(AvecTitre)) & ";FMT=Delimited;"""
Code:

1 2 3 4 5 6 Set Cn=CreateObject("ADODB.Connection") Cn.Open GenereCSTRING Sql = "Select * From MyTable Where [Test]=?;" With CreateObject("ADODB.Command") .ActiveConnection = Cn 'Etc...