VB 6.0 - Cara Input Database SQL Server

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