Discussion :

[toulmek]

salut,
j'essay de lire une base de données grace à un data reader et afficher le resultat dans des textbox mais je reçoi l'erreur suivante:

'System.Data.OleDb.OleDbDataReader.Friend Sub New(connection As System.Data.OleDb.OleDbConnection, command As System.Data.OleDb.OleDbCommand, depth As Integer, commandBehavior As System.Data.CommandBehavior)' is not accessible in this context because it is 'Friend'.

le code est le suivant :

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
22
23
24
25
26
27
28
29
30
31
32
33
Imports System.Data.OleDb
 
 
Public Class Form1
 
 
    Dim dar As New OleDb.OleDbDataReader
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myConnection As OleDbConnection
        Dim myCommand As OleDbCommand
 
        Dim str As String
        str = "select indice, indice_spec from dossier where num_dossier=" & TextBox1.Text
        'declaration
        myConnection = New OleDbConnection("Provider=MSDAORA.1;UserID=SYSTEM;password=tarik; database=XE")
        'MSDORA is the provider when working with Oracle
 
        Try
            myConnection.Open()
            myCommand = New OleDbCommand(str, myConnection)
            'executing the command and assigning it to connection
            dar = myCommand.ExecuteReader()
            While dar.Read()
                TextBox2.Text = dar.Item("indice")
                TextBox3.Text = dar.Item("indice_spec")
 
            End While
            dar.Close()
            myConnection.Close()
        Catch y As Exception
        End Try
     end sub
  end class

et merçi de votre aide

[Hinault Romaric]

Salut,

Bienvenue sur le forum avant de poste tu devrais lire les réglés du forum et utiliser les balises code lorsque tu veut poster un code.

En ce qui concerne ton problème le mot clé new ne doit pas être utiliser pour déclarer un DataReader.

Code :

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

1
2
 
Dim dar As OleDbDataReader

[toulmek]

oui désolé je suis nouveau au forum,
et merçi, cela semble marcher à present

[Hinault Romaric]

oui désolé je suis nouveau au forum,
et merçi, cela semble marcher à present

, N'oublie pas le tag