Categories: Visual Basic

Cara Membuat Input Database Visual Basic

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 dengan Visual Basic

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

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

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 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

chaerul

Share
Published by
chaerul

Recent Posts

Panduan Lengkap: Cara Menyiapkan Klaster Kubernetes pada Ubuntu 22.04 LTS

Pendahuluan Dalam dunia pengembangan perangkat lunak yang terus berkembang, Kubernetes telah muncul sebagai alat kunci dalam orkestrasi…

4 days ago

AplikasiAkademik.com: Solusi Terbaik untuk Manajemen Sekolah yang Efisien

Mengelola sebuah sekolah atau lembaga pendidikan adalah tugas yang kompleks dan penuh tantangan. Dengan berbagai…

7 months ago

Cara Mudah Menginstal OpenVPN Server di Ubuntu 20.04 di Huaweicloud Panduan Langkah demi Langkah

Selamat datang di artikel kami tentang cara menginstal OpenVPN server di Ubuntu 20.04 di HuaweiCloud!…

12 months ago

Install Docker Portainer dan Nginx Proxy Manager Ubuntu Server

Dalam dunia pengembangan aplikasi, salah satu hal yang menjadi penting adalah mengelola dan memonitor kontainer…

1 year ago

Tutorial led blinking lengkap, Wiring & Code

Tutorial led blinking. LED (Light Emitting Diode) merupakan salah satu komponen elektronik yang paling umum…

1 year ago

Tutorial LCD Display Lengkap dengan wiring & code untuk pemula

Tutorial LCD Display, ini merupakan salah satu komponen yang sering digunakan dalam project elektronika sebagai…

1 year ago