Update ODBC Records in VB6

  

Open a new Standard EXE Visual Basic project. From the menu, select "Project" and then "References." Click the check box next to "Microsoft ActiveX Data Objects 2.x" where "x" is the highest number available on your machine. Click the "OK" button to save and close.

Add a new button to the default "Form1" that was created by default. Name the button "cmdUpdate" and set the caption equal to "Update." This button will save any updates directly to the appropriate table(s).

Declare variables to store the ADODB objects and a string variable for the SQL statement itself.
Dim oConn As ADODB.Connection
Dim strSQL As String
Dim oCmd as ADODB.Command

Connect to the database in the "Form_Load" event of "Form1."
Set oConn = New ADODB.Connection
oConn.ConnectionString = "DSN=MyDBName;Uid=admin;Pwd=password;"
oConn.Open

Code the SQL for the "update" statement in the click event of "cmdUpdate."
strSQL = "UPDATE myTable SET columnName = 'NewName' WHERE ID = 3;"
oCmd.CommandText = strSQL
oCmd.Execute

Read More

Sintak Pada SQL

1.    Untuk menampilkan beberapa field dalam satu tabel, dapat dipergunakan perintah
SELECT kode_karyawan, nama_karyawan FROM karyawan

2.    Menampilkan data dengan kondisi
SELECT * FROM karyawan WHERE kode_karyawan = ’2005000341’

3.    Operator AND(Dipergunakan untuk menampilkan record yang memiliki kondisi lebih dari satu, dan record yang ditampilkan hanya yang memenuhi semua kondisi)
SELECT nama_karyawan, gaji, kode_divisi FROM karyawan WHERE gaji > 2000000 AND kode_divisi = 'D0022'

4.    Operator OR(Dipergunakan untuk menampilkan record yang memiliki kondisi lebih dari satu, dan record yang ditampilkan yang memenuhi salah satu kondisi)
SELECT nama_karyawan, gaji, kode_divisi FROM karyawan WHERE gaji > 2000000 OR kode_divisi = 'D0022'

5.    Operator BETWEEN (Dipergunakan untuk menampilkan record yang berada dalam suatu batasan kondisi tertentu)
SELECT nama_karyawan, gaji, kode_divisi FROM karyawan WHERE gaji BETWEEN 2000000 AND 2600000

6.    Operator IN (Dipergunakan untuk menampilkan record yang berada dalam suatu kelompok kondisi tertentu )
SELECT nama_karyawan, gaji, kode_divisi FROM karyawan WHERE kode_divisi IN ('D0012', 'D0022')

7.    Operator NOT (Dipergunakan untuk menampilkan record yang tidak termasuk dalam suatu kondisi tertentu)
SELECT nama_karyawan, gaji, kode_divisi FROM karyawan WHERE NOT kode_divisi = 'D0012'

8.    Operator LIKE(Dipergunakan untuk menampilkan record yang memiliki bagian dari suatu kondisi tertentu Penggunaan operator LIKE bisa didukung oleh penggunaan karakter %)

9.    Operator Aritmetika
* , dipergunakan untuk perkalian
/ , dipergunakan untuk pembagian
+, dipergunakan untuk penambahan
- , dipergunakan untuk pengurangan
contoh Gaji_setahun = gaji * 12

10.    Menampilkan fungsi Agregat(SUM, AVG, COUNT, MIN, MAX)
Contoh : SELECT SUM(field) FROM nama_tabel
SELECT COUNT(nama_field) FROM nama_tabel
SELECT MIN(nama_field) FROM nama_tabel
Dan begitu sterusnya untuk fungsi yg lain.



11.    Fungsi Order by
Dipergunakan untuk menampilkan data yang terurut atau mengurutkan data.
Ada dua macam pengurutan :
Secara Ascending (Asc)(Pengurutan nilai kolom secara menaik atau membesar).
Secara Descending (Desc)(Pengurutan nilai kolom secara menurun atau mengeci)l.

12.    Fungsi Group BY
Fungsi GROUP BY dipergunakan untuk mengelompokkan record-record pada tabel.
Fungsi GROUP by dipergunakan mengikuti operasi agregat pada suatu perintah.

13.    Fungsi Having
Fungsi HAVING memiliki kesamaan fungsi seperti WHERE. Tetapi fungsi HAVING dipergunakan bila ada pemanggilan operasi GROUP dalam query dan operand-nya melibatkan pemanggilan operasi agregat. Jadi fungsi HAVING dipergunakan mengikuti Fungsi GROUP BY, untuk memberikan suatu kondisi.
SELECT colulmn_expression FROM table_name     GROUP BY grouping_expression HAVING roup_condition

