Luigi Melisi » New

[VB.NET] : Popolare una DataTable con un file CVS

Luigi Melisi — Sat, 20 Mar 2010 00:54:39 +0000

Di seguito un semplice esempio che mostra come popolare un DataTable utilizzando Vb.Net :

Function ReadCSV(ByVal path As String) As System.Data.DataTable
Dim sr As New StreamReader(path)
Dim fullFileStr As String = sr.ReadToEnd()
sr.Close()
sr.Dispose()
Dim lines As String() = fullFileStr.Split(ControlChars.Lf)
Dim recs As New DataTable()
Dim sArr As String() = lines(0).Split(","c)
For Each s As String In sArr
recs.Columns.Add(New DataColumn())
Next
Dim row As DataRow
Dim finalLine As String = ""
For Each line As String In lines
row = recs.NewRow()
finalLine = line.Replace(Convert.ToString(ControlChars.Cr), "")
row.ItemArray = finalLine.Split(","c)
recs.Rows.Add(row)
Next
Return recs
End Function

[VB.NET] : Accesso in lettura ad una DataTable

Luigi Melisi — Sat, 20 Mar 2010 00:50:35 +0000

Function ReadAccess(ByVal sqlString As String, ByVal path As String) As System.Data.DataTable
Dim strConn As String = _"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";"
Dim recs As New Data.DataTable()
DIm sql As New OleDbDataAdapter(sqlString, strConn)
sql.Fill(recs)
Return recs
End Function

[VB.NET] : Individuare tutte le stampanti installate

Luigi Melisi — Sat, 20 Mar 2010 00:45:01 +0000

Protected Overrides Sub ChargeImpresoras()
Dim lPrintDoc As New Printing.PrintDocument
Dim lPrinter As Object
For Each lPrinter In PrinterSettings.InstalledPrinters
cboPrinters.Items.Add(lPrinter)
Next
End Sub