Bonjour, mon problème est simple.
J'aimerais écrire dans un fichier pdf, les données que j'extrait de ma BDD via des requetes SQL.
Donc pour l'instant j'arrive à faire ça via une combo box, ceci est sur ma form :
1 2 3 4 5 6
| Dim resultSQL As DataView = Remplir_entite_BDD("SELECT id, name FROM glpi_entities")
If resultSQL.Count > 0 Then
For Each rst As DataRowView In resultSQL
Cbbox_choientite.Items.Add(New ListItem(rst("id"), rst("name")))
Next
End If |
Ceci est dans mon fichier fonction :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Function Remplir_entite_BDD(ByVal requete As String) As DataView
Dim mysqlconn As MySqlConnection = connectionBDD()
Dim commande As MySqlCommand
Dim Adaptateur As MySqlDataAdapter
Dim resultmySql As DataView
Dim DS_resultmySql As New DataSet
Try
commande = New MySqlCommand(requete, mysqlconn)
Adaptateur = New MySqlDataAdapter(commande)
Adaptateur.Fill(DS_resultmySql, "rqt")
resultmySql = New DataView(DS_resultmySql.Tables("rqt"))
mysqlconn.Close()
Catch ex As MySqlException
resultmySql = Nothing
MessageBox.Show(ex.Message)
End Try
Return resultmySql
End Function |
Maintenant au lieu de faire :
Cbbox_choientite.Items.Add(New ListItem(rst("id"), rst("name")))
J'aimerais faire :
tableau.AddCell(Remplir_entite_BDD("SELECT id, name FROM glpi_entities))
Pouvez-vous m'aider svp?
Partager