locked
tableadapter et requetes parametrees dans designer dataset RRS feed

  • Question

  • Bonjour,

    je travaille avec une base de donnees Access et j'ai creer mes requetes a l'aide de designer dataset dans VB 2008 Express

    mes requetes sont rattachées a des datgridview  par des bindingsources, l'ensemble fonctionne bien mais je souhaiterais pouvoir recuperer les donnees charger dans le tableadapter sans avoir a passer par un datagridview. je pense qu'il faut recuperer le datatable associer a ma requete et ensuite selectionner la ligne et la colonne du datatable que l'onsouhaite recuperer.

    le but etant d'eviter de mettre un datagrid view que l'on iralire ensuite

    merci d'avance pour vos reponses

    cordialement

    Xavier 


    Xavier
    jeudi 4 août 2011 15:12

Réponses

  • voici le code a utiliser pour effectuer des connexions a des bases de donnees sans passer par le concepteur de dataset

    Using 

    MyConnection As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\XXXX.mdf;Integrated Security=True;User Instance=false" )

    Dim MyCommand As SqlCommand = MyConnection.CreateCommand()

    MyCommand.CommandText = "SELECT SUM(GestionHrs.NbHrs) AS SumHrs,GestionHrs.Transfert, GestionTrv.TypeTrv, GestionUser.CodeUser,GestionHrs.validation,GestionHrs.NumeroSmn " & _

     

    "FROM GestionHrs INNER JOIN GestionTrv ON GestionHrs.CodeTrv = GestionTrv.CodeTrv INNER JOIN GestionUser ON GestionHrs.CodeUser = GestionUser.CodeUser " & _

    "WHERE (GestionUser.NomUser = '" & SelectUser.Text & "') " & _

     

    "GROUP BY GestionTrv.TypeTrv, GestionUser.CodeUser, GestionHrs.Transfert,GestionHrs.validation,GestionHrs.NumeroSmn " & _

     

    "HAVING (GestionHrs.Transfert = 'False') AND (GestionHrs.Validation='True')"

    Dim MyReader As SqlDataReader = MyCommand.ExecuteReader() While MyReader.Read()

    MyConnection.Open()

     

    Dim SumHrs = MyReader(0).ToString  

    Dim GrpTransfert = MyReader(1).ToString

     

    Dim GrpTypeTrv = MyReader(2).ToString

     

    Dim GrpCodeUser = MyReader(3).ToString

    Dim GrpValidation = MyReader(4).ToString

     

    Dim GrpSemaine = MyReader(5).ToString

    end while

    end using

     voila  

     

     

     

     


    Xavier

    • Marqué comme réponse fanchy mardi 9 août 2011 09:27
    mardi 9 août 2011 09:20