Masea
Messages postés25Date d'inscriptionlundi 11 mai 2009StatutMembreDernière intervention31 décembre 2009
-
6 sept. 2009 à 05:21
Bonjour,
ds le cadre dun stage,on ma demandé de réaliser une application sur laffectation du materiel informatique au sein de la société
laplication existe deja,réalisé avec acces en vba...mon t ravail consiste a réaliser la meme mais avec vb.net..
je travaile ac visual studio 2005
jai realisé mon interface,exporté les table et conecter la base de données
faudrait que je travail sur le code mnt,et sur la fonction form_load...
voici le code que jai deja en vba access:
je suis pas bonne en vba!...deja ca ma pri bkp de temps de maitriser lvb.net...Et la je voi ke c different de vba....
je voudrai juste comprendre ce qui se passe ici,grossomodo
""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Option Compare Database
'Option Explicit
Dim dbs As DAO.Database
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
'Dim Menu As TreeView
'Dim RsRun As DAO.Recordset
Dim vMatCondition As String
Dim DesktopSelect As String
Dim LaptopSelect As String
Dim StationSelect As String
Dim EcranSelect As String
Dim PrinterSelect As String
Dim ScannerSelect As String
Dim ConsoSelect As String
Dim SelectOrder As String
Dim vwhere As String
Private vFileList(10, 1) As String
Private Sub Form_Load()
Set dbs = CurrentDb
SetSelects
FormInit
CadreInv.Value = 2
CadreInvMAJ
Set rs = dbs.OpenRecordset(Me.ComboBoxAgent.RowSource)
ComboBoxAgent.Value = rs.Fields(0).Value
CadreAgentMAJ
rs.Close
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""""
SetSelects est défini dans un module
formIniti et cadreInvMAJ sont des procedure définie dans form load