Januari 2012 | DASAR PROGRAMER

coloader80.dll Visual Studio [Error Resolved]

Kali ini langsung saja ya...bagi sobat semua yang sudah menginstal Microsoft Visual Studio tapi tidak bisa melakukan Debug dan muncul error coloader80.dll tidak/belum tergistrasi seperti gambar dibawah ini :
Solusinya adalah :
1.Download OleAutClean.msi di sini
2.Instal OleAutClean.msi, kemudia jalankan OleAutClean.exe
3.Registrasikan oleaut32.dll dengan regsvr32.exe, caranya Click Start-Run, lalu ketikan ini :
regsvr32 "%systemroot%\system32\oleaut32.dll"

4.Registrasikan coloader80.dll dengan regsvr32.exe, caranya sama Click Start-Run, lalu ketikan ini :
regsvr32 "%CommonProgramFiles%\microsoft shared\VS7DEBUG\coloader80.dll"
Setelah OK, jika registrasi sukses maka akan muncul pesan :
Saya sudah mengalami dan mencobanya sendiri... semoga artikel ini bisa bermanfaat !

Tags:
error visual studio 2008, coloader80.dll, how to resolve coloader80.dll, fix coloader80.dll, oleautclean, register coloader80.dll, error resolved, VS coloader80.dll, fix error coloader80.dll, download oleautclean, download coloader80.dll, registry, error instal visual studio 

Export DataGridView To CSV,TSV,HTML,EXCEL 2010

Halo Sobat semua... pada kesempatan kali ini saya akan share tentang cara export datagridview ke file. Nah, saya akan contohkan export ke CSV (Comma Separated Values), TSV (Tab Separated Values), HTML (Hyper Text Markup Language) dan Microsoft Excel 2010. Lihat gambar dibawah ini, ini adalah data Empolyee dari database Northwind pada datagridview.
Untuk function-nya saya sudah siapkan (khusus untuk Visual Basic .NET)




