VB.Net ADO.Net Récupérer une valuer d'une requête SQL

Signaler
Messages postés
532
Date d'inscription
lundi 5 juin 2006
Statut
Membre
Dernière intervention
6 octobre 2012
-
Messages postés
14788
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
1 mai 2021
-
Bonjour...


J'ai une requête SQL et un Variable en String
Dim Numero as String Req "SELECT Code FROM Liste WHERE Cad '" & Replace(Combobox.Text, "'", "''") & "'"
P.S. je ne suis pas certain que ma requête est OK


Je veux récupérer la valeur du Code (Voir requête SQL)


Comment je fais???
Numero = ??????????????????


Merci de votre aide


Pour le moment j'utilise ce code pour d'autres requêtes


    Private Sub cbxCadastre_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'le datagridview du form "liste_cadastre" se met à jour
        ReqSQL = "SELECT * FROM Liste_Cadastre"
        Execute("Plans")
        Liste_Cadastre.DtgListe.DataSource = Dtt        Req "SELECT Code FROM Liste WHERE Cad '" & Replace(Combobox.Text, "'", "''") & "'"
    End Sub


Public Function Execute(ByVal table As String) As DataView
                Dim SourceConnect As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Plans_Cadastre.mdb"
        SourceOle = New OleDbConnection(SourceConnect)
        Select Case SourceOle.State
            Case ConnectionState.Closed
                SourceOle.Open()
        End Select


        DataA = New OleDbDataAdapter(Req, SourceOle)
        Dim DataS As New DataSet
        DataA.Fill(DataS, table)
        Dtt = DataS.Tables(table)


        Try 'la suite n'est pas obligatoire
            Return DataS.Tables(table).DefaultView 'on demande au dataset de renvoyer la reponse de la requetesql sous forme de datagridview
        Catch ex As Exception
            Return Nothing
        Finally
            Select Case SourceOle.State
            Case ConnectionState.Open
                SourceOle.Close()
                SourceOle.Dispose()
                SourceOle = Nothing
        End Select
        End Try


    End Function

3 réponses

Messages postés
14788
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
1 mai 2021
155
Bonjour

Je te conseile plutot d'utiliser un objet Command et de récupérer un DataReader (voir MSDN).

if DataReader.Read() then 'Ne pas l'oublier, sinon c'est l'erreur assurée
    DataReader.GetString(0)
end if

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1
Mon site
Messages postés
532
Date d'inscription
lundi 5 juin 2006
Statut
Membre
Dernière intervention
6 octobre 2012
1
Salut...

Mais il n'y a aucune façon de récupérer l'info à partir d'ADO ou bien prendre la ligne aucomplet et la Spliter par la suite ????

merci
Messages postés
14788
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
1 mai 2021
155
Bonjour

Sinon dans ton DataSet, tu as des DataTable (.Tables(...)), tu as après les lignes (.Rows(...)) et ensuite, tu peux accéder au cellules (.Cells(...), je crois).

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1
Mon site