09.48
Unknown
Dasar Visual Basic
1. sytax Module untuk mengubungkan Visual basic dengan data Base
Public Kns As New ADODB.Connection
Public Rs As New ADODB.Recordset
Pada baris selanjutnya >
Public Sub BukaDb()
Set Kns = New ADODB.Connection
Set Rs = New ADODB.Recordset
Kns.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\dbstock.Accdb"
End Sub
2. Syntax beberapa komponen Pendukung pada From
a. Private Aktivate
Private Sub Form_Activate()
Call Kosong
Call BukaDb
Adodc1.ConnectionString = Kns
Adodc1.RecordSource = "[Tabel Barang]"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
Call Kosong
End Sub
b. Private Kosong
Sub Kosong()
Text1.Text = ""
Text2.Text =...
