Ecco subito il codice:
----------------------
Public Shared Function DecryptDataSet(ByVal ds As DataSet) As DataSet
Try
'Dim ds As New DataSet
'ds = inPutds
Dim dt As DataTable
Dim dc As DataColumn
Dim dr As DataRow
For Each dr In ds.Tables(0).Columns
if dc.DataType.ToString() = "System.String" Then
If IsDBNull(dr(dc.Caption)) then
Else
dr(dc.Caption) = obj.DecriptData(dr(dc.Caption))
End if
End if
Next
Next
Return ds
Catch ex As Exception
ErrorLog.LogError(ex)
MsgBox("Errore",MsgBoxStyle.Information, "Analisi GAP")
End Try
End Function
Decriptare Un DataSet
Pubblicato prima del 07/05/2008 - Informazione assente
Conoscenze Avanzate: C,VB.NET Base:Assembler MIPS,HTML,PHP,CSS,JavaScript. Stò imparando il C# e Java
|
Aggiungi un commento