Discussion :

[toumack]

Bonjour,
J'ai un formulaire nommé "ACLoginForm" ou il y a 2 champs nommés "FirstName1" et "LastName1". Je voudrais qu'en activant ce formulaire ces 2 champs soient automatiquement mis à jour avec les données de la requête SQL.

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
40
41
42
43
44
45
46
47
Imports System.Data.SqlClient
 
Public Class SqlControl
    Private ReadOnly SQLCon As New SqlConnection With {.ConnectionString = "Server=CLAUDE-PC\AUTOCAISSESQL;database=ACData;User=sa;Pwd=mANONbENOIT1954***;"}
    Private SQLcmd As SqlCommand
    Public SQLDA As SqlDataAdapter
    Public SQLDS As DataSet
 
    Public Function HasConnection() As Boolean
        Try
            SQLCon.Open()
 
            SQLCon.Close()
            Return True
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        Return False
 
    End Function
 
    Public Sub RunQuery(Query As String)
        Try
            SQLCon.Open()
 
            'CREATE COMMAND
            SQLcmd = New SqlCommand(Query, SQLCon)
 
            'FILL DATASET
            SQLDA = New SqlDataAdapter(SQLcmd)
            SQLDS = New DataSet
            SQLDA.Fill(SQLDS)
 
            SQLCon.Close()
 
        Catch ex As Exception
            MsgBox(ex.Message)
 
            'MAKE SURE CONNECTION IS CLOSE
            If SQLCon.State = ConnectionState.Open Then
                SQLCon.Close()
            End If
        End Try
    End Sub
 
End Class

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
Imports System.Data.SqlClient
Public Class ACLoginForm
    Private ReadOnly SQL As New SqlControl
    Private AuthUser As String
    Dim ReadOnly firstvalue As Decimal
    Dim ReadOnly secondvalue As Decimal
    Dim ReadOnly answer As Decimal
    Dim ReadOnly operations As String
    Public SQLDS As DataSet
 
    Private Sub CmdLogin_Click(sender As Object, e As EventArgs) Handles cmdLogin.Click
        If SQL.HasConnection = True Then
            If IsAuthenticated() = True Then
                AuthUser = txtUser.Text
                txtUser.Clear()
                txtPass.Clear()
                ShowPasswordCheckBox.Checked = False
 
                Me.Hide()
 
                Dim formMain As New MainForm
                formMain.ShowDialog()
            End If
        End If
    End Sub
 
    Private Function IsAuthenticated() As Boolean
        'CLEAR EXISTING RECORD
        If SQL.SQLDS IsNot Nothing Then
            SQL.SQLDS.Clear()
        End If
 
        SQL.RunQuery("SELECT Count(username) As UserCount " & _
                     "FROM UserLogin " & _
                     "WHERE username = '" & txtUser.Text & "' " & _
                     " AND password ='" & txtPass.Text & "' COLLATE SQL_Latin1_General_CP1_CS_AS ")
 
        If SQL.SQLDS.Tables(0).Rows(0).Item("UserCount") = 1 Then
           'MsgBox("Valid user credentials, WELCOME in AUTO Cash register!", MsgBoxStyle.Critical, "LOGIN SUCCESS")
            Return True
        Else 
           'MsgBox("Invalid user credentials, please try again!", MsgBoxStyle.Critical, "LOGIN FAILED")
        Return False
        end if
    End Function
 
    Private Function Empl1Exist() As Boolean
        'CLEAR EXISTING RECORD
        If SQL.SQLDS IsNot Nothing Then
            SQL.SQLDS.Clear()
        End If
 
        SQL.RunQuery("SELECT Count(AutoID) As DataCount " & _
                     "FROM Empl1Query ")
 
        If SQL.SQLDS.Tables(0).Rows(0).Item("DataCount") = 1 Then
            Return True
        Else 
            Return False
        end if
    End Function
 
        Private Sub AcLogin_Activated(ByVal sender As Object, _
                                  ByVal e As System.EventArgs) Handles MyBase.Activated
        If Empl1Exist() = True then
 
            Empl1.BackgroundImage = My.Resources.EMPL1
            SQL.RunQuery("SELECT AutoID, FirstName, LastName, Active FROM Employees WHERE AutoID = 1 And Active =1")
 
                    'Me.FirstName1.Text = SQL.SQLDS("FirstName").ToString() ' I tried this and no success FOR NOTE ONLY
                    'Me.LastName1.Text = SQL.SQLDS("LastName").ToString() ' I tried this and no success FOR NOTE ONLY
 
            Me.FirstName1.Text = "Claude"
            Me.LastName1.Text = "Larocque"
        Else
            Empl1.Visible=False
            Me.FirstName1.Visible=False
            Me.LastName1.Visible=False
        End If
 
    End Sub
 
    Private Sub OpenRegisterFormLinkLabel_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles OpenRegisterFormLinkLabel.LinkClicked
        RegisterForm.ShowDialog()
    End Sub
 
    Public Sub ShowPasswordCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles ShowPasswordCheckBox.CheckedChanged
 
        With ShowPasswordCheckBox
 
            If .Checked Then
                txtPass.UseSystemPasswordChar = False
            Else
                txtPass.UseSystemPasswordChar = True
            End If
 
        End With
 
    End Sub
 
    Private Sub BtnCancel_Click(sender As Object, e As EventArgs) Handles BtnCancel.Click
        application.Exit()
    End Sub
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Label1.Text = "0" Then
            Label1.Text = "1"
        Else 
            Label1.Text = Label1.Text + "1"
        End If
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If Label1.Text = "0" Then
            Label1.Text = "2"
        Else 
            Label1.Text = Label1.Text + "2"
        End If
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If Label1.Text = "0" Then
            Label1.Text = "3"
        Else 
            Label1.Text = Label1.Text + "3"
        End If
    End Sub
 
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If Label1.Text = "0" Then
            Label1.Text = "4"
        Else 
            Label1.Text = Label1.Text + "4"
        End If
    End Sub
 
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        If Label1.Text = "0" Then
            Label1.Text = "5"
        Else 
            Label1.Text = Label1.Text + "5"
        End If
    End Sub
 
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        If Label1.Text = "0" Then
            Label1.Text = "6"
        Else 
            Label1.Text = Label1.Text + "6"
        End If
    End Sub
 
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        If Label1.Text = "0" Then
            Label1.Text = "7"
        Else 
            Label1.Text = Label1.Text + "7"
        End If
    End Sub
 
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        If Label1.Text = "0" Then
            Label1.Text = "8"
        Else 
            Label1.Text = Label1.Text + "8"
        End If
    End Sub
 
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        If Label1.Text = "0" Then
            Label1.Text = "9"
        Else 
            Label1.Text = Label1.Text + "9"
        End If
    End Sub
 
    Private Sub ButtonOK_Click(sender As Object, e As EventArgs) Handles ButtonOK.Click
        Me.txtPass.Text = Label1.Text
        Me.Label1.Text="0"
    End Sub
 
