By | 18/02/2018
Hello Sahabat Anak Kendali

Cara Menambahkan Input Database Visual Basic VB
sekarang saya mau melanjutkan artikel sebelumnya tentang Visual Basic jika agan belum membaca Artikel Cara menampilkan Tabel database pada Visual Basic silahkan terlebih dahulu untuk membacanya.

jika sebelumnya kita sudah bisa menampilkan tabel database sekarang saya akan mencoba untuk menambahkan data tabel dari Visual Basic, artinya kita dapat menginputkan data ke database melalui Visual Basic

langsung saja berikut Cara Membuat Input Database dengan Visual Basic

saya akan melanjutkan projek sebelumnya jadi yang perlu saya tambahkan pada Form1 utama adalah tombol Input kemudian selanjutnya saya membuat Form Input dengan cara sebagai berikut :

1. pada solution explorer terdapat project yang kita buat, saya menamakan projeknya “www.kendali-elektro.xyz”
Membuat Input Database
pada judul atau nama project yang kita buat silahkan klik kanan lalu pilih Add danpilih New Item kemudian cari Windows Form, silahkan beri nama “Form_Input” lihat gambar dibawah ini

Cara Membuat Input Database Visual Basic
Cara Membuat Input Database dengan Visual Basic

2. kemudian buatlah design pada Form_input seperti Pada Gambar Dibawah ini

Cara Membuat Input Database Visual Basic
Cara Membuat Input Database dengan Visual Basic

pada kolom waktu menggunakan “DataTimePicker” kemudian berilah tag nama “dwaktu” dan untuk TextBox pada kolom sensor berilah nama sebagai berikut “txtpt100”, “txtph”, “txtturbidity” dan “txtsalinisty”

3. pada Form1 atau form awal tambahkan Tombol Input seperti pada gambar dibawah ini

Cara Membuat Input Database Visual Basic

kemudian Klik dua kali pada tombol inputnya dan tuliskan program seperti berikut


 Private Sub Input_Click(sender As Object, e As EventArgs) Handles Input.Click        Form_Input.ShowDialog()    End Sub

4. kembali lagi pada Form_Input sekarang kita akan membuat program pada form ini, dan programnya sebagai berikut

Imports System.Data.OdbcPublic

 Class Form_Input
Dim con As OdbcConnection 
 Dim da As OdbcDataAdapter 
 Dim dt As DataTable Dim ds As DataSet 
 Dim dr As OdbcDataReader 
 Dim str As String 
 Dim cmd As OdbcCommand
Sub koneksi()
 con = New OdbcConnection 
 con.ConnectionString = “dsn=kendali-elektro” 
 con.Open()
 End Sub
Sub simpan()
 koneksi() 
 Dim sql As String = “insert into data_sensor values (” + “‘” & Format(dwaktu.Value, “yyyy-MM-dd”) & “‘ ,” + “‘” & txtpt100.Text & “‘ ,” + “‘” & txtph.Text & “‘ ,” + “‘” & txtturbidity.Text & “‘ ,” + “‘” & txtsalinity.Text & “‘” + “)” 
cmd = New OdbcCommand(sql, con) 
 cmd.ExecuteNonQuery() 
 Try 
 MsgBox(“Berhasil Menyimpan”, vbInformation, “Informasi”)
 Form1.tampil()
 Catch ex As Exception
 MsgBox(“Gagal Menyimpan”, vbInformation, “Informasi”) 
 End Try
 End
 Sub Private Sub Form_Input_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
 simpan() 
 End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
 txtph.Text = “” txtpt100.Text = “” txtsalinity.Text = “” txtturbidity.Text = “” dwaktu.Value = Now End Sub
End Class
jika sudah selesai maka hasilnya akan tampak seperti pada gambar dibawah ini

Cara Membuat Input Database Visual Basic
Cara Membuat Input Database dengan Visual Basic

jika berhasil menyimpan data maka akan tampil pesan dialog “berhasil menyimpan”

semoga berhasil !

cukup sekian artikel kali ini jika ada kritik saran dan pertanyaan silahkan dikolom komentar !

Cara Membuat Aplikasi Kasir sederhana

keyword :

Cara membuat aplikasi CRUD VB
membuat aplikasi CRUD visual basic
creat, read, update, delete visual basic
anak kendali
anak kendali crud
anak kendali vb
anak kendali visual basic

Leave a Reply

Your email address will not be published. Required fields are marked *