INPUT DATA KE DATABASE DENGAN VB6

Langkah pertama silahkan buka VB6 di komputer anda, lalu pilih "Standar EXE".

Maka tampilannya kira-kira seperti ini :

tambahkan 2 buah "TextBox", 2 buah "CommandButton", 2 Buah Label, lalu susun seperti ini :

Langkah Berikutnya klik double klik pada form dan paste kan kode berikut :

' Author : Harley Afandi Daulay
' Date : 25-09-2019
' Purpose : https://technoindustri.blogspot.com
' Email : harly.afandi@gmail.com
'---------------------------------------------------
Public kon As New ADODB.Connection
Public DataKu As New ADODB.Recordset
Private Sub Command1_Click()
If Text1 = "" Or Text2 = "" Then
MsgBox "Data Belum Lengkap...!", vbInformation, "Informasi"
Else
Dim SQLTambah As String
SQLTambah = "insert into anggota (Nama,Alamat) values ('" _
& Text1 & "','" & Text2 & "')"
kon.Execute SQLTambah
Text1 = ""
Text2 = ""
MsgBox "Data Berhasil di Input"
End If
End Sub
Private Sub Command2_Click()
End
End Sub

Private Sub Form_Activate()
Set kon = New ADODB.Connection
Set DataKu = New ADODB.Recordset
kon.Open "provider=Microsoft.jet.oledb.4.0;data source=" & App.Path & "\Database.mdb"
End Sub

Ok... Sampai tahap ini kita sudah selesai untuk aplikasi VB6 nya, Langkah berikut nya adalah membuat sebuah database "Microsoft Acces", Buka MS Acces di PC anda lalu buat sebuah database dan pilih "Create blank database" format ".mdb", selanjutnya buat sebuah tabel dengan nama "anggota" dengan nama field seperti berikut :

Langkah selanjutnya adalah Simpan Database dan kemudian tutup, selanjutnya kembali ke Project VB6 sobat, Tekan F5 untuk Running Project, Hasilnya Kira-kira seperti ini :

Nah silhkan isi data pada textbox lalu tekan simpan untuk menyimpan data, maka otomatis data akan tersimpan di database, Ok Sobat Mudah kan? kalau masih kurang paham boleh bertanya di komentar, Terima kasih sudah berkunjung.... :)

Oh iyaa, Kalo sobat juga butuh "Cara Export Data Dari Database Ke Excel" sobat bisa kunjungi artikel Cara Export Data Dari Database Ke Excel.

Terima Kasih
Harley Daulay