Bonjour, s'il vous plait j'ai un probleme dans le reader,il s'agit d'établir une connexion à une base de données Access par le langage vb.net sur visual studio 2010 premium
Classe1
_______
Imports System.Data
Imports System.Data.OleDb
Namespace modeconnecte
Public Class connection
Public conn As New OleDbConnection
Public cmd As New OleDbCommand(rsql, conn)
Public dr As New OleDbDataReader
Public rsql As String
Public Sub ouvrir()
Try
conn.ConnectionString = "provider=Microsoft.Ace.OLEDB.12.0; Data source=D:\restaurant.accdb"
conn.Open()
Catch
MsgBox("erreur de connexion")
End Try
End Sub
Public Sub fermer()
conn.Close()
End Sub
End Class
Public Class Reader
Inherits connection
Public Sub chargerReader(ByRef rsql, ByRef dr)
Try
ouvrir()
cmd.CommandType = CommandType.Text
cmd.CommandType = rsql
dr = cmd.ExecuteReader()
Catch ex As Exception
MsgBox("erreur dans le reader")
End Try
End Sub
End Class
Public Class maj
Inherits connection
Public Sub Sauvegader(ByRef rsql)
ouvrir()
cmd.CommandType = CommandType.Text
cmd.CommandText = rsql
cmd.ExecuteNonQuery()
fermer()
End Sub
End Class
End Namespace
Form1
_____
Imports System.Data.OleDb
Imports WindowsApplication1.modeconnecte
Public Class Form1
Dim maconn As New connection
Dim monreader As New Reader
Dim mamaj As New maj
Dim rsql As String
Public datar As OleDbDataReader
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
rsql = "select CLIENT-CODE from CLIENT "
monreader.chargerReader(rsql, datar)
Do While datar.Read()
ListBox1.Items.Add(datar.GetString(0))
Loop
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load