Minggu, 05 Januari 2020

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

Related Posts:

  • Sidadi Huta Imbaru Sidadi,,,itulah sebutannya, sebuah desa kecil yang terletak kira kira 20 Km di arah tenggara Padang sidempuan,Kecamatan Batang Angkola Kabupaten Tapanuli Selatan. Sebuah Desa kecil yang berpenduduk kira-kira 300 KK. … Read More
  • Kebiasaan Buruk Yang Dapat Merusak OtakOtak manusia terdiri lebih dari 100 miliar syaraf yang masing-masing terkait dengan 10 ribu syaraf lain. Bayangkan, dengan kerumitan otak seperti itu, maka Anda wajib menyayangi otak Anda cukup dengan menghindari kebiasaan-ke… Read More
  • Belajar PLC (Programmable Logic Control) Dasar  Sebelum Lebih jauh mempelajari PLC (Programmable Logic Control), ada baiknya kita mengenal terlebih dahulu apa itu PLC, Nah untuk Lebih jelasnya saya berikan sedikit penjelasan. Pengertian PLC Programmable … Read More

0 Comments:

Posting Komentar

Silahkan Berkomentar..!