Discussion :

[Nverder]

Bonjour,

Je travaille sur VS2008 à partir d'une BDD Access.

Je souhaite alimenter une TextBox à partir d'un Datareader filtré ainsi: SELECT * FROM MaTable WHERE MonChamp ='MaValeurdeChamp'

Je pense que mon erreur se trouve dans la ligne suivante ( ou "ObjetDataRow("MonChamp")" n'existe pas)

Me.TextBox1.Text = ObjetDataRow("MonChamp")

Voici l'intégral de mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
'RowNumber correspond à 
 
           MyConnexion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _
            "C:\Program Files\MonProg\MonDossier\" & NomBase)
            Mycommand = MyConnexion.CreateCommand()
 
            Mycommand.CommandText = "SELECT * FROM MaTable WHERE MonChamp ='MaValeurdeChamp'"
 
            Try
                MyConnexion.Open()
            Catch ex As Exception
                MsgBox("impossible d'ouvrir la base : " & NomBase, MsgBoxStyle.Exclamation)
                MsgBox(ex.Message)
                MyConnexion.Close()
            End Try
            MyReader = Mycommand.ExecuteReader(CommandBehavior.CloseConnection)
            Me.TextBox1.Text = ObjetDataRow("MonChamp")
            MyReader.Close()
            MyReader.Dispose()
            MyConnexion.Close()

Si vous pouviez m'aider à trouver la bonne syntaxe.
D'avance merci pour vos réponses

Nverder

[peregna2007]

Salut,

Essaie ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 Dim MyConnexion As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _
            "C:\Program Files\MonProg\MonDossier\" & NomBase)
 
        Dim Mycommand As New OleDb.OleDbCommand("SELECT * FROM MaTable WHERE MonChamp='" & Trim(MaValeurdeChamp) & "'", MyConnexion)
        Dim MyReader As OleDb.OleDbDataReader
 
 
        Try
            MyConnexion.Open()
        Catch ex As Exception
            MsgBox("impossible d'ouvrir la base : " & NomBase, MsgBoxStyle.Exclamation)
            MsgBox(ex.Message)
            MyConnexion.Close()
        End Try
        MyReader = Mycommand.ExecuteReader()
        TextBox1.Text = MyReader!MonChamp
 
        MyReader.Close()
        MyReader.Dispose()
        MyConnexion.Close()

[WOLO Laurent]

Ou encore :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.TextBox1.Text = ObjetDataRow("MonChamp").ToString()

Etes-vous sûr que le champs existe ?

[mactwist69]

Mais surtout ou est le lien entre le reader et objetdatarow ?

[WOLO Laurent]

Excellente question , je n'ai même pas vu ca.
Désolé.

[Nverder]

Merci pour vos réponses,

peregna2007 m'a donné la solution. La ligne de code est donc la suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox1.Text = MyReader!MonChamp

Cordialement

Nverder