Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questiondim id3 as date dim test as integer req1="select date_accident from requete3" cmd.connection=cnx dim myreader as oledbdatareader=cmd.executereader while myreader.read() id3=myreader(0) test=mid(id3,7,4) if test= acc.textbox1.text then req="select * from requete3 where requete3.[date_accident] like '%" & id3 "%'" da=new oledbdataadapter(req,cnx) ds=new dataset da.Fill(ds,requete3) dim ta as datatable ta=ds.tables(raquete3) etat.setdatasource(ta) crystalreportview1.reportsource=etat crystalreportview1.refreshreport() end if end while