Discussion :

[lqayoub]

Salut !

J'ai un problème au mon projet de fin d'étude !
j'ai besoin d'un code vb qui m'à aidé pour relier le champs de dant_mal d' access avec les cas ç cocher de visual basic.net !
et merci ! : )

[jopopmk]

Salut,

... toi tu vas être bien reçu "j'ai besoin d'un code" n'a, à ma connaissance, jamais rien amené de bon.
De plus le titre de ton sujet devrait refléter le problème, pas son urgence ou son contexte.
Que ce soit pour le travail, l'école ou 4fun n'a pas vraiment d'importance.

Sinon qu'as-tu comme code actuellement ? Qu'as-tu essayé pour pallier ton problème ?

[Invité]

[ZenZiTone]

j'ai besoin d'un code vb qui m'à aidé pour relier le champs de dant_mal d' access avec les cas ç cocher de visual basic.net !

Tu as besoin de développer un code VB pour relier le champ x de ta base access à un composant logiciel (Winform sûrement).

Dans ce cas, on pourra t'aider si tu as des bloquages lors du développement ! Mais sûrement pas te donner une réponse toute faite

Tu peux dors et déjà regarder le tutoriel : Cours complet pour apprendre VB.NET

Il est très complet et aborde plus de sujet que ce dont tu as besoin, je te laisse fouiller et trouver tes réponses.

[lqayoub]

Voila M. @jopopmk

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
35
36
37
38
39
Dim rech As String = Txt_Rechercher.Text
        Dim sx, ea, dm As String
        Dim SQL_rech As String = "select * From T_Patient where Nom like '" & rech & "'"
        Dim cmd As New OleDbCommand(SQL_rech, maconnection)
        maconnection.Open()
        Dim dtred = cmd.ExecuteReader
        If dtred.Read = True Then
            Txt_CNI.Text = dtred.Item(1).ToString
            Txt_Nom.Text = dtred.Item(2).ToString
            Txt_Prenom.Text = dtred.Item(3).ToString
            DateTimePicker_Naissance.Value = dtred.Item(4).ToString
            Txt_Tele.Text = dtred.Item(5).ToString
            sx = Trim(dtred.Item(6).ToString)
            If sx = "Masculin" Then
                Rad_Musculin.Checked = True
            ElseIf sx = "Femminin" Then
                Rad_Femminin.Checked = True
            End If
            Txt_Adress.Text = Trim(dtred.Item(7).ToString)
            Cmb_NaturesOperation.Text = Trim(dtred.Item(8).ToString)
            Txt_Prix.Text = Trim(dtred.Item(9).ToString)
            Txt_Paiment.Text = Trim(dtred.Item(10).ToString)
            Txt_Reset.Text = Trim(dtred.Item(11).ToString)
            ea = Trim(dtred.Item(12).ToString)
            If ea = "Enfant" Then
                Rad_Enfant.Checked = True
            Else
                Rad_Adult.Checked = True
            End If
            dm = Trim(dtred.Item(13).ToString)
            If dm = "  like %55," Then
                Check_55.Checked = True
            End If
            If dm = "  like %54," Then
                Check_54.Checked = True
            End If
            If dm = " like %53," Then
                Check_53.Checked = True
            End If

[ebastien]

Bonjour,

Tu peux faire :

Code :

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

Check_55.Checked = dm.Contains("55")

Pense à la balise [CODE] (le dièse dans la barre d'outils)

[lqayoub]

Merci beaucoup
Desolé, Mais tu peux me aidé encore s'il te plait
maintenant je veux supprimer l'espase dans un champs sur accéss, par ce que, l'enregistrement qui enregistrer avec lui, il me faire beaucoup des problem sure la recherche !
ps : désolé pour mon niveaux de français !

[Invité]

Bonjour,

Txt_Nom.Text = dtred.Item(2).ToString.Trim!

Ça c'est du Vba pas du . Net!
ea = Trim(dtred.Item(12).ToString