Bonjour à vous,
Me revoilà de plus belle avec un problème qui s'intensifie niveau complexité (enfin pour moi..) et comme j'ai visité des dizaines de pages et que j'ai vu tout et n'importe quoi..
Voici mon problème, simple mais complexe :
Je peux avoir accès à une grande base de données matériaux (style modules d'Young, coeff de dilatation, et j'en passe.. bref). Je souhaiterais afficher certaines de ces données dans un datagridview, certaines dans un combobox pour choisir un matériau par exemple et qui lierait alors d'autres textbox pour afficher les propriétés du matériaux.
Problème 1 : je dois filtrer la BDD car elle contient plein de données mais je veux seulement celles relative à un code particulier (ASME)
Problème 2 : je galère à faire la liaison sql, je sais qu'il faut que j'importe dans un DataAdapter puis un DataSet puis (enfin) le DataGridView (même si c'est très flou là..)
Je donne un morceau de code pour savoir si je suis réellement à coté ou pas ..
Ce que je ne comprend pas, entres autres, c'est qu'il y a des trucs à faire sur les forms "lié aux données..." etc et qu'il y a aussi plein de truc à coder derrière ... :/
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 Sub Main() Dim Connexion As New SqlConnection("Data Source=NomServer;Initial Catalog=LàFautMettreQuoi?;User Id=******;Password=*******;") Try Connexion.Open() Dim Requete As String = "SELECT * from P_matieres" 'P_matiere est une table contenant diverses tables dont une par exemple que je veux, la table 'TE' Dim Commande As New SqlCommand(Requete, Connexion) Dim Adaptateur As New SqlDataAdapter(Commande) ' créé un DataAdapter Dim DSToting As New DataSet Try Adaptateur.Fill(DSToting, "P_matieres") 'rempli le DataAdapter 'Analyse du DataSet For Each Ligne As DataRow In DSToting.Tables("P_matieres").Rows() 'là je sens que c'est du n'importe quoi.. Console.WriteLine(Ligne("TE").ToString) Next Dim DataView As New DataView(DSToting.Tables("P_matieres")) DataView.RowFilter = "TC = 'ASME'" ' là j'ai essayer de faire un semblant de filtre pour avoir la table TC pour le code asme uniquement TSP.DG_Toting.DataBindings(ds, "DGV1") ' là ça remplit un DGV .. mais il me met une erreur, il est pas content, il n'aime pas "Databinding" Catch ex As Exception Console.WriteLine(ex.Message) End Try Catch ex As Exception Console.WriteLine(ex.Message) Finally Connexion.Close() End Try End Sub
Merci de votre aide,
have a nice day !
Partager