คำสั่งหารปัดเศษ in vb.net

คำสั่งหารปัดทศนิยมใน vb.net มีหลายตัว มาดูกันเลยว่าแต่ละ funtion ผลลัพธ์ของการปัดเศษจะเป็นอย่างไร 1. ปรับตัวเลขทศนิยมให้เป็นจำนวนเต็ม มากกว่า 0.5 ปัดขึ้น  น้อยกว่าหรือเท่ากับ 0.5 ปัดลง Dim number As Double   number = Math.Round(1.5)    ' ค่าที่ได้คือ  2 number = Math.Round(1.4)    ' ค่าที่ได้คือ  1  2. ปรับตัวเลขทศนิยมเป็นจำนวนเต็ม ปรับเศษขึ้นอย่างเดียว Dim number As Double number = Math.Ceiling(1.5)    ' ค่าที่ได้คือ  2 number = Math.Ceiling(1.4)   ...

Read More

Count Pages MS Word.doc in vb.net

Public Function GetNoOfPagesDOC(ByVal FileName__1 As String) As Integer         Dim num As Integer = 0         Dim fileName__2 As Object = FileName__1         Dim [readOnly] As Object = False         Dim isVisible As Object = True         Dim objDNS As Object = Word.WdSaveOptions.wdDoNotSaveChanges         Try            ...

Read More

Count Pages PDF in vb.net

Public Function GetNoOfPagesPDF(ByVal FileName As String) As Integer        Dim Count As Integer = 0        If FileName <> "" Then            'Open the file            Dim fstream As New IO.FileStream(FileName, IO.FileMode.Open, IO.FileAccess.Read)            Dim stream As New IO.StreamReader(fstream)       ...

Read More

Open File Dialog in vb.net

 ' Open File ShowDialog     Public Function OpenFile(ByVal TypeFile As String)         Dim _FileFull As String = ""         Dim _typefile As String = ""         If TypeFile = "pic" Then             _typefile = "Picture Files (*.JPG)|*.JPG;"         ElseIf TypeFile = "word" Then            ...

Read More

Code Connection Access

Private _StrConnAccess As String     Private cConn As New clsConnection     Public ReadOnly Property ConnectionStringAccess() As String         Get             Dim _StrConnAccess As String = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=C:\Excel1.mdb;"             Return _StrConnAccess         End Get     End Property    ...

Read More

Read Microsoft Office Word in vb.net

การอ่าน Microsoft Office Word จากตำแหน่งใน เอกสาร 1. Create New Project  ตามนี้ 2. Create Form1 => Add Reference... ดังนี้ 3. เลือก  Interop.Microsoft.office Interop.Word ดังนี้ 4. เตรียมเอกสารใ้ห้พร้อม ตัวอย่างได้สร้างไว้ที่  D:\Test_Word.docx 5. เขียน Code ตามนี้ Imports Microsoft.Office.Interop.Word Imports...

Read More

cmd Insert Data in vb.net

 ' code Insert ,Update, Delete ' Code connect Oracle Connection Oracle Link ConnectionOpen() Dim custsInsCmd As OracleCommand custsInsCmd = _Conn.CreateCommand()  Dim sql = " update TBL_TABLE set " & _                " NAME = 'abc' " & _                " where ID = 1 " custsInsCmd.CommandText = sql custsInsCmd.ExecuteNonQuery() ConnectionClose...

Read More

Select Data Reader in vb.net

ConnectionOpen() Dim cmd As New OracleCommand Dim dr As OracleDataReader dim str as String  Dim sql= "SELECT * FROM TBL_TABLE where ID = '1'" cmd = New OracleCommand(sql, conn) dr = cmd.ExecuteReader If dr.HasRows Then       dr.Read()        str = dr("NAME").tostring End If ConnectionClose...

Read More

DataTable Update Data in vb.net

