koneksi database sql server dan vibi

Sebenere banyak cara buat koneksiin database sql server dengan visual basic. dari pake data environment sampe komponen adodc. klo gw sih lebih milih nulis di script aja. biar klo program di pindah kompi, kaga nyeting2 lagi..
langkah pertama:
-bikin dulu module di projectnya
ketikan di situ:

Public dbCon As New Connection
Public strCon As String

Sub ActCon()
On Error GoTo elol
strCon = "Driver={SQL Server}; Server=(local); Database=namadatabase; uid=sa; pwd=;"
Initial Catalog=perpus;Data Source=(local)"
dbCon.CursorLocation = adUseClient
If dbCon.state = adStateClosed Then
dbCon.Open strCon
If dbCon.state = adStateClosed Then
MsgBox "gagal konek"
End If
End If

elol:
strCon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=namadatabase;Data Source=(local)"
dbCon.CursorLocation = adUseClient
If dbCon.state = adStateClosed Then
dbCon.Open strCon
If dbCon.state = adStateClosed Then
MsgBox "gagal konek"
End If
End If
End Sub

udah belom??klo belom mending copas aja..gw kaga pelit ilmu koq..hehhe..

langkah kedua:
bikin form deh..teserah mo form apa aja boleh..yang penting paling atas form di isi deklarasi dari recordsetnya

Dim rs As New ADODB.Recordset

trus umpamanya mo bikin input data barang.di dalam tombol simpan.
tulisannya begini:

Set rs = New ADODB.Recordset
rs.Open "insert into barang(KodeBuku,NamaBuku,Kelas,Jumlah,HargaBeli,HargaJual,Stok) values ('" & txtkodebuku & "','" & txtnamabuku & "','" & txtkelas & "','" & txtjumlah & "','" & txtbeli & "','" & txtjual & "','" & txtstok & "')",dbcon,adOpenDynamic,adLockOptimistic

trus kasih tu massege box klo data berhasil disimpan.

msgbox "sukses deh input data"

habis itu...jangan lupa pas form loadnya dipanggil tuh sub yang ada dimodule..ActCon

selanjutnya tergantung pengembangan panjenengan-panjenengan semua..hehe..

Read More

jadwal ujiankuuuuuuuuu...

gw pengen teriaaak...waaaaaaaaaaaaaaaaaaaaaaa............sebel..sebel..sebel...kapan ne ujian skripsiku keluar?udah nunggu ber hari-hari berminggu-minggu. padahal aku dah slese skripsinya. dah bayar uang ujiannya juga..huuu...
trus gimana ne??apalagi klo ortu nyanya, kapan ujian?kapan lulus?kapan punya ijazah?kapan daftar kerja lagi? mestinya gw jawab mey..meybe yes, meybe no..wkkwkkw..:P
nasip ku terkatung-katung ne. mahasiswa, ga penah ke kampus. pengangguran, koq nunggu ujian. trus apa nie?
sebenere si yang paling gw takutin tu pas seminar pake rok..hihihih..ribet amit. mo pake celana jins boleh kaga ya. trus yang kedua, gw takut klo penguji gw pak t****..bisa mati kutu aku dilibas abis dengan bahasa nya dia yang udah senior nanganin java me.
bingung juga ne , koq skripsi gw makan waktu hampir 3 smester..gila abis...gara-gara tak tinggal kerja, tak tinggal dolan2, tak tinggal haha hihi..
terima nasib, siapin besok-bsok klo dihajar dosen pas pendadaran.

Read More

Event Scheduler di MySQL

munkin uda pada tau apa itu event scheduler.event scheduler tu merupakan sekumpulan query-query atau syntak-syntak yang dijalankan secara periodik atau terjadwal..umpamanya untuk mendelete record pada suatu tabel yang dilakukan secara terjadwal.
tapi kayaknya mysql yang support dengan event sceduler ini adalah mysql versi5.1
langsung aja praktekin di sini. bisa pake EMS ato klo gak pake navicat biar lebih gampang managemen mysql nya.
langsung praktekin di run SQL nya ketikan disitu :
SET GLOBAL event_scheduler = 1;
artinya dari syntak tersebut untuk menghidupkan event scheduler pada mySql.

sehabis itu ketikan di run SQl:

CREATE EVENT `event_del`
ON SCHEDULE EVERY 3 HOUR STARTS '2011-03-31 00:08:45'
ON COMPLETION NOT PRESERVE
ENABLE
COMMENT '' DO
delete from `booking` where booking.`stat_booking`='1' and booking.`tgl_booking` < curdate();


penjelasan:
schedulr berjalan tiap 3 jam
tiap 3 jam akan menghapus record di tabel booking jika status booking nya 1 dan tanggal booking nya kurang dari tanggal sekarang.

silahkan coba implementasikan di database anda..:D

Read More

Logo ku

Read More