Cara Posting Source Code pada WordPress

Tambahkan tag berikut pada saat menulis blog:

[code language="vb"]
copy/paste source nya di sini
[/code]

Pilihan Parameter languane (bahasa pemrograman) yang di dukung:

  • actionscript3
  • bash
  • clojure
  • coldfusion
  • cpp
  • csharp
  • css
  • delphi
  • diff
  • erlang
  • fsharp
  • go
  • groovy
  • html
  • java
  • javafx
  • javascript
  • latex (you can also render LaTeX)
  • matlab (keywords only)
  • objc
  • perl
  • php
  • powershell
  • python
  • r
  • ruby
  • scala
  • sql
  • text
  • vb
  • xml

Jika parameter languange tidak di set, maka default nya adalah “Text”

Configuration Parameters

The shortcodes also accept a variety of configuration parameters that you may use to customize the output. All are completely optional.

  • autolinks (true/false) — Makes all URLs in your posted code clickable. Defaults to true.
  • collapse (true/false) — If true, the code box will be collapsed when the page loads, requiring the visitor to click to expand it. Good for large code posts. Defaults to false.
  • firstline (number) — Use this to change what number the line numbering starts at. It defaults to 1.
  • gutter (true/false) — If false, the line numbering on the left side will be hidden. Defaults to true.
  • highlight (comma-seperated list of numbers) — You can list the line numbers you want to be highlighted. For example “4,7,19”.
  • htmlscript (true/false) — If true, any HTML/XML in your code will be highlighted. This is useful when you are mixing code into HTML, such as PHP inside of HTML. Defaults to false and will only work with certain code languages.
  • light (true/false) — If true, the gutter (line numbering) and margin (see below) will be hidden. This is helpful when posting only one or two lines of code. Defaults to false.
  • padlinenumbers (true/false/integer) — Allows you to control the line number padding. true will result in automatic padding, false will result in no padding, and entering a number will force a specific amount of padding.
  • title (string) — Set a label for your code block. Can be useful when combined with the collapse parameter.

Selamat bebagi source code, selamat menulis…

source: https://en.support.wordpress.com/code/posting-source-code/

Bekerja Dengan SqlCommand Parameter pada VB.Net

Langsung saja, berikut adalah contoh-contoh penggunaan SqlCommand parameter. sebenarnya kita bisa langsung menuliskan value dari query yang ingin kita tulis pada query sql misalnya sebagai berikut:

        Dim strQuery As String = "SELECT UserLogin, UserName, UserPassword FROM MUser where UserLogin='" & TxtUserLogin.Text & "' and UserPassword='" & TxtUserPassword.Text & "' "
        Using cmd As New SqlCommand(strQuery, con)
            Using rd As IDataReader = cmd.ExecuteReader()
                If rd.Read() Then
                    FrmMain.Show()
                Else
                    MsgBox("User login/password salah")
                End If
            End Using
        End Using

Dengan cara di atas terlihat sangat sederhana, tapi cara tersebut sangat riskan akan SQL Injection, oleh karena itu akan lebih baik dan aman kalau kita menggunakan parameter untuk by pass value pada query SQL.

Nah berikut ragam cara penggunaan SqlCommand parameter:

1. Menggunakan method SqlCommand.Parameters.add

        Using con As New SqlConnection(strConString)
            con.Open()
            Using cmd As New SqlCommand("INSERT INTO account(ID,Name) VALUES(@ID,@Name)", con)
                cmd.Parameters.Add("@ID", SqlDbType.BigInt).Value = 1
                cmd.Parameters.Add("@Name", SqlDbType.NVarChar).Value = "Jhon"
                cmd.ExecuteNonQuery()
            End Using
        End Using

