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
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 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
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...
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
Merci
Partager