‘Tambahkan pada Kode Tampil Data
Set rsPemasok = New ADODB.Recordset
rsPemasok.Open "SELECT * FROM Pemasok", koneksi, adOpenDynamic, adLockPessimistic
Set rsPemasok = koneksi.Execute("Select * " & _
"From Pemasok Where PemasokID = '" & _
txtPemasokID.Text & "'")
With rsPemasok
txtPemasokNama.Text = .Fields("PemasokNama")
End With
Private Sub cmdCariPemasok_Click()
CariDataPemasok.Show
End Sub
‘Kode pada Form Cari Pemasok
Dim koneksi As ADODB.Connection
Dim rsPemasok As ADODB.Recordset
Sub KoneksiDatabase()
Set koneksi = New ADODB.Connection
koneksi.CursorLocation = adUseClient
koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Penjualan.mdb;Persist Security Info=False"
If Not koneksi.State = adStateOpen Then
MsgBox "Tidak dapat membuat hubungan ke database"
End If
End Sub
Sub MembukaTabel()
Set rsPemasok = New ADODB.Recordset
sql = "Select * from Pemasok"
With rsPemasok
.ActiveConnection = koneksi
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockBatchOptimistic
.Source = sql
.Open
End With
Set DataGrid1.DataSource = rsPemasok
End Sub
Private Sub Form_Load()
KoneksiDatabase
MembukaTabel
End Sub
Private Sub optPemasokID_Click()
txtPemasokID.Enabled = True
txtPemasokID.SetFocus
txtPemasokNama.Enabled = False
End Sub
Private Sub txtPemasokID_Change()
Set rsPemasok = koneksi.Execute("SELECT * FROM Pemasok WHERE PemasokID " & _
"LIKE '%" & txtPemasokID.Text & "%'")
Set DataGrid1.DataSource = rsPemasok
End Sub
Private Sub optPemasokNama_Click()
txtPemasokNama.Enabled = True
txtPemasokNama.SetFocus
txtPemasokID.Enabled = False
End Sub
Private Sub txtPemasokNama_Change()
Set rsPemasok = koneksi.Execute("SELECT * FROM Pemasok WHERE PemasokNama " & _
"LIKE '%" & txtPemasokNama.Text & "%'")
Set DataGrid1.DataSource = rsPemasok
End Sub
Private Sub cmdOk_Click()
MasterBarang.txtPemasokID.Text = DataGrid1.Columns(0).Text
MasterBarang.txtPemasokNama.Text = DataGrid1.Columns(1).Text
Unload Me
MasterBarang.txtBarangStock.SetFocus
End Sub
Private Sub DataGrid1_DblClick()
MasterBarang.txtPemasokID.Text = DataGrid1.Columns(0).Text
MasterBarang.txtPemasokNama.Text = DataGrid1.Columns(1).Text
Unload Me
MasterBarang.txtBarangStock.SetFocus
End Sub
Private Sub cmdBatal_Click()
Unload Me
End Sub
