2013 ~ Coding Secrets in VB.NET

12/13/2013

ตัวอย่างการทำ Crystal Report แบบง่ายๆ

ตัวอย่างการทำ Crystal Report แบบง่ายๆ ถ้าใน Visual Studio ไม่มี Crystal Report เหมือนในรูปให้ติดตั้ง Crystal Report ก่อนจะเริ่มทำนะค่ะ

วิธีการติดตั้ง Crystal Report ดังลิ้งนี้ค่ะ
http://codingsecret.blogspot.com/2014/08/install-crystal-report-on-visual-studio.html

เมื่อติดตั้งเสร็จเรียนร้อยจะมี Crystal Report เหมือนในรูป

1. New Project >> ใน Form1 ให้ลาก CrystalReportViewer ไว้ใน Form 1 จะได้เหมือนในรูป

2. ลาก PrintDialog เข้ามาใน Form1

3. Add new item >> Data >> DataSet

4. ดู Toolbox เลือก DataTable ลากลงใน DataSet1.xsd

5. คลิ๊กขวา >> Add >> Column สร้างตัวแปรเพื่อรับค่าที่จะมาส่งมา จนครบ >> กำหนด DataType ให้ถูกต้อง

6. Add new item >> เพิ่ม Crystal Report

7. OK >> Finish

8. จะได้หน้าตา Crystal Report ดังนี้

9. เพิ่ม DataSet เข้ามาใน Crystal Report เลือกดังนี้ Database Fields >> Database Expert

10. จะได้ตัวแปรที่รอรับค่าดังนี้

11. Form ทั้งหมดมีดังนี้

12. เพิ่มโค้ด ตัวอย่าง ตามดังนี้

Public Class Form1
Private Sub btn_showReport_Click(sender As Object, e As EventArgs) Handles btn_showReport.Click
Dim dt_customer As DataTable = data_customer()
Call showCryReport(dt_customer)
End Sub

Private Sub btn_Print_dialog_Click(sender As Object, e As EventArgs) Handles btn_Print_dialog.Click
Dim dt_customer As DataTable = data_customer()
Call showCryReport_Dialog(dt_customer)
End Sub

Private Function data_customer()
Dim dt_customer As New DataTable("dt_customer")
dt_customer.Columns.Add("id", GetType(Integer))
dt_customer.Columns.Add("fname", GetType(String))
dt_customer.Columns.Add("lname", GetType(String))
dt_customer.Columns.Add("birthday", GetType(Date))

