Visual Basic

<br />
Private Sub ExportExcel(ByRef dt As DataTable) <br />
		Dim excelApp As New Excel.Application<br />
		Dim excelBook As Excel.Workbook = excelApp.Workbooks.Add<br />
		Dim excelWorksheet As Excel.Worksheet = _<br />
		CType(excelBook.Worksheets(1), Excel.Worksheet)<br />
		Dim dr As DataRow<br />
		Dim Row As Integer = 1<br />
		Dim Col As Integer = 1<br />
<br />
		excelApp.Visible = False<br />
		If dt.Rows.Count > 65536 Then<br />
			MessageBox.Show("Warning - Excel sheet can only have 65536 Rows" _<br />
			& ControlChars.NewLine & ControlChars.NewLine _<br />
			& 65536 - dt.Rows.Count & " Rows will be omitted")<br />
		End If<br />
		If dt.Columns.Count > 256 Then<br />
			MessageBox.Show("Warning - Excel sheet can only have 256 Rows" _<br />
			   & ControlChars.NewLine & ControlChars.NewLine _<br />
			   & 256 - dt.Columns.Count & " Columns will be omitted")<br />
		End If<br />
		With excelWorksheet<br />
			'Headings<br />
			For Col = 0 To dt.Columns.Count - 1<br />
				.Cells(1, Col + 1).Value = dt.Columns(Col).ColumnName<br />
				.Cells(1, Col + 1).Font.Bold = True<br />
				.Cells(1, Col + 1).ColumnWidth = Len(dt.Columns(Col).ColumnName) + 3<br />
			Next<br />
<br />
<br />
			.Range("A:Z").NumberFormat = "@" '(Text Format...)<br />
<br />
			Row = 2<br />
			Col = 0<br />
			'Data<br />
			Do While Row < dt.Rows.Count - 1 And Row < 65536<br />
				Do While Col <= dt.Columns.Count - 1 And Col < 255<br />
					.Cells(Row, Col + 1) = dt.Rows(Row - 2).Item(Col)<br />
					Col += 1<br />
				Loop<br />
				Col = 0<br />
				Row += 1<br />
			Loop<br />
		End With<br />
		excelApp.Visible = True<br />
	End Sub

mayhem_rules wrote:

Are there any examples for vb.net

andylimjp wrote:

1) Setup a WAN networking for ul/dl of sys OS images

andylimjp wrote:

2) Establish LAN peer to peer link to various levels in a company and also to a central database that is remotely located in another country.

Dim MyDataset As New DataSet<br />
Dim MyTable As New DataTable<br />
Dim sqlCN As SqlConnection<br />
Dim sqlda As SqlDataAdapter<br />
<br />
sqlCN = "... connection string... "<br />
sqlSql = "... SELECT Statement or Stored Procedure name ... "<br />
sqlda = New SqlDataAdapter(strSql, sqlCN)<br />
sqlda.Fill(MyDataset)<br />
<br />
MyTable = MyDataset.Tables(0)<br />
<br />
dgrMyGrid.DataSource = MyTable<br />

Public Enum EMoveMethod As UInt32
        FILE_BEGIN = 0
        FILE_CURRENT = 1
        FILE_END = 2
    End Enum
 
    <DllImport("kernel32.dll", SetLastError:=True)> _
    Shared Function SetFilePointer( _
        ByVal hFile As IntPtr, _
        ByVal lDistanceToMove As Integer, _
        ByRef lpDistanceToMoveHigh As IntPtr, _
        ByVal dwMoveMethod As EMoveMethod) _
        As System.UInt32
    End Function

    Public Const INVALID_SET_FILE_POINTER As Integer = -1