Forum Laboratorium BSI Bekasi
Selamat Datang pengunjung...

Jika anda sudah terdaftar dalam forum ini silahkan login, namun jika tidak harap mendaftar dahulu untuk melihat forum-forum yang dikunci...

Forum ini adalah forum yang didirikan oleh Asisten BSI untuk berbagi pengetahuan tentang apa saja....

Semoga forum ini bermanfaat....


Forum Komunitas Lab BSI Bekasi yang ditujukan untuk sharing ilmu pengetahuan tentang apa saja dan juga sebagai tempat nongkrong kaum intelektual
 
HomeFAQSearchRegisterLog in

Share | 
 

 Simpan, Cari, Edit, Hapus Di VB 6.0

View previous topic View next topic Go down 
AuthorMessage
zaidkhusain
Head Administrator
Head Administrator


Jumlah posting : 117
Poin : 2147483647
Reputasi : 1
Join date : 2011-05-07
Age : 26
Lokasi : di Rumah
Warning :

PostSubject: Simpan, Cari, Edit, Hapus Di VB 6.0   Mon May 09, 2011 10:19 pm

Assalamualaikum



hmmm...dah lama g ngetrid ttg pibi 6.0 trid materi lab akh.... bagi nyang ngajar vb mungkin bisa berguna dikit hi2... banyak2 belajar m bang nurdin klo pibi 6.0 doi programmer tulen vb 6.0 dolo pas muda...oce langsung z yak nie coding dasar untuk simpan, edit, hapus, cari dgn adodb, adodc & data cekibrot...

untuk pemula juga Smile C...ode-code dibawah ini hanya sebatas code-code dasar untuk simpan, cari, ubah dan hapus, tidak disertakan code-code validasi, penanganan error ataupun code untuk koneksinya.



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

#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



3. ADODB

nah untuk adodb koneksina pake module add module dolo buat koneksina...

sederhanana kaya gini



Public con As New ADODB.Connection

Public rst As New ADODB.Recordset 'berfungsi sebagai variabel penyimpan sementara record

Public strcon As String ' variabel untuk code koneksi

Public strsql As String ' variabel untuk menampung code atau query sql

Public Sub Connections()
strcon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=test"



Nb : nah isi provider bla bla bla diatas... diambil dari connection string di data maupun adodc di jendela propertiesna copas z oce...



#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



dah mungkin segini z dolo moga bermanfaat yak mengasikkan kok belajar vb cuma karang lagi pokus WEB dolo Smile



WASSALAM



SEBARKANLAH WALAUPUN CUMA SATU AYAT

IKATLAH ILMU MU DENGAN MENULISNYA
Back to top Go down
 
Simpan, Cari, Edit, Hapus Di VB 6.0
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» Export IDE code to JUNIT4, edit and import back to IDE
» EDIT TEXT AREA
» Nih aplikasi edit foto dari android yang ngga kalah ama photoshop
» image edit request please read
» How to edit the banner (fixed)

Permissions in this forum:You cannot reply to topics in this forum
Forum Laboratorium BSI Bekasi :: MATERI LAB :: VISUAL BASIC :: TEKNIK-TEKNIK PEMROGRAMAN VB-
Jump to: