Membuat login case sensitive

Dalam sebuah aplikasi, login biasanya dibuat case sensitive, artinya huruf besar dan huruf kecil ada pengaruhnya saat login. Cara mudah dan cepat melakukan hal tersebut adalah dengan melakukan custome melalui fitur yang disediakan oleh DBMS sql server. Langkah-langkahnya adalah sebagai berikut :

1.      Pilih sebuah database

2.      Buka desain salah satu tabel

3.      Klik kanan salah satu field (misalnya pwd_user)

4.      Pilih tabel designer

5.      Pilih colation

6.      Pilih case sensitive

7.      Perhatikan gambar di bawah ini:

Pada saat login password "ADMIN" tidak sama dengan "Admin" atau "admin"

Validasi hanya data angka dalam textbox

Dalam sebuah aplikasi, entri data harus benar-benar valid sesuai type fieldnya, misalnya data bertype numeric harus diisi angka antara 0-9. Untuk mengatasi hal tersebut ikutilah langkah-langkah berikut ini :

1.      Buatlah sebuah form  dan tambahkan sebuah textbox

2.      Kemudian ketiklah coding berikut ini :

Private Sub Textbox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox1.KeyPress

        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled() = True

    End Sub

Coding diatas diterjemahkan sebagai berikut : jika huruf yang diketik bukan andatara 0 - 9 dan bukan backspace maka abaikan saja (tidak direspon

Membuat backup database access dengan vb.net

Prinsip kerja backup database access ini adalah meng-copy database ke folder tertentu. Hal ini perlu dilakukan dengan tujuan untuk menyelamatkan data jika terjadi sesuatu yang tidak diinginkan. Langkah-langkah yang harus dilakukan dalah sebagai berikut :

1.       Tambahkan drive listbox ke dalam form

2.       Tambahkan dirlistbox ke dalam form

3.       Tambahkan filelistbox ke dalam form

4.       Tambahkan texbox dan button

Kemudian buatlah coding di bawah ini :

Public Class BackupData

    Private Sub DriveListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DriveListBox1.SelectedIndexChanged

        DirListBox1.Path = DriveListBox1.Drive

    End Sub

    Private Sub DirListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DirListBox1.SelectedIndexChanged

        'FileListBox1.Pattern = "(*.mdb) |*.mdb"

        FileListBox1.Path = DirListBox1.Path

    End Sub

    Private Sub FileListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FileListBox1.SelectedIndexChanged

        TextBox1.Text = FileListBox1.Path & "\" & FileListBox1.FileName

    End Sub

    Private Sub DriveListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DriveListBox2.SelectedIndexChanged

        DirListBox2.Path = DriveListBox2.Drive

    End Sub

    Private Sub DirListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DirListBox2.SelectedIndexChanged

        TextBox2.Text = DirListBox2.Path & "\" & FileListBox1.FileName

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try

            If TextBox1.Text = "" Then

                MsgBox("Anda belum memilih file yang akan dicopy")

                Exit Sub

            ElseIf TextBox2.Text = "" Then

                MsgBox("Anda tidak memilih direktori tujuan peng-Copy-an")

                Exit Sub

            End If

            My.Computer.FileSystem.CopyFile(TextBox1.Text, TextBox2.Text)

            MsgBox("Copy File sukses")

            TextBox1.Clear()

            TextBox2.Clear()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

    Private Sub BackupDatabase_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        TextBox1.Clear()

        TextBox2.Clear()

        DriveListBox1.Drive = "C:\"

        DriveListBox2.Drive = "C:\"

        FileListBox1.FileName = ""

    End Sub

    Private Sub BackupData_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

membuat backup restore database sql server

Salah satu pertanyaan yang sering diajukan adalah bagaimana cara melakukan backup dan restore database sql server menggunakan coding (vb.net). hal ini dilakukan untuk memudahkan user dalam penggunaan aplikasi tanpa harus "menyentuh" server. Langkah awal adalah membuat form seperti gambar di bawah ini :

Langkah selanjutnya adalah membuat Coding sebagai berikut :

Imports System.Data.SqlClient

'imports Microsoft.SqlServer

Public Class backuprestore

    Dim con, con1 As SqlConnection

    Dim cmd As SqlCommand

    Dim dread As SqlDataReader

    Private Sub backuprestore_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        server(".")

        server(".\sqlexpress")

    End Sub

    Sub server(ByVal str As String)

        con = New SqlConnection("Data Source=" & str & ";Database=Master;integrated security=SSPI;")

        con.Open()

        cmd = New SqlCommand("select *  from sysservers  where srvproduct='SQL Server'", con)

        dread = cmd.ExecuteReader

        While dread.Read

            cmbserver.Items.Add(dread(2))

        End While

        dread.Close()

    End Sub

    Sub connection()

        con = New SqlConnection("Data Source=" & Trim(cmbserver.Text) & ";Database=Master;integrated security=SSPI;")

        con.Open()

        cmbdatabase.Items.Clear()

        cmd = New SqlCommand("select * from sysdatabases", con)

        dread = cmd.ExecuteReader

        While dread.Read

            cmbdatabase.Items.Add(dread(0))

        End While

        dread.Close()

    End Sub

    Private Sub cmbserver_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbserver.SelectedIndexChanged

        connection()

    End Sub

    Sub query(ByVal que As String)

        On Error Resume Next

        cmd = New SqlCommand(que, con)

        cmd.ExecuteNonQuery()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If ProgressBar1.Value = 100 Then

            Timer1.Enabled = False

            ProgressBar1.Visible = False

            MsgBox("Successfully Done")

        Else

            ProgressBar1.Value = ProgressBar1.Value + 5

        End If

    End Sub

    Sub blank(ByVal str As String)

        If cmbserver.Text = "" Or cmbdatabase.Text = "" Then

            MsgBox("Server Name & Database Blank Field")

            Exit Sub

        Else

           

            If str = "backup" Then

                SaveFileDialog1.FileName = CmbDatabase.Text

                SaveFileDialog1.ShowDialog()

                Timer1.Enabled = True

                ProgressBar1.Visible = True

                Dim s As String

                s = SaveFileDialog1.FileName

                query("backup database " & CmbDatabase.Text & " to disk='" & s & "'")

            ElseIf str = "restore" Then

                OpenFileDialog1.ShowDialog()

                Timer1.Enabled = True

                ProgressBar1.Visible = True

                query("RESTORE DATABASE " & CmbDatabase.Text & " FROM disk='" & OpenFileDialog1.FileName & "'")

            End If

        End If

    End Sub

    Private Sub cmbbackup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBackup.Click

        blank("backup")

    End Sub

    Private Sub cmdrestore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrestore.Click

        blank("restore")

    End Sub

End Class