Jumat, 19 Oktober 2012

koding simpan,cari,edit


Assalamualaikum


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


SEBARKANLAH WALAUPUN CUMA SATU AYAT

IKATLAH ILMU MU DENGAN MENULISNYA


Wassalamualaikum