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
| Public Function GetListePatients(ByVal service As String) As Integer
Dim Obj As New VbDCom001.VbDCom001_Connexion("CLB5_SQL1")
Dim Cnx As System.Data.SqlClient.SqlConnection
Dim ps As New VbDCom001.VbDCom001_ProcStock()
utilisateur.FindByIdent(serveurCAS.username.ToUpper)
Try
If Obj.VbDCom001_Init_Connexion() = "" Then
Cnx = Obj.VbDCom001_Get_Connexion()
ps.VbDCom001_Procedure("GSejours_FctCommunes_PO", Cnx)
' ps.VbDCom001_Parameter("date", Data.SqlDbType.Char, DateTime.Now.ToString("dd/MM/yyyy"))
ps.VbDCom001_Parameter("appel", Data.SqlDbType.Char, "16")
ps.VbDCom001_Parameter("serv", Data.SqlDbType.Char, service)
Ds = ps.VbDCom001_Fill()
Else
End If
Obj.VbDCom001_Close_Connexion()
Catch ex As Exception
End Try
Return Ds.Tables(0).Rows.Count
End Function |
Partager