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) Thene.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 AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesDriveListBox1.SelectedIndexChanged

        DirListBox1.Path = DriveListBox1.Drive

    End Sub

    Private Sub DirListBox1_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesDirListBox1.SelectedIndexChanged

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

        FileListBox1.Path = DirListBox1.Path

    End Sub

    Private Sub FileListBox1_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesFileListBox1.SelectedIndexChanged

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

    End Sub

    Private Sub DriveListBox2_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesDriveListBox2.SelectedIndexChanged

        DirListBox2.Path = DriveListBox2.Drive

    End Sub

    Private Sub DirListBox2_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesDirListBox2.SelectedIndexChanged

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

    End Sub

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

        Try

            IfTextBox1.Text = "" Then

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

                ExitSub

            ElseIfTextBox2.Text = "" Then

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

                ExitSub

            EndIf

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

            MsgBox("Copy File sukses")

            TextBox1.Clear()

            TextBox2.Clear()

        Catchex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

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

        TextBox1.Clear()

        TextBox2.Clear()

        DriveListBox1.Drive = "C:\"

        DriveListBox2.Drive = "C:\"

        FileListBox1.FileName = ""

    End Sub

    Private Sub BackupData_Load(ByValsender As System.Object, ByVal e AsSystem.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 Classbackuprestore

    Dim con, con1 As SqlConnection

    Dim cmd As SqlCommand

    Dim dread As SqlDataReader

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

        server(".")

        server(".\sqlexpress")

    End Sub

    Sub server(ByVal str As String)

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

        con.Open()

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

        dread = cmd.ExecuteReader

        Whiledread.Read

            cmbserver.Items.Add(dread(2))

        End While

        dread.Close()

    End Sub

    Subconnection()

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

        con.Open()

        cmbdatabase.Items.Clear()

        cmd = NewSqlCommand("select * from sysdatabases", con)

        dread = cmd.ExecuteReader

        Whiledread.Read

            cmbdatabase.Items.Add(dread(0))

        End While

        dread.Close()

    End Sub

    Private Sub cmbserver_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handlescmbserver.SelectedIndexChanged

        connection()

    End Sub

    Sub query(ByVal que As String)

        On Error Resume Next

        cmd = NewSqlCommand(que, con)

        cmd.ExecuteNonQuery()

    End Sub

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

        IfProgressBar1.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)

        Ifcmbserver.Text = "" Or cmbdatabase.Text = ""Then

            MsgBox("Server Name & Database Blank Field")

            ExitSub

        Else

           

            Ifstr = "backup" Then

                SaveFileDialog1.FileName = CmbDatabase.Text

                SaveFileDialog1.ShowDialog()

                Timer1.Enabled = True

                ProgressBar1.Visible = True

                Dims As String

                s = SaveFileDialog1.FileName

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

            ElseIfstr = "restore" Then

                OpenFileDialog1.ShowDialog()

                Timer1.Enabled = True

                ProgressBar1.Visible = True

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

            EndIf

        End If

    End Sub

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

        blank("backup")

    End Sub

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

        blank("restore")

    End Sub

End Class