Faire un état

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 AsString

rek =

"select code,duree,prix,validite from TICKET where duree='" & ComDuree.Text & "' and etat1='" & "nonvendu" & "'"

Dim comcode As OleDbCommand

Dim table AsNew DataTable

comcode =

New OleDbCommand(rek, cn)

Dim adap As OleDbDataAdapter

Dim datset2 AsNew DataSet

adap =

New OleDbDataAdapter(comcode)

datset2.Clear()

adap.Fill(datset2,

"TICKET")

table = datset.Tables(

"TICKET")

Try

Windows.Forms.Cursor.Current = Cursors.WaitCursor

datset2.Clear()

adap.Fill(datset2,

"TICKET")

' 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

Dim report AsNew CrysCode

'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)

EndTryle probleme qui se pose est que mon code plante et s'arrête à tout moment sur la ligne suivante: 

report.SetDataSource(datset2) ou la ligne  :

CrvEtat1.ReportSource = report

SVP AIDER  MOI
MERCI INFINIMENT

julie

julie

salut

Regarde le tuto suivant

Quel est le message d'erreur
Plante et s'arrete n'est pas un message d'erreur

ton dataset est bien remplit (!= null)
passes avec le debugger pour voir


Utilises les requetes parametrees pour tes requetes

sql = "select code,duree,prix,validite from TICKET where duree=@duree and etat1=@etat"

Ca evite beaucoup de problème

Mais les executions des requetes sur les bases de données dans un try catch c'est mieux.

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

julie

Bonjour, serait-il possible que tu envoye un jeu de donnée et une maquette de ce que tu fais.

qui m'aime me suive...quoi personne...><

et une victoire de plus pour Mr canard

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)

datset2.Clear()
adap.Fill(datset2, "TICKET")
table = datset.Tables("TICKET")

Try
   Windows.Forms.Cursor.Current = Cursors.WaitCursor
   datset2.Clear()
   adap.Fill(datset2, "TICKET")

' 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

qui m'aime me suive...quoi personne...><

et une victoire de plus pour Mr canard