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
   | Imports System.IO
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
Imports System.Management
 
 
Module Module1
 
'déclaration pour choix du clavier (FR - ENG - AR - GER -...)
    Public Declare Function LoadKeyboardLayout Lib "user32.dll" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Integer) As Integer
 
    Public Cn As New OleDb.OleDbConnection("Provider=MicroSoft.ACE.OleDb.12.0; Data Source =D:\MaBase.accdb")
'D: Lecteur où se trouve la Base (Local ou Réseau)
 
    Public Cmd As New OleDb.OleDbCommand
    Public Dr As OleDb.OleDbDataReader
    Public Da As New OleDb.OleDbDataAdapter
    Public Dt As New DataTable
    Public Ds As New DataSet
    Public CmdBuild As OleDbCommandBuilder
 
    Public ReqSQL, VUserName As String
    Public VDIN, VDOut As Date
    Public VIDUser As Integer
 
 
End Module | 
Partager