Mode connecte vb.net

Fermé
safa - 29 avril 2012 à 16:24
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

End Sub
End Class

Aidez moi s'il vous plait :((