Faire un état

Question

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" & 
"'"

Dim comcode 
As OleDbCommand

Dim table 
As
New DataTablecomcode = 

New OleDbCommand(rek, cn)

Dim adap 
As OleDbDataAdapter

Dim datset2 
As
New DataSetadap = 

New OleDbDataAdapter(comcode)datset2.Clear()

adap.Fill(datset2, 

"TICKET")table = datset.Tables(

"TICKET")

TryWindows.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 
As
New CrysCode

'System.Threading.Thread.Sleep(100)report.SetDataSource(datset2)

CrvEtat1.ReportSource = report

Windows.Forms.Cursor.Current = Cursors.Default

Catch ex 
As ExceptionMessageBox.Show(ex.Message)

End
Tryle 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

nhervagault · Answer

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.

francejulia · Answer

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

cs_baloc · Answer

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

cs_baloc · Answer

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

Faire un état

4 réponses

Votre réponse

Discussions similaires