VB 6.0 - Cara Input Database SQL Server

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

Pada pembelajaran VB 6.0 Database SQL Server kali ini kami akan bahas mengenai cara Input atau Insert Data kedalam database SQL Server menggunakan Visual Basic 6.0
Caranya sangat mudah, anda cukup mengikuti langkah dibawah dan langsung anda praktikan pada komputer anda

Untuk bisa mengikuti tutorial kami dibawah anda harus :
1. Sudah Install Visual Basic 6.0
2. Sudah Install SQL Server pada komputer anda ( kami menggunakan SQL Server versi 2008 )

Buatlah database dengan nama : DB_SEWAMOBIL
Buatalah tabel dengan nama : TBL_MOBIL
Buatlah Design dan Isi tabel TBL_MOBIL persis seperti tutorial kami sebelumnya. KLIK DISNI

Jika sudah bisa membuat Database dan Tabel ikuti petunjuk dibawah :
Buka VB 6.0 anda
Buatlah form seperti gambar dibawah ini :

Kemudian masukan koding dibawah ini :

Dim Koneksi As New ADODB.Connection
Dim RSMOBIL As ADODB.Recordset
Sub BukaDB()
    Set Koneksi = New ADODB.Connection
    Set RSMOBIL = New ADODB.Recordset
    Koneksi.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DB_SEWAMOBIL"
End Sub
Sub Kosongkan()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
End Sub
Private Sub Form_Activate()
Call BukaDB
Adodc1.ConnectionString = Koneksi
Adodc1.RecordSource = "TBL_MOBIL"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
Call Kosongkan
End Sub
Private Sub Command1_Click()
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Or Text5 = "" Or Text6 = "" Then
    MsgBox "Data Belum Lengkap"
    Else
    Call BukaDB
    Dim TambahMobil As String
        TambahMobil = "Insert Into TBL_MOBIL values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "','" & Text5 & "','" & Text6 & "')"
        Koneksi.Execute TambahMobil
        MsgBox "Data Berhasil Ditambah", vbInformation, "Pemberitahuan"
        Form_Activate
End If
End Sub
Private Sub Command2_Click()
End
End Sub

Kemudian silahkan jalankan atau Run Project VB 6.0 anda
Hasilnya adalah seperti gambar dibawah ini :

Silahkan masukan data dengan lengkap, kemudian anda klik Tombol SIMPAN
Sangat mudah bukan???
Silahkan ikuti tutorial kami selanjutnya dan jangan lupa untuk berkomentar dibawah....

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel VB 6.0 - Cara Input Database SQL Server, Diterbitkan oleh scodeaplikasi pada Kamis, 24 September 2015. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.