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 |