Discussion :

[walkone]

Bonjour à tous,

Je vous demande conseil car je suis en DUT GEII et j'ai quelques cours d'informatique.

On nous demande de rendre pour ce soir un mini programme (base de donnée access et l'utiliser via visual basic).

J'ai donc choisi de créer un mini répertoire téléphonique d'une entreprise (deux tables, une pour le personnel, l'autre pour les noms des services).

Et je ne sais pas du tout comment programmer le visual basic. Ce que je recherche est par exemple de taper le nom d'une personne via VB et de voir le numéro de téléphone ainsi que le nom de son service.

Pouvez vous me consacrer qq minutes à m'expliquer cela svp.

Merci d'avance,

Julien.

[loufab]

Bonjour,

Tu veux surement dire VB6 et Jet. J'ai déplacé ton post. On ne traite pas les demande VB6 dans la rubrique ACCESS.

Cordialement,

[walkone]

Bonjour,

oui je parle de VB6 mais je ne connais pas "jet"

J'ai vu sur internet qu'il faut que je coche dans la bibliothèque: microsoft activeX data object 2.x library" dans outils-reference de l'éditeur VBE

Mais où la trouve t'elle?

Cordialement

[loufab]

Jet est la base de données d'ACCESS. ACCESS N'EST PAS UNE BASE DE DONNEES, c'est un EDI.

Je te laisse entre les mains d'un spécialiste VB6.

[walkone]

Merci Loufab,

Personne pour m'aider en MP?

[ProgElecT]

Salut

Problème, je ne suis pas sûr que tu sois dans le bon forum.

J'ai vu sur internet qu'il faut que je coche dans la bibliothèque: microsoft activeX data object 2.x library" dans outils-reference de l'éditeur VBE

VBE serait plutôt du VB Express, VB 2003 et supérieur, si c'est le cas, le lien du forum est VB.Net (VB Express, VB 2003 et supérieur)
Cela peut aussi être du VBA, pour le savoir vérifies avec ce lien Comment savoir si l'on utilise VBA ou VB6 ?
La précision de l'outils de programmation que tu utilises permettra de t'apporter une aide adéquate.

Motif de l'edit:
Merci DarkVader , j'ai encore appris quelque chose

[DarkVader]

Bonjour,
Non, VBE est une classe permettant l'accès aux membres d'un projet vb,
rien à voir avec VB Express.

[walkone]

d'accord,

Donc que dois-je écrire en VB pour pouvoir appeler ma base de donnée pour mon répertoire téléphonique?

Merci

[walkone]

Pour le moment, j'ai fais cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim DtBase As ADODB.Connection
Dim rst As ADODB.Recordset
Dim chaine As String
 
Private Sub Form_Load()
 
chaine = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Julien\Desktop\Programme annuaire\annuaire.accdb;Persist Security Info=False"
 
Set DtBase = New ADODB.Connection
Set rst = New ADODB.Recordset
DtBase.Open chaine
Me.Refresh
 
End Sub

En faite dans ma base de donnée j'ai fais deux tables, une qui indique tout le service dans l'entreprise et dans l'autre tout les noms prénoms et numéro de téléphone des salariés.

J'aimerai taper un nom dans VB6 dans une Textbox et voir le numéro de téléphone.

Pouvez m'aider svp

[ProgElecT]

Salut
En adaptant, cela pourrait ressembler à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim Rqt As String
Rqt = "Select ChampsNumeroTelphone From TableSalarié Where ChampsNom  = '" & TextBox.Text & "'"
rst.Open Rqt, DtBase, adOpenStatic, adLockPessimistic
If rst.State = adStateClosed Then
    'pas trouvé dans la table
    MsgBox "N° téléphone non trouvé pour ce salarié"
    Else
    'trouvé
    MsgBox "N° téléphone: " & rst!ChampsNumeroTelphone
    rst.Close
End If

[walkone]

Comme cela?
Ca ne marche toujours pas

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
Private Sub Form_Load()
chaine = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Julien\Desktop\Programme annuaire\annuaire.accdb;Persist Security Info=False"
Set DtBase = New ADODB.Connection
Set rst = New ADODB.Recordset
DtBase.Open chaine
Me.Refresh
End Sub
 
Private Sub MsgBox_Change()
Dim Rqt As String
Rqt = "Select Telephone From Personnel Where Nom ='" & TextBox.Text & "'"
rst.Open Rqt, DtBase, adOpenStatic, adLockPessimistic
If rst.State = adStateClosed Then
    'pas trouvé dans la table
    MsgBox "N° téléphone non trouvé pour ce salarié"
    Else
    'trouvé
    MsgBox "N° téléphone: " & rst!Telephone
    rst.Close
 
End Sub

[ProgElecT]

En supposant que le TextBox pour l'entrée du nom du salarié à pour nom TextNomSalarier et un CommandButton nommé CmdRechercher

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
Option Explicit
 
Private Sub CmdRechercher_Click()
RechercherTelephone
End Sub
Private Sub TextNomSalarier_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then RechercherTelephone
End Sub
 
Public Sub RechercherTelephone()
Dim Rqt As String
Rqt = "Select Telephone From Personnel Where Nom ='" & TextNomSalarier.Text & "'"
rst.Open Rqt, DtBase, adOpenStatic, adLockPessimistic
If rst.State = adStateClosed Then
    'pas trouvé dans la table
    MsgBox "N° téléphone non trouvé pour ce salarié"
    Else
    'trouvé
    MsgBox "N° téléphone: " & rst!Telephone
    rst.Close
 End If
End Sub

[walkone]

Merci Beaucoup, mais ca ne fonctionne toujours pas:

Ca me met:

erreur d'execution '424'
Un objet est requis

Et quand je fais débogage cette ligne est surligné:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rst.Open Rqt, DtBase, adOpenStatic, adLockPessimistic

[ProgElecT]

Et si tu ajoutes à mon dernier code le code que tu soumets dans ton post 9, sa donne quoi?

Dans ton projet, fais tu bien référence (Alt + P, Alt + R) à Microsoft ActiveX Data Objects 2.0 Library?

[walkone]

si je rajoute le code du post 9:

Erreur d'execution '-2147217904 (80040e10)':
aucune valeur donnée pour un ou plusieurs des paramètres requis.

Et toujours le meme code de surligné

J'ai pas compris le Alt P et Alt R, mais auparavant, j'étais dans les références pour cocher la case Microsoft active x ......2.0 ......

[walkone]

CA MARCHE! j'ai modifié un petit truc.

Par contre si le numéro est pas trouvé il n'y a pas la phrase n° telephone non trouvé....

QUE FAIRE???


Merci