2. Menggunakan method SqlCommand.Parameters.AddWithValue
Dengan cara ini kita bisa langsung mengisikan value dari parameter tanpa harus mendefinisikan type data nya terlebih dahulu.

        Using con As New SqlConnection(strConString)
            con.Open()
            Using cmd As New SqlCommand("INSERT INTO account(ID,Name) VALUES(@ID,@Name)", con)
                cmd.Parameters.AddWithValue("@ID", "1")
                cmd.Parameters.AddWithValue("@Name", "Jhon")
                cmd.ExecuteNonQuery()
            End Using
        End Using

3. Mengunakan method SqlCommand.Parameters.AddRange
Dengan cara ini kita bisa menyimpan SqlParameter dalam bentuk array, sehingga akan menyederhanakan penulisan parameter.

        Using con As New SqlConnection(strConString)
            con.Open()
            Dim SqlParams() As SqlParameter = New SqlParameter() {
                New SqlParameter("@ID", "1"),
                New SqlParameter("@Name", "Jhon")
            }

            Using cmd As New SqlCommand("INSERT INTO account(ID,Name) VALUES(@ID,@Name)", con)
                cmd.Parameters.AddRange(SqlParams)
                cmd.ExecuteNonQuery()
            End Using
        End Using

4. Bekerja dengan output parameter
Cara ini digunakan apabila kita menggunakan SQL Store Procedure yang menghasilkan output. Misal kita punya store procedure sebagai berikut:

CREATE PROC SP_Transfer
	@TransferFrom nvarchar(20),
	@TransferTo nvarchar(20),
	@Amount int,
	@Result nvarchar(20) output
AS
BEGIN
	BEGIN TRANSACTION
	UPDATE Account set Amount=Amount-@Amount where ID=@TransferFrom
	UPDATE Account set Amount=Amount+@Amount where ID=@TransferTo

	if @@ERROR=0
	 begin
		COMMIT TRANSACTION
		SET @Result='Berhasil'
	 end
	else
	 begin
		ROLLBACK TRANSACTION
		SET @Result='Gagal'
	 end
END

dari store procedure di atas, parameter @Result adalah parameter output. berikut adalah contoh coding untuk menghandel store procedure di atas:

        Using con As New SqlConnection(strConString)
            con.Open()
            Using cmd As New SqlCommand("SP_Transfer", con)
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Parameters.Add("@TransferFrom", SqlDbType.NVarChar).Value = "123"
                cmd.Parameters.Add("@TransferTo", SqlDbType.NVarChar).Value = "321"
                cmd.Parameters.Add("@Amount", SqlDbType.Int).Value = "1000000"
                cmd.Parameters.Add("Result", SqlDbType.NVarChar).Direction = ParameterDirection.Output
                cmd.ExecuteNonQuery()
                Dim result As String = cmd.Parameters("Result").Value
            End Using
        End Using

handel output parameter menggunakan array SqlParameter:

                Using con As New SqlConnection(strConString)
            con.Open()
            Dim SqlParams() As SqlParameter = New SqlParameter() {
                New SqlParameter("@TransferFrom", "123"),
                New SqlParameter("@TransferTo", "321"),
                New SqlParameter("@Amount", "1000000"),
                New SqlParameter("@Result", SqlDbType.NVarChar)
            }
            SqlParams(3).Direction = ParameterDirection.Output

            Using cmd As New SqlCommand("SP_Transfer", con)
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Parameters.AddRange(SqlParams)
                cmd.ExecuteNonQuery()
                Dim result As String = SqlParams(1).Value
            End Using
        End Using

Demikian, Semoga bermanfaat. Selamat mencoba…

SQL Transaction di VB.Net

Ada kalanya pada saat kita mendevelop sebuah aplikasi, kita di hadapkan pada situasi dimana kita harus melakukan penyimpanan/update data pada lebih dari satu tabel pada saat yang bersamaan. Jika ada salah satu transaksi yang gagal maka, maka semua transaksi yang sudah dilakukan akan dibatalkan, sebaliknya jika semua transaksi berhasil maka semua data akan di commit. konsep seperti ini disebut sebagai SQL Transaction.

Berikut beberapa cuplikan cara menggunakan SQL Transaction di VB.Net

Cara 1: Meletakkan SqlTransaction pada properti Transaction pada object SqlCommand

