Post con tag New

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

20 mar

Pubblicato da Luigi Melisi in Tips and Tricks

Nessun commento

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

  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

20 mar

Pubblicato da Luigi Melisi in Tips and Tricks

Nessun commento

1
2
3
4
5
6
7

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

20 mar

Pubblicato da Luigi Melisi in Tips and Tricks

Nessun commento

1
2
3
4
5
6
7

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

, , , , , , , , , , , , , , ,