Progetti in corso...

> About Page 1.0b (Flatz-Cms)
> Conquistare il mondo (Sito)
> Prog Management 1.1.1 (Flatz-Cms)
> ToDo Box 1.2.5 (Flatz-Cms)
> Flatz-Cms 1.0 Alpha 2 (Flatz-Cms)

News dalla pagina

Download

Programmi degli utenti

Renamer: Guida e Plugin

Sorgenti degli Utenti

Collegamenti

Affiliati

  > AC Magazine
  > AppuntiSuLinux
  > Awid Team
  > DGXstyle
  > Program-92
  > Totem's Lair

Collaborazioni

  > Daisy
  > DJL
  > PHP-GTK.eu
  > WebFrd
  > WebSite Baker

New-CMS

  > New-Cms Wiki
  > VaniaRupeni
  > Xad

Chat

Loading...

Entra in Chat

Box Contatti

• Web-Mail

• Aggiungi contatto

• Skype me

Newsletter

Citazioni Informatiche

Ogni buon lavoro software nasce da un problema personale di uno sviluppatore.
Eric Steven Raymond

Come decriptare un DataSet

Il codice sottostante permette di decriptare un dataset.

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

Codice basato su un articolo di IoProgrammo modificato.

Autore : VB.NET_Program_91
Categoria : Vb.Net Tips & Tricks
Pubblicato : Mercoledì, 9 Aprile 2008 - 16:42
Ultima modifica : Sabato, 4 Luglio 2009 - 15:35
Pagina letta 1335 volte