1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Option Explicit On
Imports System.Data.OleDb
Private Sub frmClient_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
<div style="margin-left:40px">Dim ma_Connexion As OleDbConnection
Dim ma_Command_Client As OleDbCommand
Dim ma_DataReader_Client As OleDbDataReader
ma_Connexion = New OleDbConnection()
ma_Connexion.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0;Data Source= D:\Appli\BD_Acces2000.mdb;"
ma_Connexion.Open()
ma_Command_Client = New OleDbCommand
ma_Command_Client.CommandType = CommandType.StoredProcedure
ma_Command_Client.CommandText = "rqtContact"
ma_Command_Client.Connection() = ma_Connexion
ma_DataReader_Client = ma_Command_Client.ExecuteReader
datagridview_Client.DataSource = ma_DataReader_Client</div>End Sub |
Partager