Des functions dans les classes, est-ce le bon endroit?
Bonjour,
J'ai créé une fonction qui me donne le Identity Column d'un employé pour que je puisse garder une trace. J'ai sauvegardé cette fonction dans class1.vb
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
Imports Microsoft.VisualBasic
Imports System.Data.SqlClient
Partial Class UserInfoFunction
Protected Function GiveEmployeeId(ByVal NomUsager As String, ByVal MotPasse As String) As Int32
Dim connect As New SqlConnection("Data Source=SourceKekchose;Initial Catalog=bd;Persist Security Info=True;User ID=admin;Password=motpasse")
connect.Open()
Dim cmdRetrieveId As New SqlCommand("SELECT EmployeId FROM(tblEmploye) WHERE NomEmploye = '" & NomUsager & "' AND MotPasseEmploye = '" & MotPasse & "') ")
Dim id As Int32
id = cmdRetrieveId.ExecuteScalar
connect.Close()
GiveEmployeeId = id
End Function
End Class |
1ière question : est-ce le bon endroit?
2ième question : comment faire le lien avec ma page aspx?
Merci,
CWagon :aie:
À un cheveux de la réponse
Mon code semble o.k., mais je reçois toujours cette erreur :
System.InvalidOperationException: ExecuteReader: Connection property has not been initialized.
qui pointe sur la ligne Dim id As String = Convert.ToString...
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Public Class UserInfoFunction
Public Function GiveEmployeeId(ByVal NomUsager As String, ByVal MotPasse As String) As String
Dim connect As New SqlConnection("Data Source=SourceChose;Initial Catalog=bdComplicite;Persist Security Info=True;User ID=admin;Password=motpasse")
connect.Open()
Dim cmdRetrieveId As New SqlCommand("SELECT IdEmploye FROM [tblEmploye] " & _
"WHERE NomEmploye = '" & NomUsager & "' AND MotPasseEmploye = '" & MotPasse & "') ")
Dim id As String = Convert.ToString(cmdRetrieveId.ExecuteReader())
GiveEmployeeId = id
connect.Close()
End Function
End Class |
