Kode Dasar Coding

1. DATA CONTROL
Yang perlu diperhatian adalah bahwa Data Control membutuhkan index untuk pencarian yang selanjutnya untuk melakukan edit dan hapus data


#Simpan Data :

Data1.Recordset.AddNew
Data1.Recordset!namakolom1 = Text1.Text
Data1.Recordset!namakolom2 = Text2.Text
Data1.Recordset.Update
Data1.Refresh

#Pencarian Data :

Data1.Recordset.Index = "KodeIdx"
Data1.Recordset.Seek "=", Textcari.Text
If Not Data1.Recordset.NoMatch Then
     Text1.Text = Data1.Recordset!namakolom1
     Text2.Text = Data1.Recordset!namakolom2
Else
     MsgBox "Maaf, Data Tidak Ditemukan!"
End if

#Edit Data :

Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Data1.Recordset.Edit
Data1.Recordset!namakolom1=Text1.Text
Data1.Recordset!namakolom2=Text2.Text
Data1.Recordset.Update
Data1.Refresh

#Hapus Data :

Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Data1.Recordset.Delete
Data1.Refresh


2. ADODC
Kode coneksi database
#coneksi :(General)
Option Explicit
Private koneksi As ADODB.Connection
Dim rstabel As New ADODB.Recordset
Private Function konek() As Boolean
    On Error GoTo out
        Set koneksi = New ADODB.Connection
        koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\NamaDatabas.mdb;Persist Security Info=False"
        koneksi.CursorLocation = adUseClient
        konek = True
out:
End Function
Deklarasi coneksi(Form Load)
If Not konek() Then
        MsgBox "Gak bisa terhubung ke database!", vbCritical
        End
    End If
    Adodc1.ConnectionString = koneksi.ConnectionString
    Adodc1.RecordSource = "nama tabel"
    Set DataGrid1.DataSource = Adodc1

#Simpan Data :
Adodc1.Recordset.AddNew
Adodc1.Recordset!namakolom1 = Text1.Text
Adodc1.Recordset!namakolom2 = Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh


#Pencarian Data :
Adodc1.Recordset.Find "namakolom1='" + Text1.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
     Text1.Text = Adodc1.Recordset!namakolom1
     Text2.Text = Adodc1.Recordset!namakolom2
Else
     MsgBox "Maaf, Data Tidak Ditemukan!"
End if

#Edit Data :

Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Adodc1.Recordset!namakolom1=Text1.Text
Adodc1.Recordset!namakolom2=Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh

#Hapus Data :

Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Adodc1.Recordset.Delete
Adodc1.Refresh

# Menampilkan data ke TexBok  dengn mengklik DataGrid
If Adodc1.Recordset.RecordCount <= 0 Then Exit Sub
    If Not Adodc1.Recordset.BOF And Not Adodc1.Recordset.EOF Then
        Text1.Text = Adodc1.Recordset.Fields("nama kolom pertama")
    End If

#Mencari data yang dittampilkan di datagrid   caranya ke 2
If Adodc1.Recordset.RecordCount <= 0 Then Exit Sub
     Adodc1.Recordset.MoveFirst
     Adodc1.Recordset.Find "kolum1='" & Text1.Text & "'"
______________________________________________________________________________

3. ADODB
Sebelum melangkah lebih jauh sebaiknya Anda membaca terlebih dahulu bagaimana koneksi database dengan menggunakan ADODB disini

#Simpan Data :
ado.Execute "INSERT INTO [nama tabel] VALUES ('" + Text1.Text + "','" +  Text2.Text + "')"

#Pencarian Data
Set Rs = New Adodb.Recordset
Rs.Open "SELECT * FROM [nama table1] WHERE [nama kolom1]='" + TextCari.Text + "'", ado
If Not rs.EOF Then
     Text1.Text = rs("namakolom1")
     Text2.Text = rs("namakolom2")
Else
     MsgBox "Maaf, Data Tidak Ditemukan!"
End if 

#Edit Data

ado.Execute "UPDATE [nama tabel] Set [namakolom1]='" + Text1.Text + _
                    "',[namakolom2]='" + Text2.Text + _
                    "' WHERE [nama kolom1]='" + TextCari.Text + "'"