Dim id() As Integer = {1, 2, 3, 4}
Dim fname() As String = {"Anna", "Bu", "Cat", "Dan"}
Dim lname() As String = {"na", "ja", "ka", "ok"}
Dim birthday() As Date = {#1/2/2014#, #2/4/2014#, #3/8/2014#, #4/12/2014#}

For i = 0 To 3
Dim dr As DataRow
dr = dt_customer.NewRow
dr("id") = id(i)
dr("fname") = fname(i)
dr("lname") = lname(i)
dr("birthday") = birthday(i)
dt_customer.Rows.Add(dr)
Next
Return dt_customer
End Function

Private Sub showCryReport(ByVal dtprint As DataTable)
Try
Dim objRpt As New CrystalReport1
objRpt.SetDataSource(dtprint)
CrystalReportViewer1.ReportSource = objRpt
CrystalReportViewer1.Zoom(100)
CrystalReportViewer1.Refresh()
Catch ex As Exception
MessageBox.Show("กรุณาสั่งพิมพ์ใหม่ค่ะ", "พบข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Stop)
End Try
End Sub

Private Sub showCryReport_Dialog(ByVal dtprint As DataTable)
Try
Dim objRpt As New CrystalReport1
objRpt.SetDataSource(dtprint)
CrystalReportViewer1.ReportSource = objRpt

Dim result As DialogResult = PrintDialog1.ShowDialog()
'If click OK, print document to printer
If result = Windows.Forms.DialogResult.OK Then
objRpt.PrintOptions.PrinterName = PrintDialog1.PrinterSettings.PrinterName
objRpt.PrintToPrinter(1, False, 0, 0)
End If
Catch ex As Exception
MessageBox.Show("กรุณาสั่งพิมพ์ใหม่ค่ะ", "พบข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Stop)
End Try
End Sub

End Class

13. Run Project จะได้ดังนี้

กดที่ Show Report

กดที่ Print Dialog จะให้เลือกเครื่อง print และสั่งพิมพ์ได้เลยค่ะ

หากใคร Error
" Could not load file or assembly 'file:///C:\Program Files\SAP BusinessObjects\Crystal Reports for .NET Framework 4.0\Common\SAP BusinessObjects Enterprise XI 4.0\win32_x86\dotnet1\crdb_adoplus.dll' or one of its dependencies. The system cannot find the file specified. " ให้แก้ไขได้ตามนี
http://codingsecret.blogspot.com/2013/12/crystal-report-error-could-not-load.html

Download Semple Coding in vb.net Project

http://www.mediafire.com/download/kyqrk72zzvak3kq/CryReport.zip

Posted on Friday, December 13, 2013 by nuyingnaja

แก้ปัญหา Crystal Report Error: Could not load file or assembly ..crdb_adoplus.dll

วันนี้เล่น Crystal Report ใน vb.net พอเขียนโปรแกรมและแต่ง Report ให้ Connect กับ dataset เสร็จเรียบร้อยแล้ว ติดปัญหาที่หาไฟล์ไม่เจอ ดังนี้

" Could not load file or assembly 'file:///C:\Program Files\SAP BusinessObjects\Crystal Reports for .NET Framework 4.0\Common\SAP BusinessObjects Enterprise XI 4.0\win32_x86\dotnet1\crdb_adoplus.dll' or one of its dependencies. The system cannot find the file specified. "

มีวิธีแก้ไขปัญหานี้
เลือก App.config แล้ว copy ข้อความนี้ลงไป

<?xml version="1.0"?>
<configuration>
<startup useLegacyV2RuntimeActivationPolicy="true">
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
</startup>
</configuration>

เพียงเท่านี้ก็สามารถแสดง Report ได้แล้วค่ะ

Posted on Friday, December 13, 2013 by nuyingnaja

10/20/2013

Code Connection Sql

Public Sub ConnectionSql()

        Dim Conn As SqlConnection = New SqlConnection
        Dim IP As String = "192.000.XXX.XXX"
        Dim DBName As String = "Store"
        Dim Username As String = "MyAdmin"
        Dim Password As String = "password"

        Try

            Conn.Close()
            With Conn
                If .State = ConnectionState.Open Then .Close() : MsgBox("Can not connect to database server !") : Exit Sub
                .ConnectionString = "Data Source=" & IP & ";Initial Catalog=" & DBName & ";Persist Security Info=True;User ID=" & Username & ";Password=" & Password & ""
                .Open()
            End With

        Catch ex As Exception
            MsgBox("Can not connect to database server !")
         End Try

End Sub

Posted on Sunday, October 20, 2013 by nuyingnaja

9/22/2013

VB.Net Find Column in DataTable

ค้นหา Column ใน DataTable

If Not dtLawWord.Columns.Contains("ID") Then
MessageBox.Show("Can not Find Columns ID")
End If

Posted on Sunday, September 22, 2013 by nuyingnaja

9/19/2013

Delete character in Microsoft word + vb.net

Imports Microsoft.Office.Interop.Word
Imports Microsoft.Office.Interop
Imports Microsoft.Office

Public Class classWord

    Public Sub GetWord()

        Dim WdApp As New Application

        Dim WdDoc As Word.Document

        WdDoc = WdApp.Documents.Open("D:\text.doc")

        Dim rStart, rStop As Integer

        rStart = 100

        rStop = 200

        WdDoc.Range(Start:=rStart, End:=rStop).Delete()

        WdDoc.Save()

        WdDoc.Close()

        WdDoc = Nothing

        WdApp.Quit()

        WdApp = Nothing

    End Sub

End Class

Posted on Thursday, September 19, 2013 by nuyingnaja

9/17/2013

Loop DataGridView VB.NET

For Each oRow As DataGridViewRow In DataGridView1.Rows

TextBox1.Text = oRow.Cells(1).Value

Next

Posted on Tuesday, September 17, 2013 by nuyingnaja

Copy File IN VB.NET

Private Sub CopyFileToFolder(ByVal FileName As String, ByVal FileNameNew As String)

File.Copy(FileName, FileNameNew, True)

End Sub

Posted on Tuesday, September 17, 2013 by nuyingnaja

CreatFolder IN VB.NET

Private Sub CreatFolder(ByVal pathName As String)

        If Not System.IO.Directory.Exists(pathName) Then        ' ถ้าไม่มี Directory name นี้
            My.Computer.FileSystem.CreateDirectory(pathName) ' ก็จงสร้าง Directory name นี้
        End If

End Sub

Posted on Tuesday, September 17, 2013 by nuyingnaja

9/16/2013

Remove Rows DataGridView1 In VB.NET

Dim i As Integer = DataGridView1.Rows.Count - 1

For irow = 0 To DataGridView1.Rows.Count - 1

            ' if Row is Selete Check Box is Delete row
            If DataGridView1.Rows.Item(i).Cells(0).Value = True Then

                DataGridView1.Rows.RemoveAt(i)

            End If
            i -= 1

Next

Posted on Monday, September 16, 2013 by nuyingnaja

Select Row DataGridView Focus Row

For iIndex = DataGridView1.RowCount - 1 To 0 Step -1

                If DataGridView1.Rows.Item(iIndex).Cells(0).Value = txt_lawSearch.Text Then

                    DataGridView1.Rows(iIndex).Selected = True
                    Me.DataGridView1.CurrentCell = Me.DataGridView1.Rows(iIndex).Cells(0)
                    Exit Sub

                End If

Next iIndex

Posted on Monday, September 16, 2013 by nuyingnaja

Click Row DataGridView In VB.NET

Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick

        Dim ICell As Integer = e.ColumnIndex
        Dim IRow As Integer = e.RowIndex

        If _IRow >= 0 Then

            MsgBox(dgvView.Rows.Item(IRow).Cells(ICell).Value)

        End If

End Sub

Posted on Monday, September 16, 2013 by nuyingnaja

Add data DataGridView vb.net

DataGridView1.Rows.Clear()

With DataGridView1

        .Rows.Add("1", "AAA")
        .Rows.Add("2", "BBB")
        .Rows.Add("3", "CCC")
        .Rows.Add("4", "DDD")
        .Rows.Add("5", "EEE")

End With

==== หรือ ====

Dim dt As New DataTable
DataGridView1.DataSource = dt

Posted on Monday, September 16, 2013 by nuyingnaja

FolderBrowserDialog vb.net

Private Sub btn_Browse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Browse.Click

   Try
            Dim BrowseFolder As New FolderBrowserDialog
            BrowseFolder.ShowDialog()
            txt_FolderFile.Text = BrowseFolder.SelectedPath
            If txt_FolderFile.Text = "" Then
                Exit Sub
            End If

            System.Windows.Forms.Application.DoEvents()
            Cursor = Cursors.WaitCursor
            Dim dir As New DirectoryInfo(txt_FolderFile.Text)

            Dim aryFi As FileInfo() = dir.GetFiles("*.doc")
            Dim fi As FileInfo
            Dim i As Integer = 1

            For Each fi In aryFi
                Dim gFile As String = Path.GetFileNameWithoutExtension(fi.Name)
                ' process
            Next
   Catch ex As Exception
            MsgBox(ex.Message)
   End Try

End Sub

Posted on Monday, September 16, 2013 by nuyingnaja

Write datatable to text file VB.NET

Private Sub WriteTxt_dt(ByVal dt As DataTable, ByVal path As String)

        Dim sw As StreamWriter = New StreamWriter("D:\" & path & ".txt")
        Dim FRow As DataRow()
        FRow = dt.Select("", "", DataViewRowState.CurrentRows)
        For Each r1 In FRow

            Dim lineoftext = r1("ID").ToString & " = " & r1("NAME").ToString
            sw.WriteLine(lineoftext)

        Next
        sw.Close()

End Sub

Posted on Monday, September 16, 2013 by nuyingnaja

9/15/2013

Write-Read Xml in VB.NET

Private Sub WriteXml_dt(ByVal dt As DataTable)
        If dt.Rows.Count <> 0 Then
            'Save File Xml to D:\NewFolder
            dt.WriteXml("D:\NewFolder\Test.xml", XmlWriteMode.WriteSchema, True)
        End If
End Sub

Function ReadXml_dt()
        Dim _filePath As String = "D:\NewFolder"
        Dim _fileName As String = "Test.xml"
        Dim dt As New DataTable("dt")
        Dim ds As New DataSet()

        If System.IO.Directory.Exists(_filePath) Then      ' if not directory name
            Dim di As New DirectoryInfo(_filePath)
            Dim aryFi As FileInfo() = di.GetFiles(_fileName)
            Dim fi As FileInfo

            'Read File Xml
            For Each fi In aryFi
                ds.ReadXml(_filePath & "\" & _fileName)
                dt = ds.Tables(0).Copy
            Next

        End If
        Return dt

End Function

Posted on Sunday, September 15, 2013 by nuyingnaja

9/12/2013

Delete WaterMark Word in vb.net

          วันนี้นำเสนอ การลบลายน้ำใน Microsoft Word ด้วย VB.NET (Delete WaterMark Word) ขั้นตอนมีดังนี้

1. เตรียมเอกสาร Microsoft Word ที่มี ลายน้ำ ตัวอย่างประมาณนี้
   - ในเอกสารนี้ประกอบด้วย ลายน้ำ (WaterMark)
   - ในเอกสารนี้ประกอบด้วย ลายน้ำส่วนหัว (Header WaterMark)

2. Create New Project ดังนี้
3. Select Windows Forms Application
4. Name : Winapp_DelWaterMark
5. OK

6. Design Form1 ดังนี้
- Textbox : text_FolderFile
- Butoon1 : btnDel_WaterMark
- Butoon2 : btnDel_HeaderWaterMark

7. คลิ๊กขวาที่ โปรแจค เพื่อ Add Reference...
8. เลือก Tab ".NET"
9. เลือก Interop.Microsoft.Office.Interop.Word Version 8.4.0.0
10. OK

11. Coding ดังนี้

Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Word

Public Class Form1

Private Sub btnDel_WaterMark_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDel_WaterMark.Click
        Dim WdApp As New Application
        Dim WdDoc As Word.Document
        Dim pathWord As String = txt_FolderFile.Text

        WdDoc = WdApp.Documents.Open(pathWord)
        WdApp.Visible = True

        Call DeleteWatermark(WdDoc, "CLEAR")

        WdDoc.Close()
        WdApp.Quit()
End Sub

Private Sub btnDel_HeaderWaterMark_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDel_HeaderWaterMark.Click
        Dim WdApp As New Application
        Dim WdDoc As Word.Document
        Dim pathWord As String = txt_FolderFile.Text

        WdDoc = WdApp.Documents.Open(pathWord)
        WdApp.Visible = True

        Call DeleteHeaderWatermark(WdDoc)

        WdDoc.Close()
        WdApp.Quit()
End Sub

Public Sub DeleteWatermark(ByVal worddoc As Word.Document, ByVal WATERMARK_STATUS As String)

        Dim i As Integer = 0
        Dim j As Integer = 0
        Dim shpname As String = Nothing

        Dim HdFt As Microsoft.Office.Interop.Word.HeaderFooter
        Dim WordDocument As Range = worddoc.Range

        'for each header
        Dim page As Integer = WordDocument.Sections.Count
        With WordDocument
            For i = 1 To page
                For Each HdFt In .Sections(i).Headers
                    With HdFt
                        For j = HdFt.Shapes.Count To 1 Step -1

                            ' Delete WaterMart
                            If WATERMARK_STATUS = "CLEAR" Then
                                .Shapes(j).Delete()
                            End If

                        Next j
                    End With
                Next
            Next
        End With

End Sub

Public Sub DeleteHeaderWatermark(ByVal worddoc As Word.Document)
        Dim WordDocument As Range = worddoc.Range
        Dim page As Integer = WordDocument.Sections.Count

        'for each header
        With WordDocument
            For i = 1 To page
                'Delete Header WaterMark
                For Each HdFt In .Sections(i).Headers
                    HdFt.Range.Delete()
                Next
            Next
        End With
End Sub

End Class

12. กด Run Program(F5) และ Click Delete WaterMark แสดงผลดังนี้

ในรูปจะเห็นว่าไม่พบลายน้ำ (WaterMark) แล้ว

13. Click Delete Header WaterMark แสดงผลดังนี้

ในรูปนี้จะเห็นว่าในเอกสารของเราใสสะอาด ปราศจากลายน้ำที่รบกวนแล้วค่ะ

ทำง่ายๆ ขั้นตอนไม่ยุ่งยาก หวังว่าคงมีประโยชน์กับตัวเอง และคนอ่าน น่ะค่ะ

Download Semple Coding in vb.net Project

http://www.mediafire.com/?e0s8ull84gzj309

Posted on Thursday, September 12, 2013 by nuyingnaja

9/11/2013

Code Open file in vb.net

Code Open file in visual basic 2010

โค้ด อ่านไฟล์ขึ้นมาแสดง

System.Diagnostics.Process.Start("D:\TEST.txt")

หรือ

Process.Start("D:\TEST.txt")

หรือ

Shell("D:\app.exe")

Posted on Wednesday, September 11, 2013 by nuyingnaja

9/04/2013

Funtion Kill Process

คำสั่งปิด Process ที่บ้างครั้งไม่จำไม่เป็น และต้องการปิด เขียนโค้ดดังนี้

Example
' สั่งปิด Process WINWORD

Dim procQ As System.Diagnostics.Process
For Each procQ In System.Diagnostics.Process.GetProcessesByName("WINWORD")
procQ.Kill()
Next

Posted on Wednesday, September 04, 2013 by nuyingnaja

ตัดข้อความด้วย Split

การตัดข้อความ การแยกประโยคด้วยคำหรือตัวอักษร

1. Split() การตัดข้อความ

Syntax
Split(ByVal Expression As String, Optional ByVal Delimiter As String)

Example

Dim test_date As String = "16 มิถุนายน 2556"
Dim getStr() As String = Split(test_date, " ")

For i = 0 To getStr.Length - 1

         MsgBox(getStr(i))
   ' 1. 16
   ' 2. มิถุนาย
   ' 3. 2556

Next

** บทความที่เกี่ยวข้อง **
ฟังก์ชัน Mid ตัดคำใน vb.net

Posted on Wednesday, September 04, 2013 by nuyingnaja

ฟังก์ชันสลับคำ StrReverse

การสลับคำจาก ตัวแรกให้ไปอยู่ตัวสุดท้าย และตัวสุดท้ายมาอยู่ตัวแรก ด้วย ฟังก์ชัน StrReverse

1. StrReverse() สลับคำ กลับคำ

Syntax
InStrRev(ByVal StringCheck As String, ByVal StringMatch As String, Optional ByVal Start As Integer)

Example

Dim test_word As String
test_word = "I Love Thailand"

' need dnaliahT evoL I

Dim word As Integer = StrReverse(test_word) 'dnaliahT evoL I

จากฟังก์ชันนี้จะเห็นได้ว่า ตัวอักษรจะสลับตำแหน่งกัน จากหน้ามือเป็นหลังมือ

Posted on Wednesday, September 04, 2013 by nuyingnaja

ฟังก์ชัน ค้นหาคำ Instr vb.net

Public Function InStr(ByVal String1 As String, ByVal String2 As String, Optional ByVal Compare As Microsoft.VisualBasic.CompareMethod = Binary) As Integer
     Member of Microsoft.VisualBasic.Strings
Summary:

การแทนที่คำ ด้วย ฟังก์ชัน Replace

1. InStr() ค้นหาคำที่ต้องการ

Syntax
InStr(ByVal String1 As String, ByVal String2 As String)
InStrRev(ByVal String1 As String, ByVal String2 As String)

Example

Dim test_word As String
test_word = "I Love Thailand"

' need "h"

Dim location As Integer = InStr(test_word, "h")          ' 9
Dim location2 As Integer = InStrRev(test_word, "h")   ' 9

Posted on Wednesday, September 04, 2013 by nuyingnaja

ฟังก์ชัน Mid ตัดคำใน vb.net

การตัดคำที่มีประโยคยาว แต่ต้องการเฉพาะคำที่ต้องการเท่านั้น โดยใช้ ฟังก์ชัน Mid ตัดคำ ตัวอย่างดังนี้

Syntax
Mid(ByVal str As String, ByVal Start As Integer, ByVal Length As Integer)

Example

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim test_word As String
        test_word = "Thailand Only"

        ' need "Thailand"
        Dim A, B As String
        A = Mid(test_word, 1, 8)                     ' Thailand
        B = Microsoft.VisualBasic.Left(test_word, 8) ' Thailand

        ' need "Only"
        Dim C, D As String
        C = Mid(test_word, 10, 4)                     ' Only
        D = Microsoft.VisualBasic.Right(test_word, 4) ' Only

        test_word = "I Love Thailand"

        ' need "Love"
        Dim F, G As String
        F = Mid(test_word, 3, 4)                     ' Love

        ' ใช้ ฟังก์ชันค้นหาคำ ตำแหน่งของคำนั้นก่อน ตัวอย่างนี้ค้นหา "Love" หรือ "L" ก่อนก็ได้
        Dim locationStart As Integer = InStr(test_word, "Love")
        Dim locationStop As Integer = "Love".Length
        G = Mid(test_word, locationStart, locationStop) ' Love
End Sub

** บทความที่เกี่ยวข้อง **
ตัดข้อความด้วย Split
ฟังก์ชันค้นหาคำ
การอ่าน Microsoft Office Word จากตำแหน่งใน เอกสาร

Posted on Wednesday, September 04, 2013 by nuyingnaja

ฟังก์ชัน Replace แทนที่คำ

การแทนที่คำ ด้วย ฟังก์ชัน Replace

1. Replace() แทนที่คำที่ต้องการ

Syntax
Replace(ByVal Expression As String,ByVal Find As String, ByVal Replacement As String)

Example

ตัวอย่างคำ Helly gyygle ให้แทน y เป็น 0 จะได้ัดังนี้

Helly gyygle = Hello google

Coding in vb.net

Dim word as String = "Helly gyygle"
Dim str as String = Replace(word , "y", "o") ' Hello google
Dim str2 as String = word .Replace("y", "o") ' Hello google

Posted on Wednesday, September 04, 2013 by nuyingnaja

9/03/2013

Convert String to Integer

แปลง ตัวหนังสือเป็นตัวเลข ใน vb.net เขียน Code ได้ดังนี้

        Dim str As String = "50.50"
        Dim str2 As String = "1,050.49"

        Dim Conv_num As Integer = CInt(str)    ' 50
        Dim Conv_num2 As Double = CInt(str)    ' 50.0

        Dim Conv_num3 As Integer = Val(str)   ' 50
        Dim Conv_num4 As Double = Val(str)    ' 50.5

        Dim Conv_num5 As Double = CInt(str2) ' 1050.0
        Dim Conv_num6 As Double = Val(str2)   ' 1

        ' * หมายเหตุที่ Conv_num6 = 1 เพราะเจอเครื่องหมาย , ใน str2 จึงอ่านค่าไม่ถูกต้องการแก้ไขให้ถูก ให้แก้โดยใช้ ฟังก์ชัน Replace แทนที่คำ ดังนี้

        ' * แทนที่ , ด้วยค่า null ดังนี้

        Dim Conv_num9 As Double = Val(Replace(str2, ",", "")) ' 1050.49
        '========= END ===========

*** บทความที่เกี่ยวข้อง ***
Convert Integer to String
ฟังก์ชัน Replace แทนที่คำ