Membuat Module Sendiri di VB

Hari ini saya ditugasi untuk membuat module sendiri , maksudnya agar vb bisa terkoneksikan ke dalam database. Hehe setelah 1 tahun ini saya membuat project selalu saja copas module yang diberi oleh guru saya. Sekarang saya akan menjelaskan bagaimana cara mengkoneksikan vb ke database.
Pertama-tama saya membuat project baru, sediakan 2 command : test koneksi, dan listview.
Di dalam module saya membuat function  :


Option Explicit
Function koneksi(server As String, database As String, user As String, password As String, con As ADODB.Connection) As Boolean
On Error GoTo x
If con.State = adStateOpen Then con.Close
con.Open "Provider=SQLNCLI10;Server=" & server & ";Database=" & database & ";Trusted_COnnection=yes;encript=yes"
koneksi = True
MsgBox "koneksi sucsess"
Exit Function
x:
koneksi = False
MsgBox "koneksi gagal"
End Function

Sub isilist()

End Sub

nah didalam command test koneksi :
scripnya :


Private Sub Command1_Click()
Dim con As New ADODB.Connection
If koneksi("DIIGNASEVIIRAPC\SQLEXPRESS", "askes", "", "", con) = False Then
Unload Me
End If
End Sub

Sekian ..
Semoga bermanfaat yah :)
Maaf bila terbatas ..

12 September 2012

Rabu September 12th 2012 test koneksi saya telah bisa dijalankan. Alhamdulilah.. Setelah itu saya kembali melanjutkan tugas ke 2 yaitu mengisi listview otomatis dengan menggunakan script. Disela-sela mengerjakan Pak.Chandra datang untuk menagih tugas. Tugas askes.. Akhirnya kelompok saya presentasi kloter ke 2. Banyak masukan yang saya dapat dari Pak.Chandra. Mulai dari type data dan panjang data, database, sampai ke desain form. Form yang saya buat bersama-sama kelompok saya sudah bagus tetapi masih banyak yang harus direfisi. Seperti penempatan command/tombol ..
Biasanya urutannya Add, Save, Batal, Hapus, Edit, Print, Keluar. Dalam tata bahasa juga harus diperhatikan. Hehe project kami bahasanya campur aduk .. Ya ini untuk pelajaran bagi saya dan teman-teman. Sorenya ada tambahan dari Pak.Chandra dijelaskan ttg Tips Praktis Masuk Dunia Kerja dari Astra. Banyak sekali yang saya dapat dari itu..

11 September 2012

Hari Selasa ini saya masih mencari cara untuk membuat test koneksi. Disamping itu saya menulis artikel ttg pembuatan ES KERING PEMBUATAN ES KERING

10 September 2012

Senin ini saya di ajarkan oleh Mas.Yondy dan Mas.Eko tentang bagaimana mengatur Posisi Dasar Pada Form VB. Seperti tampilan awal, Tampilan Add, Atau Tampilan Koreksi/edit. Hehe, biasanya bila akan membuat project saya selalu copas module yang dulu diberikan oleh guru saya. Sore ini juga, saya diberi tugas membuat module sendiri.Seperti yang sudah dijelaskan oleh Mas.Eko, di formnya, diberi command/tombol yang berisikan test koneksi. Pertama saya sediakan project baru di vb yang di formnya saya beri 2 command dan 1 listview. Tugas yang kedua, masih berhubungan dengan module. command ditambah lagi untuk menambahkan fungsi isi list view otomatis melalui script. Insha Allah besok saya bisa menyelesaikannya.

Posisi Dasar Pada Form Visual Basic

Sebenarnya sudah 3 hari yang lalu saya belum memosting apapun di blog. Sekarang saya akan menjelaskan posisi-posisi awal pada form. Karena project yang saya buat ini tidak  membutuhkan koneksi, jadi langsung saja saya memulai desain interface di form. Pertama saya membuat label yang berisi : id, nama, dan alamat. Textbox 3 buah dan tambahkan command/isbutton sebanyak 7 : Add, Save,Batal Edit, Delete, Keluar, Print. Namenya sudah saya ganti.

Tombol Add = cmdad

Tombol Save = cmdsave

Tombol Batal = cmdbatal

Tombol Edit = cmdedit

Tombol Delete = cmddelete

Tombol Keluar = cmdkeluar

Tombol Print = cmdprint

Tombol-tombol ini belum diberi script sama sekali (koneksi).
Disini saya buat 3 posisi .
Posisi awal, posisi add, posisi koreksi

Posisi awal seperti ini desainnya :

07 September 2012

Jumat ini saya melakukan perbaikan terhadap project saya. Sebelumnya project input data sub kelas terapi sudah selesai tetapi masih banyak yang harus diperbaiki. Pak Chandra mengkonfirmasi apakah project telah selesai. Ternyata presentasi ditunda.

06 Sepetember 2012

Hari Kamis ini saya belajar query.. Lalu untuk besok saya di beri tugas untuk membuat project input data dengan vb 6.0 . Dibagi 2 kelompok dan kelompok saya beranggotakan 4 orang. Yaitu Saya, Rosi, Angga, Alaudin. Sebelumnya saya di pinjami buku yang berjudul "ASKES". Di dalamnya ada halaman kuning yang indeksnya adalah "Kelas Terapi". Kata Pak Chandra tujuan Beliau meminjami buku itu adalah untuk mengisi datanya. Projectnya simpel.

05 September 2012

Hari ini saya mencari artikel tentang macam-macam relasi antar table ..  mau tau, klik disini
Lalu Mas Yondy memberi pelajaran tentang query pada sql .
urutan syntaknya :
Select --> From --> Where --> Group by --> Having --> Order by

misal data saya :

 kemudian Mas Yondy memberi pertanyaan ..
Bagaimana query menampilkan data sehingga sepertiini tampilannya :

Scripnya adalah :

select distinct left(companyname ,1),COUNT(*) as jumlah from Customers where left (companyname,1) <> 'c'  group by left(CompanyName,1)  having count(*)> 4 and count(*) < 7 order by 1 

04 September 2012

Hari ini saya ditugasi oleh pak Chandra untuk mengupdate website milik kerabat beliau. Web Panti Asuhan KH Mas Mansyur . Lalu saya browsing tentang struktur program yang akan saya buat untuk kedepannya.. Yang pasti bertemakan "KESEHATAN". Untuk itu saya harus menargetkan program apa yang akan saya kerjakan dan mempelajari struktur yang ada di dalamnya.

03 September 2012

Hari ini saya tidak masuk prakerin karena SAKIT .