14.    Fungsi JOIN
Fungsi JOIN dipergunakan untuk menampilkan data yang berasal lebih dari satu tabel.

Ada beberapa macam JOIN dalam SQL :

a.    Inner Joins
Inner joins menggunakan operator pembanding untuk mencocokkan baris (rows) dari dua tabel berdasarkan pada nilai yang ada di kolom yang dipergunakan sebagai pembanding atau penghubung dari masing-masing tabel.
Contoh :
select * from employee inner join department on employee.deparment_id = department. department_id

b.    Outer Joins
Outer join menampilkan semua baris dari tabel selama memenuhi kondisi walaupun tidak memiliki kecocokan data.
Ada tiga macam Outer Join : Left Outer Join, Right Outer Join dan Full Outer Join
Contoh :
select * from employee left outer join department on employee.deparment_id = department. department_id

c.    Cross Joins
Cross Join mengembalikan/menampilkan nilai semua baris (record) dari tabel sebelah kiri.
Setiap record dari tabel sebelah kiri digabungkan dengan semua record dari tabel sebelah kanan. Bila Cross Join menggunakan WHERE, maka hasil yang ditampilkan sama seperti bila menggunakan INNER JOIN. Cross join juga disebut dengan Cartesian products bila tidak menggunakan WHERE
Contoh :
SELECT trklinik.kdtransaksi, trklinik.kdpasien, pasien.nmpasien FROM trklinik CROSS JOIN pasien     WHERE trklinik.kdpasien = pasien.kdpasien ORDER BY kdtransaksi ASC

Read More

Membuat Splash Screen & ProgressBar VB

Nah Kali ini saya akan berbagi ilmu tentang Bagaimana Sih kalo membuat splash screen pada awal program kita dijalankan?
splash screen biasa banyak digunakan untuk program-program yang berbasis Multimedia, seperti Office, Photoshop, Corel Draw, dan masih banyak Lagi,,
Splash Screen berfungsi sebagai pelengkap ato Pemanis Program kita (Kaya Gula Aja :D ),,, tidak perlu panjang Lebar langsung  aja ke TKP!!
Bahan-bahan Yang harus dipersiapkan :
1. Form1 sebagai form Utama Program Atau Bisa Juga Pakai MDI Form tergantung jenis Program kita
2. Setelah itu kita tambah lagi form Splash . dengan cara Klik Kanan Pada Form1 Pilih Add, Form, pilih Splash Screen
3. Pada Splash Form sudah ada Sampel sampel nya kan ? Lihat gambar

 

edit lah Label label yang ada dengan text sesuain program apa yang anda inginkan.

4. setelah itu sisipkan Tools ProgressBar pada Form tersebut..

5. sisipkan Timer (tools yang gambar Jam bekker )

6. Sisipkan Label dibawah Progress Br dengan NAME = lblbar

Jika Bahan bahan sudah siap , sekarang Mari kita Uji coba Hehehehe, sebelum itu rubah Interval Timer1 dari 0 menjadi 500 (Sesuai kebutuhan).

setelah itu Double Klik pada Komponen Timer1.timer tulis koding berikut :

-------------------------------------------------------------------------------------------

PRIVATE SUB TIMER1_TIMER ()

Bar.Value = Bar.Value + 2

Screen.Mousepointer = Vbhourglass

If bar.value = 20 Then

     lblbar.caption = "Loading Component . .........."

Elseif bar.value = 40 Then

     lblbar.caption = "Chek System File.........."

Elseif bar.value = 60 Then

     lblbar.caption = "Sanning Virus . .........."

Elseif bar.value = 80 Then

     lblbar.caption = "Finalizing . .........."

Elseif bar.value = 100 then

      If bar.value = 100 then

             If timer1.interval >= 1 then

                 Unload me

                 Load Form1

                 Form1.show

                 screen.Mousepointer = VBdefault

             End if

       End if

End if

End Sub

-------------------------------------------------------------------------------------

Nah, jika sudah selesai mengetik koding coba Jalankan dengan Tekan Tombol F5... 

Berhasil? Sangat Simple

Tapi Untuk Lebih dimengerti Lagi saya akan memberikan keterangan pada setiap koding :

- Screen.Mousepointer = Vbhourglass untuk merubah pointer mouse ke bentuk Jam pasir (pointer loading )

- If bar.value = 20 Then

     lblbar.caption = "Loading Component . .........." menyatakan jika Progress bar sudah sampai ke percent 20 maka akan memunculkan Label Kata "Loading......" dan seterusnya.

