How To Handling Quote (') In VB.Net

hi there
here i will share the way to handle quote (') during coding with VB.Net
sometimes we will have data such as (MAT'L) that quote is definitely forbidden when we are use the data.

create a function as below :
Public Function Ganti(ByVal Kata As String) As String
        Ganti = Replace(Kata, "'", "''")
    End Function

and here is this how you gonna use that function, read carefully

Public Sub InsertDataDefect(ByVal Row As Integer)
        Dim DefectName As String = dgvInputBMISDetail.Rows(Row).Cells("dgvInputBMISDetailDefectName").Value.ToString
        Koneksi()
        cmd = New SqlCommand("SELECT * FROM dbo.mstDEFECT WHERE (ActiveTo IS NULL) AND DefectName='" & Ganti(DefectName) & "'", Conn)
        rd = cmd.ExecuteReader
        rd.Read()
        If rd.HasRows Then
            With dgvInputBMISDetail
                .Rows(Row).Cells("dgvInputBMISDetailRecNoDefect").Value = rd.Item("AutoRecordNoDefect")
                .Rows(Row).Cells("dgvInputBMISDetailDefectNo").Value = rd.Item("DefectNo")

            End With
        End If
        Conn.Close()
    End Sub

Comments

VS2015 using Bootstrap

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 Tutorial To Download

CheckBox dalam DataGridView VB.Net

Pada saat membuat aplikasi (VB.Net) untuk materi skripsi, terbesit bagaimana cara baru untuk memberikan hak akses user secara dinamis pada sistem. setelah dicoba dengan tanya-tanya. akhirnya bisa mendapatkan cara itu... wah sesuatu banget dah.... inti dari posting ini hanya pada barisan kode berikut : Private Sub BtnSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSIMPAN.Click Dim Y As String = Mid(CmbUSER.Text, 1, 7) Dim iROW As Integer Dim AKSES As String For iROW = 0 To DGVSample.Rows.Count - 1 'AksesBox = Nama CheckBox yang ada di DatagridView If DGVSample.Rows(iROW).Cells("AksesBox").Value Then ...

Create Comment As .xls In Farpoint Spread

Private Sub TAGS_PARENTING() Dim DTPopUp As New DataTable With DTPopUp .Columns.Add("SEQ", GetType(String)) .Columns.Add("QTY", GetType(String)) .Columns.Add("ETD", GetType(String)) .Columns.Add("ETA", GetType(String)) DTPopUp = MePostab_Control.Cari_TAG_PARENTING End With With FPPOSTAB For GG As Integer = 0 To .ActiveSheet.RowCount - 1 ...

OPRAG-OPREG

Search This Blog