Datagridview et requete SQL
Bonjour à tous,
Bon voici mon soucis :
j'ai instauré au datagridview (table_historique_datagridview) et j'aimerai grâce à une requête SQL afficher le résultat dans ce Datagrid
Bref déjà voici mon module de connection :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Module Fonctions_CONNEXION
Friend WithEvents Maconnexion As System.Data.SqlClient.SqlConnection
Public Sub Connection_SQL()
Try
Maconnexion = New System.Data.SqlClient.SqlConnection()
Maconnexion.ConnectionString = "Data Source=********;Integrated Security=SSPI;Initial Catalog=*****;user ID=********"
Maconnexion.FireInfoMessageEventOnUserErrors = False
Maconnexion.Open()
Catch e As Exception
MsgBox("Connection Impossible")
End Try
End Sub |
grâce à un bouton (event clic) j'affiche les données dans le datagrid
Code:
1
2
3
4
5
6
| Private Sub btn_affiche_historique_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_affiche_historique.Click
strSql = "SELECT TOP 1000 [Date] ,[Utilisateur] ,[Commentaires] FROM [dboutillage].[dbo].[Table_historique] WHERE TYPE = 'TABLE_forage_famille'"
Remplissage_datagrid(strSql, DboutillageDataSet.Table_historique.TableName, Table_historiqueDataGridView, DboutillageDataSet)
End Sub |
Je fais donc appel a la fonction remplissage_datagrid() qui se situe dans le module Fonctions_Connexion
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
| Dim ObjetConnection As SqlConnection
Dim ObjetCommand As SqlCommand
Dim ObjetDataAdapter As SqlDataAdapter
Dim ObjetDataSet As New DataSet()
Dim ObjetDataTable As New DataTable
Dim ObjetDaPublic Sub Remplissage_datagrid(ByVal requete, ByVal nom_table, ByVal datagrid, ByVal dataset)
Connection_SQL()
ObjetCommand = New SqlCommand(requete)
ObjetDataAdapter = New SqlDataAdapter(ObjetCommand)
ObjetCommand.Connection() = Maconnexion
ObjetCB = New SqlCommandBuilder(ObjetDataAdapter)
ObjetDataAdapter.Fill(ObjetDataSet, nom_table)
ObjetDataTable = ObjetDataSet.Tables(nom_table)
datagrid.DataSource = ObjetDataTable
datagrid.Dock = DockStyle.Fill
Deconnection_SQL()
End Sub |
Et donc au debut il marchait bien, après quelques modifs il ne m'affiche plus rien du tout, sauf qu'il agrandi mon datagridview sans aucune données dedans...
Merci
