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
| Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim ConStr As String = "Provider=Microsoft.Jet.OleDb.4.0 ; Data Source= " & Application.StartupPath & "\Bijouterie.mdb"
Dim con As New OleDbConnection(ConStr)
Dim ds As New DataSet
Dim Sql1 As String = "SELECT * FROM Client"
Dim Sql2 As String = "SELECT * FROM Produit"
Dim Sql3 As String = "SELECT * FROM Details_Achat"
Dim Sql4 As String = "SELECT * FROM Details_Payement"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con.Open()
Dim da1 As New OleDbDataAdapter(Sql1, con)
Dim da2 As New OleDbDataAdapter(Sql2, con)
Dim da3 As New OleDbDataAdapter(Sql3, con)
Dim da4 As New OleDbDataAdapter(Sql4, con)
ds.Clear()
da1.Fill(ds, "Client")
da2.Fill(ds, "Produit")
da3.Fill(ds, "Details_Achat")
da4.Fill(ds, "Details_Payement")
con.Close() |
Partager