-  If bar.value = 100 then

             If timer1.interval >= 1 then

                 Unload me

                 Load Form1

                 Form1.show

                 screen.Mousepointer = VBdefault

             End if menyatakan jika progress bar sudah ke Percent 100 dan waktu interval lebih sama dengan 1 maka akan kembali ke Form splash (Karna tidak mengecek form1).. dan jika Form1 ada maka akan mengload atau menjalankan Form1/MDI form, , , dan pointer mouse akan kembali ke kursor biasa..

Source:http://ajarivb.blogspot.com/2011/03/membuat-splash-screen-progressbar-vb.html  

 

 

Read More

Membuat Progressbar di VB.NET

Nah Progressbar apakah itu Progressbar ?? Pernah melihat suatu aplikasi mempunyai loading ?? Nah inilah salah satu fungsi dari progressbar. Nah terus bagaimana cara membuat progressbar khusunya di VB.NET ?? Yuk mari kita ikuti tutorial berikut : 1. Buka Visual Studionya 2. New Project –> Windows Form Application , dan beri nama Progresbar dan checklist Create directory for solution nya, lihat gambar berikut : 3. Maka akan muncul form1 di lembar kerja Visual Studionya, 4. Design formnya dan tambahkan beberapa label, progressbar dan timer dari toolbox :

Control	Name	Text
Progressbar	Progressbar1	-
Label	Label1	Mohon tunggu sistem sedang mempersiapkan program…….
Label	Label2	Created By : ariartama.com
Label	Label3	2011
Timer	Timer1	-

Lihat gambar berikut :   5. Double klik formnya sehingga muncul event form load dan coding ini :

   1: Timer1.Start()

6. Double klik timernya sehingga muncul event tick pada timernya dan coding ini :

   1: If Pb_Loading.Value < 100 Then

   2:     Pb_Loading.Value += 2

   3: ElseIf Pb_Loading.Value = 100 Then

   4:     Timer1.Stop()

   5:     MessageBox.Show("Selamat datang di programku ", "Pemberitahuan", MessageBoxButtons.OK, MessageBoxIcon.Information)

   6: End If

7. Code lengkapnya sebagai berikut :

   1: Public Class Form1

   2:     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

   3:         If Pb_Loading.Value < 100 Then

   4:             Pb_Loading.Value += 2

   5:         ElseIf Pb_Loading.Value = 100 Then

   6:             Timer1.Stop()

   7:             MessageBox.Show("Selamat datang di programku ", "Pemberitahuan", MessageBoxButtons.OK, MessageBoxIcon.Information)

   8:         End If

   9:     End Sub

  10:  

  11:     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

  12:         Timer1.Start()

  13:     End Sub

  14: End Class

8. Jadi deh tuh progressbar, tinggal running alias di F5 dan tunggu apa yang akan terjadi, lihat gambar berikut : Sekian yang dapat saya posting pada kesempatan ini semoga bermanfaat :)
Source Code nnya bisa didownload disini

Read More

Membuat Progressbar Pada VB 6.0

Kalau dalam artikel sebelumnya kita membuat tampilan menggunakan shockwave flash, sekarang saya akan membagikan ilmu saya menggunakan progress bar, mungkin rekan2 pembaca udah pernah liat yang bagaimana progress bar. Nah sekarang mungkin sekarang langsung aja ya.

Buatlah project baru dengan pilihan standart exe, kemudian tambahkan component progress bar, dengan cara klik kanan pada area toolbox. Pilih component, pada tab control. Kemudian pilih dengan cara beri tanda centang Microsoft windows common control 6.0 (SP6).
Sudah semuanyaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa. LANJUT
Sekarang kembali kearea kerja kemudian klik icon progress bar. Buatlah sebuah progressbar pada form anda. Dan buatlah sebuah command button, Seperti pada gambar berikut:

Kemudian ketikkan coding (kalo malas copy paste aja) berikut pada coding editor anda dengan cara klik icon view code yang ada pada sudut kanan properties project:
Private Sub Command1_Click()
For manusia_biasa = 1 To 100000 //nilai dapat ditentukan sendiri
Manusia_biasa = manusia_biasa + 1
ProgressBar1.Value = i
Next i
End
End Sub

Private Sub Form_Load()
Dim manusia_biasa As Integer
ProgressBar1.Max = 100000 //nilai dapat ditentukan sendiri
ProgressBar1.Min = 1
End Sub
Setelah itu klik tombol start atau tekan F5 pada keyboard anda.
Sekian artikel dari saya semoga bermanfaat bagi anda sekalian. SELAMAT MENCOBA!!!!!

Read More