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

Per risolvere i problemi nei computer non c'è una scienza esatta, bisogna andare per tentativi.
Mte90,2009

Come Criptare un DataSet

Questo codice permette il criptaggio di un dataset.

Codice

     Dim ds As New DataSet
Try
dim str As string
str = "selest * from"+ txtTableName.Text.Trim
Dim da As new SqlDataAdapter(str, con)
Dim cb As New SqlCommandBuilder(da)
ds = New DataSet
da.Fill(ds)
Dim dt As DataTable
Dim dc As DataColumn
Dim dr As DataRow
For Each dr In ds.Tables(0).Rows
For Each dc in ds.Tables(0).Columns
if dc.DataType.ToString() = "System.String" then
If IsDBNull(dr(dc.Caption)) then
Else
dr(dc.Caption) = obj.EncriptData(dr(dc.Caption))
End if
End if
Next
da.Update(ds.Tables(0))
MsgBox("OK")
Catch ex As Exception
MsgBox(ex.ToString)
End Try

Basato su un codice di IoProgrammo modificato.

Autore : VB.NET_Program_91
Categoria : Vb.Net Tips & Tricks
Pubblicato : Martedì, 8 Aprile 2008 - 15:30
Ultima modifica : Sabato, 4 Luglio 2009 - 15:33
Pagina letta 1249 volte