francejulia
Messages postés21Date d'inscriptionlundi 7 juillet 2008StatutMembreDernière intervention17 juin 2009
-
3 oct. 2008 à 18:06
cs_baloc
Messages postés56Date d'inscriptionlundi 8 septembre 2008StatutMembreDernière intervention29 octobre 2010
-
8 oct. 2008 à 11:35
Bonsoir
je suis entrain de faire les etats en vb.net
j'ai crée un crystalreportviewer CrvEtat1 ensuite j'ai creé une form crystalreport du nom de Cryscode
apres avoir traiter l'etat, j'ai crée un dataset où je charge ma requette
voici le code
Dim rek
As
Stringrek =
"select code,duree,prix,validite from TICKET where duree='" & ComDuree.Text &
"' and etat1='" &
"nonvendu" &
"'"
francejulia
Messages postés21Date d'inscriptionlundi 7 juillet 2008StatutMembreDernière intervention17 juin 2009 6 oct. 2008 à 10:25
Bonjour
lorsque j'utlise le débuger, le code s'execute normalement sans un plantage( et il faut rappeler que aucun message d'erreur ne s'affiche juste que l'execution cale sur les lignes indiqué plus haut) la requette fonctionne bien dans la Bd et le dataset est egalement chargé.
Et losrque je supprime le debuger, le code plante je ne comprend pas vraiment
merci de me venir au secours
cs_baloc
Messages postés56Date d'inscriptionlundi 8 septembre 2008StatutMembreDernière intervention29 octobre 2010 8 oct. 2008 à 11:35
J'ai trouver deux possibilités avec les moyen du bord...Ca reste des possibilités
Dim rek As String
Dim comcode As OleDbCommand
Dim table As New DataTable
Dim adap As OleDbDataAdapter
Dim datset2 As New DataSet
Dim report As New CrysCode
rek = "select code,duree,prix,validite from TICKET where duree='" & ComDuree.Text & "' and etat1='" & "nonvendu" & "'" 'je ne comprend pas trop la synthaxe
comcode = New OleDbCommand(rek, cn) 'as tu crée une connexion avec ta base de donnée
adap = New OleDbDataAdapter(comcode)
' ici on crée une instance de notre état, nous précisons que ca source est notre DataSet
'et que l'on veut l'afficher dans notre crystalreportviewer
'System.Threading.Thread.Sleep(100)
report.SetDataSource(datset2)
CrvEtat1.ReportSource = report
Windows.Forms.Cursor.Current = Cursors.Default
Catch ex As Exception
MessageBox.Show(ex.Message)
EndTry