Open and Edit Cells in an Excel 2007 file in VB.NET

http://vb.net-informations.com/excel-2007/vb.net_excel_2007_open_file.htm

Open an Excel File in .net

Dim xlApp As Microsoft.Office.Interop.Excel.Application
Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
xlApp = New Microsoft.Office.Interop.Excel.ApplicationClass
xlWorkBook = xlApp.Workbooks.Open(strpath)
xlWorkSheet = xlWorkBook.Worksheets("sheet1")
xlWorkBook.Application.Visible = True

Sub reports in crystal reports

http://aspalliance.com/1673_Creating_SubReports_Using_Crystal_Reports.all

Removing duplicate records from datatable in ADO.NET

private DataTable RemoveDuplicates(DataTable dt)
{
DataTable dtUnique = new DataTable();
dtUnique = dt.Clone();
DataColumn[] coln = new DataColumn[dt.Columns.Count];
dtUnique.Columns.CopyTo(coln, 0);
dtUnique.PrimaryKey = coln;
DataRow[] drs = new DataRow[dt.Rows.Count];
dt.Rows.CopyTo(drs, 0);

foreach (DataRow dr1 in drs)
{
if (dtUnique.Rows.Contains(dr1.ItemArray))
dt.Rows.Remove(dr1);
else
dtUnique.Rows.Add(dr1.ItemArray);
}
dt.Dispose();
drs = null;
coln = null;

return dtUnique;
}

Exporting PDF format type crystal reports to disk file in vb.net 2.0

Public Sub ReportDocumentDetails(ByVal rptPath As String, ByVal reportname As String, ByVal dtReport As DataTable, _
ByVal arListName As System.Collections.ArrayList, ByVal arListValue As System.Collections.ArrayList)
Dim rptViewer As New CrystalDecisions.Windows.Forms.CrystalReportViewer()
Dim ds As DatasetReport = New DatasetReport


Dim rptdoc As CrystalDecisions.CrystalReports.Engine.ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument
rptdoc.Load(rptPath)
rptdoc.SetDataSource(CType(dtReport, DataTable))
If (arListName.Count = arListValue.Count) Then
For i As Integer = 0 To arListName.Count - 1
rptdoc.SetParameterValue(arListName(i).ToString, arListValue(i))
Next
End If


Dim objExOpt As CrystalDecisions.Shared.ExportOptions
Dim objDiskOpt As New CrystalDecisions.Shared.DiskFileDestinationOptions
objDiskOpt.DiskFileName = "F:\nath\" & reportname & ".pdf"
objExOpt = rptdoc.ExportOptions
objExOpt.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile
objExOpt.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableDocFormat
objExOpt.DestinationOptions = objDiskOpt
rptdoc.Export(objExOpt)
rptdoc.Close()


End Sub

Generic list in vb.net

Public Function GenearicList1(ByVal parFromDate As String, ByVal parToDate As String, ByVal bondvalueFrom As String, _
ByVal bondvalueTo As String, ByVal broker As String, ByVal businessName As String) As System.Collections.Generic.List(Of TB.Props.clsPropBondNotAcceptedReport)
Dim OleDbCon As OleDbConnection = Nothing
Dim OleDbDA As OleDbDataAdapter = Nothing
Dim dt As DataTable = Nothing
Dim objProp As TB.Props.clsPropBondNotAcceptedReport = Nothing

Try
Dim objLsit As New System.Collections.Generic.List(Of TB.Props.clsPropBondNotAcceptedReport)
OleDbCon = TB.CommonFunctions.clsCommonFunctions.OleDbConnections()
OleDbDA = New OleDbDataAdapter("", OleDbCon)
OleDbCon.Open()
dt = New DataTable()
OleDbDA.SelectCommand.CommandText = "select [Case Opened Date], " & _
"[BondsID], " & _
"[Business Name], " & _
"[Bond Type], " & _
"[Actual Bond Amt], " & _
"[Current Rate], " & _
"[Annual Income], " & _
"[Reasons] " & _
" from bonds where NextActioner='Declined' And " & _
"[Case Opened Date] >=" & parFromDate & " and [Case Opened Date] <=" & parToDate & _
IIf(broker = "", "", "And [Broker Name] Like '" & broker & "'").ToString() & _
IIf(businessName = "", "", "And [Business Name] Like '" & businessName & "'").ToString()
OleDbDA.Fill(dt)
OleDbCon.Close()
If (dt.Rows.Count > 0) Then
For i As Integer = 0 To dt.Rows.Count - 1
objProp = New TB.Props.clsPropBondNotAcceptedReport()
objProp.CaseOpenDate = IIf(IsDBNull(dt.Rows(i)("Case Opened Date")), "", Convert.ToDateTime(dt.Rows(i)("Case Opened Date")).ToString("MM/dd/yyyy")).ToString()
objProp.DataBaseRefNo = IIf(IsDBNull(dt.Rows(i)("BondsID")), "", dt.Rows(i)("BondsID")).ToString()
objProp.BusinessName = IIf(IsDBNull(dt.Rows(i)("Business Name")), "", dt.Rows(i)("Business Name")).ToString()
objProp.ValueOfBond = IIf(IsDBNull(dt.Rows(i)("Actual Bond Amt")), "", dt.Rows(i)("Actual Bond Amt")).ToString()
objProp.Premium = IIf(IsDBNull(dt.Rows(i)("Current Rate")), "", dt.Rows(i)("Current Rate")).ToString()
objProp.IncomeGenerated = IIf(IsDBNull(dt.Rows(i)("Annual Income")), "", dt.Rows(i)("Annual Income")).ToString()
objProp.Reason = IIf(IsDBNull(dt.Rows(i)("Reasons")), "", dt.Rows(i)("Reasons")).ToString()
objLsit.Add(objProp)
Next
End If
Return objLsit
Catch ex As Exception
Throw New Exception(ex.Message)
End Try

ReadOnly ComboBox in .net

http://www.codeproject.com/KB/combobox/ExComboBox.aspx