Cara Membuat Input Database Visual Basic – Mikrokontroler dan Cloud

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

Leave a Reply Cancel reply