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
|
Private Function LireDataRow(ByVal Cmd As OleDbCommand) As DataRow
Dim Cnx As OleDbConnection = Nothing
Dim dta As OleDbDataAdapter
Dim dts As DataSet
If Nothing Is Cmd Then
Throw New NullReferenceException("Cmd doit être renseigné.")
End If
Try
Cnx = EtablirConnection()
Cmd.CommandType = CommandType.Text
Cmd.Connection = Cnx
dta = New OleDbDataAdapter(Cmd)
dts = New DataSet
dta.Fill(dts)
If dts.Tables(0).Rows.Count = 1 Then
Return dts.Tables(0).Rows(0)
Else
Return Nothing
End If
Catch ex As Exception
Throw New Exception("Erreur lors de la lecture de la table USERS" & Environment.NewLine & ex.Message)
Finally
'# Un peu de nettoyage...
If Not Nothing Is Cnx Then
Cnx.Close()
End If
End Try
End Function
Private Function LireDataRow(ByVal Cmd As OleDbCommand) As DataRow
Dim Cnx As OleDbConnection = Nothing
Dim dta As OleDbDataAdapter
Dim dts As DataSet
If Nothing Is Cmd Then
Throw New NullReferenceException("Cmd doit être renseigné.")
End If
Try
Cnx = EtablirConnection()
Cmd.CommandType = CommandType.Text
Cmd.Connection = Cnx
dta = New OleDbDataAdapter(Cmd)
dts = New DataSet
dta.Fill(dts)
If dts.Tables(0).Rows.Count = 1 Then
Return dts.Tables(0).Rows(0)
Else
Return Nothing
End If
Catch ex As Exception
Throw New Exception("Erreur lors de la lecture de la table USERS" & Environment.NewLine & ex.Message)
Finally
'# Un peu de nettoyage...
If Not Nothing Is Cnx Then
Cnx.Close()
End If
End Try
End Function
Private Function LireDataRow(ByVal Cmd As OleDbCommand) As DataRow
Dim Cnx As OleDbConnection = Nothing
Dim dta As OleDbDataAdapter
Dim dts As DataSet
If Nothing Is Cmd Then
Throw New NullReferenceException("Cmd doit être renseigné.")
End If
Try
Cnx = EtablirConnection()
Cmd.CommandType = CommandType.Text
Cmd.Connection = Cnx
dta = New OleDbDataAdapter(Cmd)
dts = New DataSet
dta.Fill(dts)
If dts.Tables(0).Rows.Count = 1 Then
Return dts.Tables(0).Rows(0)
Else
Return Nothing
End If
Catch ex As Exception
Throw New Exception("Erreur lors de la lecture de la table USERS" & Environment.NewLine & ex.Message)
Finally
'# Un peu de nettoyage...
If Not Nothing Is Cnx Then
Cnx.Close()
End If
End Try
End Function |
Partager