Skip to main content

Posts

Mengisi ComboBox Datagridview menggunakan data dari DataTable

   For Each row As DataGridViewRow In DgvDETECTIONTESTINPUT.Rows                     Dim CmbBoxSize As DataGridViewComboBoxCell = CType((row.Cells(0)), DataGridViewComboBoxCell)                     CmbBoxSize.Items.Add(MejaData(row.Index)(1))                     CmbBoxSize.Value = MejaData(row.Index)(1)                 Next

CRUD (Create Read Update Delete) In Real World - MVC 5 Using VB.Net - VS2015

this is how you gonna do that.. yes it is sometimes learning using tutorial book makes us boring.. so this tutorial is how to make it simple but very useful in understanding MVC5 & VB.Net Tutorial

Simple Dropdownlist MVC 5 In VB.Net

VView (.vbhtml)               <div class="form-group">                      @Html.LabelFor(Function(model) model.Plant, "Plant",                          htmlAttributes:=New With {.class = "control-label col-md-2"})                      <div Class="col-md-10">                      @Html.DropDownList("MeSkill", New List(Of SelectListItem)() From                         {  ...

Pop Up message Visual Studio "The operation could not be completed. The process cannot access the file because it is being used by another process"

Run your Visual Studio as Administrator account

Parent Child Data VB.Net

                                Dim DS_ParentChild As New DataSet()                 DS_ParentChild.Tables.Add(DTMaterial)                 DS_ParentChild.Tables.Add(DTChild)                 'Relation                 DS_ParentChild.Relations.Add("MODEL",                                              DTMaterial.Columns("CODE"), ...

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

Trouble While Running Visual Studio (the operation could not be completed. the process cannot access the file because it is being used by another process.)

If you meet this message : uncheck below marked :

How To Handle Double Or String

                                    Dim Cek_vRATIO As Double                                     If Double.TryParse(vRATIO, Cek_vRATIO) Then                                         .EstimateRatio = Cek_vRATIO                                     Else                                         .EstimateRatio = 0                                     End If

Trigger INSERT & DELETE From 2 Different Database Server

TRIGGER INSERT : create trigger [dbo].[trigger name] on [dbo].[table name 1st] after INSERT as begin insert into [IP Address destination server].[2nd database name].[dbo].[table name 2nd] select [Material]       ,[MaterialDescr]       ,[MatlGroup]       ,[Createdby] from inserted end TRIGGER DELETE : create trigger [dbo].[trigger name] on [dbo].[table name 1st] for DELETE as declare @ID varchar(15) SET @ID = (select [Material] from deleted) begin delete from [IP Address destination server].[2nd database name].[dbo].[table name 2nd]  where MATERIAL = @ID end

Query Timeout Expired

add below script !!!! on your query SQLDataAdapter.SelectCommand.Timeout = 0

AVOID DUPLICATE ENTRY TO DATATABLE

 Dim Temukan As DataRow() = DTSumPO.Select("PONUM ='" & vPO & "' AND POQTY = '" & vQTY & "'")                                         If Temukan.Length = 0 Then                                             DTSumPO.Rows.Add(vPO, vQTY)                                         End If