1.Export To CSV
Public Function DataGridViewToCSV(ByVal pDGview As DataGridView, ByVal pFullPath As String) As Boolean
        Try
            If pDGview.RowCount = 0 Then Return False
            Dim varSeparator As String = "," 'comma
            Dim varText As String
            Dim varTargetFile As IO.StreamWriter
            varTargetFile = New IO.StreamWriter(pFullPath, False)
            With varTargetFile
                'save header
                varText = ""
                For Each column As DataGridViewColumn In pDGview.Columns
                    varText = varText + column.HeaderText + varSeparator
                Next
                varText = Mid(varText, 1, varText.Length - 1)
                .Write(varText)
                .WriteLine()
                'save data
                For Each row As DataGridViewRow In pDGview.Rows
                    varText = ""
                    For i As Integer = 0 To pDGview.ColumnCount - 1
                        varText = varText + IIf(IsDBNull(row.Cells(i).Value) = True, varSeparator, row.Cells(i).Value.ToString + varSeparator)
                    Next
                    varText = Mid(varText, 1, varText.Length - 1)
                    .Write(varText)
                    .WriteLine()
                Next
                .Close()
            End With
            Return True
        Catch ex As Exception
            MessageBox.Show(ex.Message & vbCrLf & ex.Source, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return False
        End Try
    End Function

2.Export To TSV
Public Function DataGridViewToTSV(ByVal pDGview As DataGridView, ByVal pFullPath As String) As Boolean
        Try
            If pDGview.RowCount = 0 Then Return False
            Dim varSeparator As String = Chr(9) 'tab
            Dim varText As String
            Dim varTargetFile As IO.StreamWriter
            varTargetFile = New IO.StreamWriter(pFullPath, False)
            With varTargetFile
                'save header
                varText = ""
                For Each column As DataGridViewColumn In pDGview.Columns
                    varText = varText + column.HeaderText + varSeparator
                Next
                varText = Mid(varText, 1, varText.Length - 1)
                .Write(varText)
                .WriteLine()
                'save data
                For Each row As DataGridViewRow In pDGview.Rows
                    varText = ""
                    For i As Integer = 0 To pDGview.ColumnCount - 1
                        varText = varText + IIf(IsDBNull(row.Cells(i).Value) = True, varSeparator, row.Cells(i).Value.ToString + varSeparator)
                    Next
                    varText = Mid(varText, 1, varText.Length - 1)
                    .Write(varText)
                    .WriteLine()
                Next
                .Close()
            End With
            Return True
        Catch ex As Exception
            MessageBox.Show(ex.Message & vbCrLf & ex.Source, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return False
        End Try
    End Function

3.Export To HTML
Untuk function Export To HTML, Click HERE

4.Export To MS.EXCEL 2010
Sebelumnya tambahkan terlebih dahulu Reference Microsoft.Office.Interop.Excel (sudah tahu kan cara add reference...)
Setelah itu tambahkan di baris paling atas code editor :
Imports Excel = Microsoft.Office.Interop.Excel
Nah selanjutnya ini dia function-nya :
Public Function funcDataGridViewToExcel(ByVal pDGView As DataGridView, ByVal pPathFile As String) As Boolean
        Try
            If pDGView.RowCount = 0 Then Return False
            Dim varExcelApp As Excel.Application
            Dim varExcelWorkBook As Excel.Workbook
            Dim varExcelWorkSheet As Excel.Worksheet
            Dim misValue As Object = System.Reflection.Missing.Value

            varExcelApp = New Excel.ApplicationClass
            varExcelWorkBook = varExcelApp.Workbooks.Add(misValue)
            varExcelWorkSheet = varExcelWorkBook.Sheets("sheet1")
            'add header
            For i As Integer = 0 To pDGView.ColumnCount - 1
                varExcelWorkSheet.Cells(1, i + 1) = pDGView.Columns(i).HeaderText
            Next
            'add data
            For i As Integer = 0 To pDGView.RowCount - 1
                For j As Integer = 0 To pDGView.ColumnCount - 1
                    varExcelWorkSheet.Cells(i + 2, j + 1) = IIf(IsDBNull(pDGView.Rows(i).Cells(j).Value.ToString()) = True, "", pDGView.Rows(i).Cells(j).Value.ToString())
                Next
            Next

            varExcelWorkSheet.SaveAs(pPathFile)
            varExcelWorkBook.Close()
            varExcelApp.Quit()

            releaseObject(varExcelApp)
            releaseObject(varExcelWorkBook)
            releaseObject(varExcelWorkSheet)
            Return True
        Catch ex As Exception
            MessageBox.Show(ex.Message & vbCrLf & ex.Source, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return False
        End Try
    End Function
    Private Sub releaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub

Semoga artikel ini bermanfaat... sampai jumpa lagi di posting selanjutnya.. Rajin rajin mampir kesini ya, Thanks !

Tags:
save datagridview as , export datagridview to excel, export datagridview to csv , export datagridview to tsv, export datagridview to html,  export datagridview to xml, comma separated values, tab separated values, hyper text markup language, extensible markup language, vb net, c#, example, source code, save datagrid to    mecrosoft excel, function, data, save datagridview to file, txt, text, datagridview to excel, to tsv, to csv, to html, to xml 

Flat Button OCX For VB6

Screenshot .
 Download Full Source Project

Tags:
free Flat Button OCX  vb6, free Flat Button OCX user control vb6, free download Flat Button OCX , custom toolbox ocx, custom progressbar ocx, custom label ocx, custom textbox ocx, custom combobox ocx, custom control ocx, custom frame ocx,skin for vb6, active skin form, style for vb6, source code, download user control ocx vb6, vb6 style xp,vb6 style office, button xp,button office, custom controls, tutorial vb6, contoh program vb, free download aplikasi program vb, Xanders XP.ocx download

Edit Report Object Pada Saat Running/Runtime Crystal Report

Ini merupakan kelajutan dari posting Show Report In Crystal Report Viewer, nah kali ini saya akan share cara mengedit object di crystal report saat runtime. contohnya seperti gambar dibawah ini :
Before Click Button "Change Title And Color"
Kemudian setelah mengisi title di textbox dan click button "change title And Color", maka hasilnya adalah  :
After Click Button "Change Title And Color"
Untuk project dan sintaknya sama dengan yang ada di posting sebelumnya, hanya saja tambahkan sedikit 1 button (name=djiebutton2) untuk "change title and color" dan ini tambahan code nya :
Private Sub djieButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles djieButton2.Click
        'declarasi variable
        Dim txtObject As CrystalDecisions.CrystalReports.Engine.TextObject
        Dim fieldObject As CrystalDecisions.CrystalReports.Engine.FieldObject
        Dim rptObject As CrystalDecisions.CrystalReports.Engine.ReportDocument
        rptObject = djieCrystalReportViewer1.ReportSource
        'customize title
        txtObject = rptObject.ReportDefinition.ReportObjects("Text10")
        With txtObject
            .ApplyFont(New Drawing.Font("Comic Sans MS", 18, FontStyle.Bold))
            .Text = TextBox1.Text
            .Color = Color.Blue
        End With
        'customize field lastname
        fieldObject = rptObject.ReportDefinition.ReportObjects("LastName1")
        With fieldObject
            .ApplyFont(New Drawing.Font("Arial", 8, FontStyle.Italic))
            .Color = Color.Red
        End With
        'customize field firstname
        fieldObject = rptObject.ReportDefinition.ReportObjects("FirstName1")
        With fieldObject
            .ApplyFont(New Drawing.Font("Arial", 8, FontStyle.Underline))
            .Color = Color.Green
        End With
        djieCrystalReportViewer1.RefreshReport()
End Sub 

Untuk mengetahui nama object reportnya, buka saja design reportnya, click objek reportnya, lalu liat property name nya, seperti gambar dibawah ini:
Report Design

Nah.. selanjutnya tinggal kembangkan lagi sesui keperluan dan keinginan sobat semua nya... selamat mencoba. gudlak !

Tags:
crystal report viewer, show report vb net, c#, edit report object, runtime, edit report when runtime, report source, edit field crystal report, edit text crystal report, function, source code, example, crystal report visual studio

Show Report In Crystal Report Viewer VBNET

Selamat tahun baru 2012... salam sukses untuk semuanya. Posting pertama saya di tahun baru ini adalah tentang cara menampilkan report di Crystal Report Viewer. Saya suka Crystal Report, karena selain mudah dipelajari juga banyak fitur fitur canggihnya. Sebenarnya sangat mudah menampilkan report di crystal report viewer ini, karena cukup dengan mengisi Property ReportSource di CrystalReportViewer, contoh CRViewer1.ReportSource = ReportName.
Hanya saja yang sering jadi masalah adalah pada saat meng-exceute perintah itu terkadang selalu muncul Login Prompt, yaitu kita harus mengisi dahulu user name dan password untuk koneksi ke database. Hal ini tentu sangat menjengkelkan bukan ?!. Baiklah, sebenarnya banyak cara untuk mengatasi hal itu, saya akan share cara menampilkan report with no login prompt yang paling mudah dengan menggunakan SetDataSource.
Agar langsung prakek, siapkan 1 project Visual Basic .NET, 1 Form (name:Form1), 1 Button (name:djieButton1), 1 TextBox (name:djieTextBox1), 1 CyrstalReportViewer (name:djieCrystalReportViewer1), 1 Report employee dari database Northwind.
Saya sudah buatkan functionnya :
Private Sub crystal_report_show(ByVal djieReport As CrystalDecisions.CrystalReports.Engine.ReportDocument, ByVal sql As String)
        Try
            Using con As New Odbc.OdbcConnection("DRIVER=sql server native client 10.0;SERVER=pandji\sql2008;UID=sa;PWD=djiesoft;DATABASE=northwind")
                'buat datasource
                con.Open()
                Dim adp As New Odbc.OdbcDataAdapter(sql, con)
                Dim tbl As New DataTable
                adp.Fill(tbl)
                'set report datasource
                With djieReport
                    .SetDataSource(tbl)
                    .Refresh()
                End With
               ''view report
                With djieCrystalReportViewer1
                    .ReportSource = djieReport
                    .Refresh()
                End With
            End Using
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Kemudian pada saat button1 di-click:
Private Sub djieButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles djieButton1.Click
        Call crystal_report_show(New rptEmployees, "select * from employees") 'djieTextBox1.Text
End Sub

Sekian posting nya, semoga bisa bermanfaat ya... keep to explore !!!

Tags:
crystal report viewer, how to show report in vb net c#, basic crystal report dan visual studio, refresh report, report source crystal report, CR, view report, data source report, reporting in vs, report using crystal report, example, source code, function

Contoh Penggunaan Assembler Di VB6

Berikut ini adalah contoh penggunaan bahasa Assembler di vb6, bagi anda yang denagn bejar dan tertarik akan Assembler source code ini dapat menjadi referensi anda :
 Download Full Source Project (Assembler x86)

Tags:
cara membuat program Assembler , create Assembler in vb, make Assembler in vb6,  Assembler download, contoh Assembler data , contoh Assembler file, download Assembler, test Assembler,Assembler adalah, contoh program vb, free download aplikasi program vb

Membuat Program/Aplikasi Jadwal Sholat VB6

contoh program berikut ini adalah membuat jadwal sholat, dimana dapat digunakan sebagai pengingat waktu sholat. Anda dapat simpan program ini di desktop anda.
All Links Updated on 2012-12-06 (yy-mm-dd) !
Download full source project

Tags:
cara membuat jadwal sholat vb, vb tutorial, contoh program vb