PEMPROGRAMAN VISUAL (Script)

Private koneksi As New ADODB.Connection
Private Sub Form_Load()
Combo1.Text = Combo1.List(0)
Set koneksi = New ADODB.Connection
koneksi.Open "provider = microsoft.jet.oledb.4.0;data source=toko.mdb;"
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then
   Combo1.Clear
   Combo1.AddItem "BTN"
   Combo1.AddItem "BRI"
   Combo1.AddItem "BCA"
   Combo1.AddItem "Danamon"
End If
End Sub

Private Sub Option2_Click()
If Option2.Value = True Then
   Combo1.Clear
   Combo1.AddItem "Liberty Reserve"
   Combo1.AddItem "Paypal"
   Combo1.AddItem "Money Booker"
   Combo1.AddItem "Alertpay"
 
End If
End Sub
Private Sub Command1_Click()
Dim tipe As String
If Option1 Then
    tipe = Option1.Caption
Else
    tipe = Option2.Caption
End If
sql = "INSERT INTO aliem(nama,alamat,email,tipe,keterangan) VALUES('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & tipe & "','" & Combo1.Text & "')"
koneksi.Execute (sql)
MsgBox "data berhasil disimpan ke database", vbInformation, "sukses"
Adodc1.Refresh
End Sub

by: Moh. Awnul Aliem, Dj