End Class

Merci de votre aide
Claude du Québec, Canada

[Phil Rob]

Bonjour,

Ne suffit-il pas de mettre le code de la procédure CmdLogin_Click(...) dans la procédure CmdLogin_Load(... ) ?

[toumack]

Bonjour,
Je ne suis pas certain, le bouton CmdLogin_click c'est justement pour poursuivre le programme, lorsque l'utilisateur clique sur ce bouton il est authentifié et ensuite un autre formulaire s'ouvre.

J'ai du mal à saisir quel code devrais-je placer sur CmdLogin_Load?

Merci de me répondre
Claude

[Phil Rob]

Dans Load, le code qui recherche dans la DB les infos que tu veux afficher ...., si j'ai bien compris ta demande.

[toumack]

Bonjour,
Vu que je suis un expert en VBA et que je reprogramme mon logiciel de caisse avec SQL Server et vb.net, je saisis assez rapidement, par contre, je commence en vb.net et comme tu as pu le constater, je me débrouille, cependant en étudiant mon code que j'ai affiché, est-ce que tu pourrais me suggérer quel code exactement je devrais inscrire sur le LOAD event?

Merci de ta compréhension.

Claude

[Phil Rob]

J'y regarderai mais seulement en fin d'après-midi
Bonne journée en attendant ...

Une question : ton code du bouton te donne-t-il satisfaction ?

[youtpout978]

Hello,

2 recommandations, premièrement utilise des requêtes paramétré pour des raisons de sécurité : https://webman.developpez.com/articl...ameter/csharp/

