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 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75
| #Region "Importation des espaces de noms"
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
#End Region
Public Class frmBA2
Inherits System.Windows.Forms.Form
#Region " Code généré par le Concepteur Windows Form "
Public Sub New()
MyBase.New()
'déclaration de la connexion
Public cnn As OleDbConnection
'Déclaration de la variable pour le dataadapter
Public dta As OleDbDataAdapter
'Déclaration de la variable pour la commande
Private cmd As OleDbCommand
'Déclaration de la variable pour le dataset
Private dts As New DataSet
'Déclaration de la variable pour la requête
Private sql As String
'Déclaration de la variable pour la datatable
Private dtt As DataTable
'Déclaration de la variable pour le datarow
Private dtr As DataRow
'Déclaration de la variable pour le Nº de lenregistrement
Private rownum As Integer
'Déclaration de la variable pour la connectionstring
Private cnxstr As String
'Déclaration de la variable pour le commandbuilder
Private cmdb As OleDbCommandBuilder
Private Sub frmBA1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'ouverture de la connection(à partir du répertoire de l'application)sur la même ligne
cnxstr = "provider = microsoft.jet.oledb.4.0 ; data source = " & Application.StartupPath & "\delibes.mdb;"
cnn = New OleDbConnection
cnn.ConnectionString = cnxstr
cnn.Open()
'Création de la requête sql
sql = "select [MatriculeBA2s1],[NomBA2s1],[PrenomBA2s1],[BIOLJ201BATHTP2s1],[BMOLJ201BA2s1], MEDIJ201BA2THs1,BA2TRANJ201THs1,PHARJ201BA2THs1,CHIMJ201BA2THs1,TRANJ202BA2s1,STATJ201BA2THEXs1,INFOJ201BA2EXs1,PHARJ202EX,BA2BMOLJ201BA2TPs1,BA2BMOLJ202THS1,BA2BMOLJ202TPS1,MEDIJ201BA2EXs1,PHARJ201TPS1 from BA2_S1 ORDER BY [NomBA2s1]"
'Création de la commande et on l'instancie (sql)
cmd = New OleDbCommand(sql)
'Création du dataadapter (dta) et on l'instancie (cmd)
dta = New OleDbDataAdapter(cmd)
'On instancie la commande (cmd) à la connection (cnx)
cmd.Connection() = cnn
'On charge le dataset (dts) grace à la propriété fill du dataadapter (dta)
dta.Fill(dts, "BA2_S1")
'On charge la datatable (dtt) grace à la propriété tables du dataset (dts)
dtt = dts.Tables("BA2_S1")
DataGrid1.SetDataBinding(dts, "BA2_S1")
dts.WriteXml("c:\datasetenXML.xml")
End Sub |
Partager