Sélectionner des lignes d'une table contenant une valeur présente dans une autre table [Débutant]
Bonjour,
3 questions en une cette fois !
J'avance dans la conversion de mon programme de VBA vers VB.Net, mais je bute encore ici.
Voici le pb auquel je suis confronté:
Table1 est une table access.
Je veux sélectionner les lignes de Table1 correspondant aux strTech (technologies) de Ent1 (Entreprise1).
strEntr_____strTech_____Num1_____Num2
Ent1________Tech1______ 12_______ 15
Ent1________Tech3_______10_______ -5
Ent1________Tech4_ ______ 4 ________-6
Ent2________Tech1_______13________14
Ent2________Tech2_______12________15
Ent3________Tech2_______14________11
Ent3________Tech4________2_________-3
Dans cet exemple, Ent1 utilise les technologies 1, 3 et 4 donc je voudrais retenir les lignes où strTech vaut 1, 3 ou 4 (dans cet exemple on retient donc les lignes 1;2;3;4;7 de la table).
J'avais donc pensé à :
a) Créer une table contenant les valeurs de strTech recherchées.
Code:
1
2
3
4
5
6
7
8
9
|
strSql = "SELECT Table1.strTech FROM Table1 " _
& " WHERE Table1.strEnt = " & "'" & strEntRetenue & "'"
ObjetCommand = New OleDbCommand(strSql)
ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
ObjetCommand.Connection() = ObjetConnection
ObjetDataAdapter.Fill(ObjetDataSet, "Table2")
ObjetDataTableJCible = ObjetDataSet.Tables("Table2") |
Je pensais avoir ainsi créé une table 'Table2' contenant une seule colonne (strTech) et en ligne uniquement les technologies utilisées par Entreprise1: Tech1; Tech3; Tech4.
En effet:
_____i)L'exécution du Data Reader me confirme que Table2 contient bien les données attendues
____ ii)La fenêtre Variables Locales me confirme que ObjetDataTable2 contient bien une table de nom "Table2" (ObjetDataTable2.EncodedTableName= "Table2".
b) Faire un SELECT sur table1 en ne retenant que les strTech présentes dans Table2..
Mais lorsque je lance la 2è étape:
Code:
1
2
3
4
5
6
7
8
9
10
|
strSql2 = "SELECT Table1.* FROM Table1 " _
& " WHERE Table1.strTECH IN (SELECT Table2.StrTECH FROM Table2)"
ObjetCommand2 = New OleDbCommand(strSql2)
ObjetDataAdapter2 = New OleDbDataAdapter(ObjetCommand2)
ObjetCommand2.Connection() = ObjetConnection
ObjetDataAdapter2.Fill(ObjetDataSet2, "Table")
ObjetDataTable2 = ObjetDataSet2.Tables("Table") |
J'obtiens l'erreur suivante sur la ligne
Code:
1
2
|
ObjetDataAdapter2.Fill(ObjetDataSet2, "Table") |
"L'exception de base de données Microsoft Jet n'a pas été gérée. Le moteur de base de données Microsoft Jet ne peut pas trouver la table ou la requête source Table2. Assurez-vous qu'elle existe et qu'elle correctement orthographiée."
Ainsi mes questions:
I. (hormis défaut de syntaxe) j'ai l'impression que cela signifie que l'étape I n'a pas créé de table 'Table2" (en tous cas pas qui puisse être appelée dans un SELECT).
Ainsi ObjetDataAdapter.Fill ne crée pas de table à laquelle le programme peut accéder ?!?
II. Création de table
Du coup je me retrouve au dépourvu et me demande comment je peux réellement créer une table supplémentaire en VB.NET à partir d'un SELECT, quitte à effacer cette table temporaire en fin de programme.
En SAS par exemple j'ai souvenir que ct assez simple. Une Proc CREATE et hop la table était créée.
III. Existe-t-il une méthode astucieuse pour réaliser en une étape (juste avec le SELECT de a.) les 2 opérations, sans avoir à créer une table annexe contenant les seules strTech recherchées?
III. Non optimisation de mon algo
Cela me rappelle que, en toute fin d'algo, je met certes à jour ma table Table1, mais c'est avec une méthode un peu laborieuse:
Je rajoute des lignes une par une à Table1 par la méthode:
For i=1 to 1.000
ObjetDataRow = ObjetDataSet1.Tables("NomTable").NewRows()
ObjetDataRow("Variable1")=Matrice(i,1)
...
ObjetDataRow("Variable30")=Matrice(i,30)
...
ObjetDataSet1.Tables("Table1").Rows.Add(ObjetDataRow1)
ObjetCommandBuilder1 = New OleDbCommandBuilder(ObjetDataAdapter1)
ObjetDataAdapter1.Update(ObjetDataSet1, "Table1")
Next i
(Méthode trouvée sur un tuto dispo sur le site)
Cette méthode est particulièrement lente, pour créer ma base (elle contient 3 tables: une de 1.000 lignes, une de 50.000 et 1 de 100.000), cela met plus d'heure.
Bien sûr, une fois la base créée, ce ne sont que qq lignes que je rajoute à la base à chaque mise à jour des données sources et du coup en ce cas l'ajout de lignes une par une a du sens. Mais au premier run (pour refaire la base après correction d'un bug ou ajout d'une fonctionnalité, bam ca fait 1h où le pc est bloqué).
Ma méthode est probablement à la masse
(StringBuilder m'avait déjà fait remarquer une erreur de conception comparable de mon algo, me faisant remarquer que sql n'est pas fait pour faire du "cellule par cellule" mais des calculs sur des masses de données.
Peut être est-ce ici le même pb?
Au plaisir de vous lire !
PS: je vous garantis que je passe bcp de tps à essayer de trouver la réponse par moi même ou via les tutos et le net mais franchement j'en bave pour ce passage de VBA à VB.Net/SQL/ACCESS