deuxièmement, je ne vois nul part ou tu récupères le résultat de ta requête pour l'afficher dans ton tableau, soit tu utilises le dataadapter comme j'ai vu dans ton code soit le datareader :https://docs.microsoft.com/en-us/dot...g-a-datareader

Sinon tu peux passer pas un ORM comme entity framework pour te faciliter la tache, ou dapper qui te permet de pas te taper le binding à la main

[toumack]

Bonjour,
Vu que je n'ai pas réussi à mettre à jour les champs FirstName1 et LastName1 avec code, j'ai donc inscrit FirstName1 = "Claude" et LastName1 = "Larocque"
Ce que je cherche c'est que ces 2 champs FirstName1 et LastName1 reçoivent les données de la requête soit les champs FirstName et LastName

En espérant avoir été plus clair

Merci de votre aide

Claude

[youtpout978]

regarde dans le deuxième lien envoyé comment faire ça

[Phil Rob]

Bonjour,

Comme annoncé, je me suis "penché" sur ton problème cet après-midi. Comme ton code est assez complexe, j'ai préféré écrire les codes spécifiques compte tenu de la question posée.
Si ta requête SQL est correcte, la procédure suivante (LitNomPrenom()), qui utilise un DataReader, devrait réaliser ce que tu demandes.

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
 
    Private Sub LitNomPrenom()
 
        Dim MaConnexion As New SqlConnection
        Dim MaCommande As New SqlCommand
 
        MaConnexion.ConnectionString = "Server=CLAUDE-PC\AUTOCAISSESQL;database=ACData;User=sa;Pwd=mANONbENOIT1954***;"
        MaConnexion.Open()
 
        MaCommande = MaConnexion.CreateCommand()
        MaCommande.CommandType = CommandType.Text
        MaCommande.CommandText = "SELECT AutoID, FirstName, LastName, Active FROM Employees WHERE AutoID = 1 And Active =1"
 
        Dim MesPersonnes As SqlDataReader     ' Déclaration d'un objet DataReader
        MesPersonnes = MaCommande.ExecuteReader()   ' La requête SELECT * retourne DES valeurs
        Do While MesPersonnes.Read          ' qui sont stockées dans l'objet DataReader !!! Il n'y ici qu'un seul enregistrement, EN PRINCIPE
            Me.FirstName1.Text = MesPersonnes.Item(1)
            Me.LastName1.Text = MesPersonnes.Item(2)  ''''(AutoID à l'idx 0, FirtsName à l'Idx 1, ....)
        Loop
        MesPersonnes.Close()
        MaCommande.Dispose()
        MaConnexion.Close()
    End Sub

Et le Form_load :

Code :

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

1
2
3
4
 
    Private Sub CmdLogin_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       LitNomPrenom()
    End Sub

J'espère que ceci te permettra d'avancer ...

[toumack]

Avec ta direction, j'ai réussi du premier coup, il s'agissait de suivre tes conseils.

C'est grâce à des personnes comme toi qu'un débutant peut avancer, MERCI!!!
Je vais poster mon code lorsque j'aurai terminé mon formulaire.

Bravo!
Je vais ouvrir une autre discussion car il y a 42 FirstName et 42 LastName text boxes sur le formulaire ACLoginForm
De plus dans mon module SQLControl, j'ai ma connection string, j'ai besoin de plus d'info…

Nouvelle discussion : Réduire le code SVP

Claude

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
    Private sub ReadFirstLastName()
            Dim SQLCon As New SqlConnection With {.ConnectionString = "Server=CLAUDE-PC\AUTOCAISSESQL;database=ACData;User=programmeur;Pwd=mANONbENOIT1954;"}
    Dim SQLcmd As SqlCommand
    Dim READER As SqlDataReader
    Try
      	SQLCon.Open()
	Dim Query As String
	Query = "SELECT AutoID, FirstName, LastName, Active FROM Employees WHERE AutoID = 1 And Active =1"
	SQLcmd = New SqlCommand(Query, SQLCon)
	READER = SQLcmd.ExecuteReader   
	While READER.Read
		'Dim sName = READER.GetString("FirstName, LastName")
		Me.FirstName1.Text = READER.Item(1)
        Me.LastName1.Text = READER.Item(2)
	End While
	SQLCon.Close()
Catch ex As Exception
	MessageBox.Show(ex.Message)
Finally
	SQLCon.Dispose()
End try
    End sub
 
Private Sub ACLoginForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ReadFirstLastName()
End Sub