Ajouter une requête dynamiquement à une BD ACCESS

Version imprimable

03/06/2008, 19h12
dsolheid

Ajouter une requête dynamiquement à une BD ACCESS

Bonjour à tous,

J'ai un gros soucis ...
J'ai une application VB.NET qui tourne sur une BD ACCESS 2003.
Quand j'ajoute des champs ou table à ma DB (dynamiquement), j'utilise une fonction au démarrage de mon application qui appel un ALTER TABLE ... etc

Je fais ça car mon client ne peut pas me renvoyer la BD ... et je mets à jour uniquement l'Application.

Jusque là, ok.

Mais le soucis, c'est que j'ai fait des liens vers des requêtes embarquées dans la BD (embarquées chez moi, mais pas chez le client.)
Et une fois que le client install l'application, les requêtes ne sont pas dans la BD, et l'application râle.

SAvez vous comment ajouter une requête dynamiquement à une BD ACCESS ??

Exemple :
ADD 'requete_test' = 'SELECT * FROM TEST';

D'avance, Grand merci, ;)

Didier.
03/06/2008, 21h56
Philippe Vialatte

salut,

de tete, en vba, tu as createquerydef...

par contre, je ne connais pas de moyen de l'appeler depuis .net...

Eventuellement, regarde si il est possible d'appeler createquerydef par automation, ou en ajoutant une reference a dao...

Ceci dit, je pense que le probleme est plus au niveau du process qu'autre chose...

Si ton client ne veut pas t'envoyer la base, livre lui un listing des requetes a ajouter, ou mets-les directement dans le code (je conseillerais meme la deuxieme solution, ca permettrait d'eviter les boulettes...)

Dans le pire des cas, livre lui une db access avec un bout de script vba qui lance un formulaire, lui demande l'adresse de sa base a lui, la sauvegarde, et copie tes requetes dedans..
19/10/2008, 14h37
dsolheid

Citation:

Envoyé par pvialatte

salut,

de tete, en vba, tu as createquerydef...

par contre, je ne connais pas de moyen de l'appeler depuis .net...

Eventuellement, regarde si il est possible d'appeler createquerydef par automation, ou en ajoutant une reference a dao...

Ceci dit, je pense que le probleme est plus au niveau du process qu'autre chose...

Si ton client ne veut pas t'envoyer la base, livre lui un listing des requetes a ajouter, ou mets-les directement dans le code (je conseillerais meme la deuxieme solution, ca permettrait d'eviter les boulettes...)

Dans le pire des cas, livre lui une db access avec un bout de script vba qui lance un formulaire, lui demande l'adresse de sa base a lui, la sauvegarde, et copie tes requetes dedans..

Bonjour,

Je reviens sur ce sujet ... car je n'ai jamais trouvé de solution ...
;)

Quelqu'un à une idée ?
19/10/2008, 15h06
dsolheid

JE viens de trouver !!!
:))

Il suffit d'exécuter une requête de type :

Code:

Utilities.ExecuteNonQuery(conn, "CREATE VIEW test AS SELECT * FROM Table_News;")

Et la requête sera ajoutée à la BD ACCESS.

:yaisse2::yaisse2:
19/10/2008, 15h22
Skalp

Citation:

Envoyé par dsolheid

Je fais ça car mon client ne peut pas me renvoyer la BD ... et je mets à jour uniquement l'Application.

Mais le soucis, c'est que j'ai fait des liens vers des requêtes embarquées dans la BD (embarquées chez moi, mais pas chez le client.)
Et une fois que le client install l'application, les requêtes ne sont pas dans la BD, et l'application râle.

Si tu n'as pas accès à la base de données, pourquoi vouloir ajouter ces requêtes dans le fichier Access ? Il suffit juste de stocker les requêtes dans ton application et de les exécuter comme tu veux.
19/10/2008, 15h27
dsolheid

Citation:

Envoyé par Skalp

Si tu n'as pas accès à la base de données, pourquoi vouloir ajouter ces requêtes dans le fichier Access ? Il suffit juste de stocker les requêtes dans ton application et de les exécuter comme tu veux.

Oui, mais derrière je voulais absolument utiliser =>

Me.XXX_DataSet.Requete_Table_YYY.WriteXml(....)

Ca, avoir accès à une requete prédéfinie dans ma DB ..

Car WriteXml me permet en une ligne de générer une fiche XML avec mes données ..
Chose que j'ai difficilement trouvé avec une requête stockée dans mon applic.
19/10/2008, 15h54
dsolheid

Citation:

Envoyé par Skalp

Si tu n'as pas accès à la base de données, pourquoi vouloir ajouter ces requêtes dans le fichier Access ? Il suffit juste de stocker les requêtes dans ton application et de les exécuter comme tu veux.

Mais le vrai problème, à la base ..

C'est que j'ai une table avec les champs =>
ID, Date_creation, Title, Texte, Image

Et que je dois extraire ces données vers une fiche XML.

WriteXML me convient très bien, .. mais alors je dois avoir une requête, car Date_creation doit être formatée d'une certaine façon dans la fiche XML.
DD-MM-AA

Et ce n'est pas le cas par défaut ...
Du coup, je passe par une requête (embarqué dans la BD)...

Mais vu que le client, ne peut pas me redonner sa BD, je dois trouver le moyen d'ajouter une requête dans la BD ...

Si je connaissait un autre moyen de réaliser une requête similaire à partir de l'application et générer de l'XML facilement derrière ... je serais RAVI

vous n'avez pas une idée ?

Car le CREATE VIEW ne fonctionne pas ... (il marche avec des requetes très basiques, mais pas pour moi ...)

Merci

Voilà une solution ...

Résultat de la Requête exécutée sauvé dans un fichier XML :

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
    Public Shared Sub ExecuteQueryToXML(ByVal connectionString As String, ByVal strSQL As String, ByVal  As String, ByVal tableName As String)
 
        Using connection As New System.Data.OleDb.OleDbConnection(connectionString)
 
            Dim command As New System.Data.OleDb.OleDbCommand(strSQL)
 
            ' Set the Connection to the new OleDbConnection.
            command.Connection = connection
 
            Dim ds As DataSet = New DataSet()
 
            ' Open the connection and execute the command.
            Try
                connection.Open()
                 ds.Load(command.ExecuteReader(), System.Data.LoadOption.OverwriteChanges, tableName)
                ds.WriteXml(xmlFilename)
 
            Catch ex As Exception
                Console.WriteLine(ex.Message)
            End Try
 
            ds.Dispose()
            ' The connection is automatically closed when the
            ' code exits the Using block.
        End Using
    End Sub