Skip to main content

Posts

Skip Rows In Uploading .xls Files

Private Sub DATA_TOBE_SAVE()         OfdBUKAFILE.Filter = "*.xlsx|*.xlsx|All files(*.*)|*.*"         If OfdBUKAFILE.ShowDialog = Windows.Forms.DialogResult.OK Then             Try                 Conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & _                      "Data Source='" & OfdBUKAFILE.FileName & "';Extended Properties=Excel 12.0;")                 DA = New OleDbDataAdapter("SELECT * FROM [FIXED_ORDER_MONTHLY$]", Conn)                 DTTemp = New DataTable                 Conn.Open()                 DA.Fill(DTTemp)                 'Skip Datatable Rows.. ini skip 2 baris... ...

Membuat PictureBox Menjadi BULAT

 Private Sub FOTOBULAT()         Dim theGambar As System.Drawing.Drawing2D.GraphicsPath = New System.Drawing.Drawing2D.GraphicsPath()         theGambar.AddEllipse(0, 0, ImgPHOTO.Width - 3, ImgPHOTO.Height - 3)         Dim theRegion As Region = New Region(theGambar)         ImgPHOTO.Region = theRegion     End Sub

C# OOP 2019

DOWNLOAD FILE C# OOP TUTORIAL silahkan download for free..

Small Function VB.Net & C#

VB C # UBound () = yourArray . GetUpperBound ( 0 ) or yourArray . Length for one - dimesional arrays LBound () = yourArray . GetLowerBound ( 0 ) IsNothing () = Object . ReferenceEquals ( obj , null ) Chr () = Convert . ToChar () Len () = "string" . Length UCase () = "string" . ToUpper () LCase () = "string" . ToLower () Left () = "string" . Substring ( 0 , length ) Right () = "string" . Substring ( "string" . Length - desiredLength ) RTrim () = "string" . TrimEnd () LTrim () = "string" . TrimStart () Trim () = "string" . Trim () Mid () = "string" . Substring ( start , length ) Replace () = "string" . Replace () Split () = "string" . Split () Join () = String . Join () MsgBox () = MessageBox . Show () IIF () ...

Combined Multiple Rows Data Into One Row In SQL

this is the source for doin that. https://stackoverflow.com/questions/31211506/how-stuff-and-for-xml-path-work-in-sql-server