1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
Requete = "Select C.NumeroClient From Location L, LigneLocation LL, Materiel M, Client C " &
"WHERE M.NumeroMateriel = LL.NumeroMateriel AND LL.NumeroLocation = L.NumeroLocation AND C.NumeroClient = L.NumeroClient AND L.NumeroDevis = '" & UnDevis.Numero & "' AND L.NumeroLocation = '" & UneLocation.Numero & "'"
Dim cmd As MySqlCommand
Dim DataSet As DataSet ' va être utilisé dans plusieurs procédures
Dim DataAdapter As MySqlDataAdapter
connexion = New MySqlConnection("Database=" & My.Settings.NomBDD & ";Data Source=" & My.Settings.HostBDD & ";User Id= " & My.Settings.PseudoBDD & " ;Password=" & My.Settings.PassBDD & "")
connexion.Open()
'instanciation d'un objet Command
cmd = New MySqlCommand(Requete)
cmd.Connection() = connexion
' instanciation d'un DataSet
DataSet = New DataSet
'instanciation d'un DataAdapter
' Déclaration Objet DataAdapter
DataAdapter = New MySqlDataAdapter
DataAdapter.SelectCommand = cmd 'l'objet Command contient l'instruction SQL
DataAdapter.Fill(DataSet, "TableDataSet") ' Remplissage d'un conteneur table dans le DataSet à partir du DataAdapter
Dim devisPapier As New Devis
devisPapier.SetDataSource(DataSet)
CRVEtat.CrystalReportViewer1.ReportSource = devisPapier
OuvertureFenêtre(CRVEtat) |
Partager