Membuat Program Form Registrasi dengan VB.NET berbasis WEB

Disini saya membuat sebuah project Registrasi dengan VB.NET berbasis Web. Seperti yang kita tahu bahwa kalo kita mengisikan data kedalam form registrasi tersebut maka data diri kita telah masuk kedalam sebuah database, dimana sebelum kita membuat project ini kita harus terlebih dahulu membuat sebuah databasenya. Database ini fungsinya untuk menyimpan semua data yang akan kita masukkan lewat form registrasi didalam web tersebut.

Bagaiman cara membuat project berbasis web menggunakan VB.NET? disini saya akan menerangkan satu per satu bagaimana cara membuat project tersebut dengan mudah dan simple, mari kita simak: 

1.   Kita harus membuat databasenya, saya menggunakan MS.Access.

-          Buka MS.Access

-          Create Database

-          Klik Design View

-          Isi fieldnya ( sesuai kebutuhan kita), mudahnya sama kan saja seperti yang ada di gambar ( ID, Nama, Tanggal Lahir, Alamat, Agama, Status, No Telepon)

-          Klik Save.

  

    2.   Membuat sebuah project menggunakan VB.NET, simak step by step nya.

3.  Mengganti nama project dan directory nya

 

4.Klik OK.

 4. 

5. Lihat Gambaar

 

6.  Buat Form

 

 7. Tampilan Source kode dari Web Form

8. Mengkoneksikan database

9. Klik Next > Finish

10.  Setting table

 

11. Menginput data ketika program di Run

12. Data yang sudah masuk kedalam Database

13. Flow Chart

Source Code

Imports System.Data
Imports System.Data.OleDb
Partial Class formdb1
    Inherits System.Web.UI.Page
    Private constring As String = ConfigurationManager.ConnectionStrings("ConnectionString3").ConnectionString
    Private oConn As New OleDbConnection(constring)
    Private oTbl As New DataTable

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sql As String = "INSERT INTO dbuas VALUES ('" & TextBoxid.Text & "','" & TextBoxnama.Text & "','" & TextBoxtgl.Text & "','" & TextBoxalamat.Text & "','" & TextBoxagama.Text & "','" & TextBoxstts.Text & "','" & TextBoxno.Text & "')"
        Dim oCmd As New OleDbCommand
        oConn.Open()
        oCmd.Connection = oConn
        oCmd.CommandText = sql
        oCmd.ExecuteNonQuery()
    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Response.Redirect("formdb_TegarKusmiawan_161011400134.aspx")
    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        TextBoxid.Text = ""
        TextBoxnama.Text = ""
        TextBoxtgl.Text = ""
        TextBoxalamat.Text = ""
        TextBoxagama.Text = ""
        TextBoxstts.Text = ""
        TextBoxno.Text = ""
        TextBoxid.Focus()
    End Sub
End Class