Discussion :

[PierreXV]

Bonjour à tous.

J'essaie de travailler sur une table HyperFile que j'ai crée sous Windev ("Table_WAGO") depuis mon excel 2010. Le but étant de faire des requêtes sous excel afin de filtrer des données.

J'ai suivi la procédure dans le lien ci-dessous pour importer les données sur Excel.

https://doc.pcsoft.fr/?9000064&name=...ole_pour_hfsql


J'arrive bien à importer toute la table HyperFile.

J'aimerai à présent filtrer les données sous forme de requete en VBA.

Est ce qu'à partir du code en C#, il serait possible de le faire en VBA

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
public static void Main(string[] args)
{
   // Déclaration de la chaîne de connexion
   string connectionString = "Provider=PCSOFT.HFSQL;Data Source=serveurbdd;" + 
"User ID=admin;Initial Catalog=mabase";
 
   // Instancie l'objet de connexion OLE DB en passant la chaîne de connexion au constructeur
   OleDbConnection connect = new OleDbConnection(connectionString);
 
   // Ouvre la connexion
   connect.Open();
 
   // Crée et exécute une requête
   OleDbCommand cmd = new OleDbCommand("SELECT nom,prenom,IDClient from client", connect);
   OleDbDataReader reader = cmd.ExecuteReader();
 
   // Parcours le résultat de la requête et affiche les éléments sur la console
   while (reader.Read())
   {
       int nIDClient = reader.GetInt32(2);
       Console.WriteLine("{0} - {1} - {2}",reader.GetString(0), reader.GetString(1), nIDClient);
   }
}

Merci à vous

[Invité]

Code :

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

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
Public Static Sub Main()
With CreateObject("AdoDb.Connection")
    .Open "Provider=PCSOFT.HFSQL;Data Source=serveurbdd;User ID=admin;Initial Catalog=mabase"
    With .Execute("SELECT nom,prenom,IDClient from client")
        If Not .EOF Then
            txt = .GetString
            Debug.Print txt
        End If
        .Close
    End With
    .Close
End With
End Sub
 
 
'public static void Main(string[] args)
'{
'   // Déclaration de la chaîne de connexion
'   string connectionString = "Provider=PCSOFT.HFSQL;Data Source=serveurbdd;" +
'"User ID=admin;Initial Catalog=mabase";
'
'   // Instancie l'objet de connexion OLE DB en passant la chaîne de connexion au constructeur
'   OleDbConnection connect = new OleDbConnection(connectionString);
'
'   // Ouvre la connexion
'   connect.Open();
'
'   // Crée et exécute une requête
'   OleDbCommand cmd = new OleDbCommand("SELECT nom,prenom,IDClient from client", connect);
'   OleDbDataReader reader = cmd.ExecuteReader();
'
'   // Parcours le résultat de la requête et affiche les éléments sur la console
'   While (reader.Read())
'   {
'       int nIDClient = reader.GetInt32(2);
'       Console.WriteLine("{0} - {1} - {2}",reader.GetString(0), reader.GetString(1), nIDClient);
'   }
'}