Connection Oracle Link Dim da As OracleDataAdapter Dim dt As New Data.DataTable("dt") Dim strSQL As String = "" strSQL = "SELECT * FROM TBL_TABLE where ID = '1'" ConnectionOpen() da = New OracleDataAdapter(strSQL, conn) Dim SqldtSearch As OracleCommandBuilder = New OracleCommandBuilder(da) dt.Columns.Clear() dt.Rows.Clear() da.Fill(dt) ' Edit Datatble Update  " Braaaaaa......." da.Update(dt) MsgBox("Save Complete !!!") ConnectionClose...

Read More

Connection Oracle

' Code Connection Oracle  Private _StrConn As String Dim _Host As String = "192.000.0.000" Dim _Port As String = "1521" Dim _SID As String = "databaseName" Dim _Username As String = "admin" Dim _Password As String = "password" '=========== DataBase Oracle =============== Public ReadOnly Property ConnectionString() As String Get         _StrConn = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & _Host & ")(PORT=" & _Port & ")))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME="...

Read More

Loop DataTable in vb.net

Dim dt As New DataTable("dt1") '------------------------- Add Columns DataTable ------------------------------- dt.Columns.Add("ID", GetType(Integer)) dt.Columns.Add("NAME", GetType(String)) dt.Columns.Add("SURNAME", GetType(String)) '------------------------- Add Data DataTable ------------------------------- Dim dr As DataRow dr = dt.NewRow dr("ID") = 1 dr("NAME") = "Jenny" dr("SURNAME") = "MAC" dt.Rows.Add(dr) dr = dt.NewRow dr("ID") = 2 dr("NAME") = "Jenny" dr("SURNAME") = "Blogger" dt.Rows.Add(dr) '------------------------- Loop DataTable...

Read More

WebBrowser in VB.NET

          WebBrowser  เป็นคอนโทรลที่เราจะใช้ทำงานในส่วน Internet Explorer ซึ่งปกติแล้วมีผู้สร้างเบราเซอร์ให้เรามากมายเช่น IE, Firefox, Chrome, Safari ,Opera เป็นต้น เบราเซอร์เหล่านี้สามารถเปิดดูเวปไซต์ต่างๆ เป็นหลัก           WebBroweser ใน .Net สามารถทำให้ เวปไซต์ต่างๆ เข้ามาเปิดดูใน Program application...

Read More

Create Setup In VB.NET

           Application ต่างๆ ที่สร้างขึ้นมาแล้ว เมื่อสร้างเสร็จและทดสอบเสร็จเรียบร้อยแล้ว ควรจะทำการสร้างตัวติดตั้ง หรือที่เรียกว่า Setup Program และแจกจ่ายโปรแกรม ให้กับผู้ใช้คนอื่นๆ ได้           ใน VB.NET มีเครื่องมือในการสร้าง Setup Program ที่มีประสิทธิภาพ และมีขั้นตอนไม่ยุ่งยาก...

Read More

Code Version Deploy in VB.NET

Dim AD As ApplicationDeployment = ApplicationDeployment.CurrentDeployment  Me.txtVersionDeploy.Text = AD.CurrentVersion.ToString(...

Read More

วิธีใส่ Version Project in VB.NET

          Version in Project มีความสำคัญในการพัฒนาโปรแกรม เพื่อให้โปรแกรมเมอร์รู้ว่าพัฒนาโปรแกรมไปถึงไหนแล้ว วิธีใส่ Version Project ใน VB.NET 1. New Project ขึ้นมาใหม่ 2. Name : Winapp_VersionProject => OK 3. เปิด My Project ขึ้นมา 4. เลือก Assembly Information 5. แก้ไข Version ที่ต้องการเพิ่มใน Version...

Read More

Clickonce step by step In VB.NET

          บทความนี้จะนำเสนอการสร้างตัวติดตั้ง Application แบบ Clickonce          Clickonce คือ การนำเอา Application ที่พัฒนาเสร็จเรียบร้อยและทำการทดสอบแล้ว Public Program ขึ้น Server เพื่อให้ ผู้ใช้ทำการติดตั้งลงที่เครื่อง ผู้ใช้          ถ้าถามว่ามันดีตรงไหน บอกได้เรยว่าดี...

Read More