Bonjour a tous,
Bon bien évidement après une connexion a une base de donnée, faut bien faire des requêtes...
Alors je voudrais savoir comment on procède pour exécuter une requête vers Access avec ADODB:
J'ai une table sous Access Log qui a trois Champs: Nom, Password et Post
Je voudrai faire un formulaire d'identification. Dans ce formulaire j'ai deux text box et deux boutons. Le principe est simple je récupère les valeurs entrées dans mes text box (ce sera mes critères crit1 pour Nom et crit2 pour le Mdp)
et je fais mon SELECT mais je ne sais pas trop comment m'y prendre...
Voici ce que j'ai commencé a faire
Mon algo n'est peut être pas optimum... Si vous avez mieux je suis preneur...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 Dim connexion As ADODB.Connection Dim crit1 As String, crit2 As String, Utili As String, Pass As String, crit As String connexion = New ADODB.Connection connexion.Provider = "Microsoft.ACE.OLEDB.12.0" connexion.ConnectionString = "C:\...\Base2.accdb" Dim requete As ADODB.Connection requete = New ADODB.Command Utili = login.Text Pass = Mdp.Text crit1 = "Log" & "." & "Nom" & " Like """ & Utili & """" crit2 = "Log" & "." & "Password" & " Like """ & Pass & """" crit = crit1 & " And " & crit2 requete.CommandText = "SELECT Post FROM Log WHERE" & crit connexion.Open() 'Fait un test 'If (valeur de requete.CommandeText = "Admin") Then ' Admin.ShowDialog() 'End If 'If (valeur de requete.CommandeText = "ChefProj") Then ' ChefProj.ShowDialog() 'End If 'If (valeur de requete.CommandeText = "TeamProject") Then ' TeamProject.ShowDialog() 'End If connexion.Close()
Merci d'avance...
Je suis sous Visual Basic 2008 Express Edition et Office 2007
Cordialement,
Vincent
Partager