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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : 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
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