Using Sqlcon As New SqlConnection(strConString)
Sqlcon.Open()
Dim SqlTrans As SqlTransaction = Sqlcon.BeginTransaction()
Using cmd As SqlCommand = Sqlcon.CreateCommand()
cmd.Connection = Sqlcon
cmd.Transaction = SqlTrans
Try
cmd.CommandType = CommandType.Text
cmd.CommandText = "update account set ammount=ammount-1000000 where accountID=1"
cmd.ExecuteNonQuery()
cmd.CommandText = "update account set ammount=ammount+1000000 where accountID=2"
cmd.ExecuteNonQuery()
SqlTrans.Commit()
Catch ex As SqlException
SqlTrans.Rollback()
MsgBox(ex.Message.ToString())
End Try
End Using
End Using

Cara 2: Meletakkan SqlTransaction pada constructor pada object SqlCommand


Using Sqlcon As New SqlConnection(strConString)
Sqlcon.Open()
Dim SqlTrans As SqlTransaction = Sqlcon.BeginTransaction()
Try
Using cmd As New SqlCommand("update account set ammount=ammount-1000000 where accountID=1", Sqlcon, SqlTrans)
cmd.ExecuteNonQuery()
End Using
Using cmd As New SqlCommand("update account set ammount=ammount+1000000 where accountID=2", Sqlcon, SqlTrans)
cmd.ExecuteNonQuery()
End Using
SqlTrans.Commit()
Catch ex As Exception
SqlTrans.Rollback()
MsgBox(ex.Message.ToString())
End Try
End Using

Demikian, semoga bermanfaat. Selamat mencoba…

TRY…CATCH in SQLServer

Seperti hal pada pemrograman, store procedure di SQL Server juga bisa kita buat statement try..catch. statement ini berfungsi untuk menghandle query apabila terjadi error. berikut adalah contoh penggunaan try catch untuk menghandle transaction pada SQL Server:


BEGIN TRY
BEGIN TRANSACTION
update account set ammount=amount-1000000 where AccountID=1
update account set ammount=amount+1000000 where AccountID=2
COMMIT TRANSACTION
END TRY
BEGIN CATCH
ROLLBACK TRANSACTION
END CATCH

Demikian semoga bermanfaat, selamat mencoba.

Show Error Detail IIS-ASP.Net

Berikut adalah setting di web.config untuk menampilkan detail error di ASP.Net:

<configuration>
<system.web>
<customErrors mode=”Off” />
</system.web>

<system.webServer>
<httpErrors errorMode=”Detailed” />
</system.webServer>
</configuration>

Micosoft Excel: Remove Leading Space With Macro

Here is script for remove leading space in Microsoft Excel with macro:

SubRemoveLeadingSpace()
'Updateby20131129
DimRng AsRange
DimWorkRng AsRange
OnErrorResumeNext
xTitleId = "KutoolsforExcel"
SetWorkRng = Application.Selection
SetWorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
ForEachRng InWorkRng
    Rng.Value = VBA.LTrim(Rng.Value)
Next
EndSub

Source: https://www.extendoffice.com/documents/excel/667-excel-remove-first-space.html

 

Selamat mencoba. Semoga bermanfaat.

 

How to redirect to another page after show alert message in ASP.NET-C#

Berikut cara menampilkan alert/message kepada user pada ASP.NET setelah kita sukses melakukan sebuah transaksi atau proses.

Source: https://nishantwork.wordpress.com/2013/01/28/how-to-redirect-to-another-page-after-alert-message-in-c/

Cara 1:

Response.Write(" alert('Your Message.');window.location='TargetpageURL'; ");

Cara 2:
ScriptManager.RegisterClientScriptBlock(this, this.GetType(), "ScriptKey", "alert('Your Message will go here.');window.location='TargetpageURL'; ", true);

Cara 3:
HTMLHelper.jsAlertAndRedirect(this, "This is an alert.", ResolveUrl("~/Default.aspx"));