Code diatas tidak memerlukan lagi kode pencarian seperti code edit untuk DATA dan Adodc

#Hapus Data
ado.Execute "DELETE * FROM [nama tabel] WHERE [nama kolom1]='" + TextCari.Text + "'"

Postingan populer dari blog ini

Gagasan Utama

Gagasan utama  atau  gagasan pokok  adalah pernyatan yang menjadi inti dari sebuah pembahasan. Atau dengan bahasa lain gagasan utama adalah gagasan yang menjadi dasar pengembangan sebuah paragraf. Gagasan utama biasanya terletak pada kalimat utama. Kalimat utama lazimnya terdapat pada awal paragraf. Namun demikian, tidak sedikit paragraf yang kalimat utamanya terletak di akhir paragraf, di awal dan akhir paragraf, atau menyebar di seluruh paragraf. Gagasan utama itulah yang diuraikan dalam setiap paragraf dengan kalimat-kalimat penjelas. Lalu bagaimana kita dapat menentukan gagasan utama dalam sebuah teks? Cara menentukan Gagasan Utama dalam Paragraf Berikut ini adalah tips untuk menentukan gagasan utama dalam sebuah teks. 1. Membaca dengan cermat Bacalah kalimat demi kalimat di dalam paragraf pada teks tersebut dengan cermat, dan pahami pula apa yang sedang dibahas atau dibicarakan di dalam teks. Setelah membaca teks tersebut secara keseluruhan, jawablah pertanyaa...
liat disini ya>>

informasi lengkap mengenai ovipar,vivipar dan ovovivipar

Pengertian, Ciri-Ciri,  dan Contoh Hewan Ovipar Vivipar Ovovivipa r-Perkembangbiakan hewan secara generatif dapat dilakukan dengan tiga cara yaitu ovipar ( bertelur ), vivipar ( melahirkan/beranak ), dan ovovivipar ( bertelur dan melahirkan ). A. Pengertian, Ciri-Ciri, dan Contoh Hewan Ovipar/Betelur 1. Pengertian ovipar Menurut Wikipedia.org, Ovipar adalah salah satu cara berkembang biakkan hewan dengan cara bertelur, yang pada umumnya mempunyai ciri-ciri telurnya dierami sampai menetas. Menurut Kamus besar bahasa Indonesia ( KBBI ), ovipar adalah jenis reproduksi yg mengakibatkan telur yg dikeluarkan berkembang dan menetas di luar badan induknya. 2. Ciri-ciri hewan ovipar/bertelur tidak mempunyai daun telinga tidak mempunyai kelenjar susu tdak menyusui anaknya  3. Contoh hewan yang berkembang biak dengan cara bertelur ( ovipar ) Contoh hewan yang berkembang biak dengan cara bertelur/ovipar yaitu semua bangsa burung/unggas, sebagian bangsa reptil, sebagian bangsa serang...
liat disini ya>>

Tempat suci

Gambar
Tempat suci, tempat ibadah atau tempat peribadatan merupakan tempat atau bangunan yang dianggap suci (dikeramatkan). Setiap umat mempunyai tempat suci dalam pelaksanaan ibadahnya. Adapun tempat ibadah dari agama resmi di Indonesia adalah Masjid (untuk umat Islam), Gereja (untuk umat Protestan dan Katholik), Pura (untuk umat Hindu), Wihara (untuk umat Buddha) dan Litang/kelenteng untuk umat Khonghucu. Pemerintah memberikan perlindungan akan tempat ibadah ini sebagai wujud nyata dari UUD 1945 tentang kebebasan beragama. Bahkan di tempat umum pun dibangun tempat-tempat ibadah, seperti Bumi Perkemahan Cibubur di Jakarta Timur menyediakan masjid, gereja, pura dan wihara. Pengertian Pura Pura merupakan tempat suci Umat Hindu. Pura biasanya didirikan di tempat yang sekelilingnya asri seperti laut, gunung, goa, hutan dan sebagainya. Penyebutan nama tempat suci dalam Ajaran Hindu tidak secara gamblang. Tempat suci atau pemujaan ini disebut devalaya, devasthana, deval atau deul yang bera...
liat disini ya>>