Page Rank

A.W.$urveys

Ingin mendapatkan uang dengan survey klik aja disini:

Perintah Dasar Sql (Mysql) pada VB 6

Perintah SQL Pada Visual Basic 6
Oleh : Ahmad Rizal Abidin, M.Kom
1. Instal mysql-essential-5.1.29-rc-win32
2. Instal mysql-connector-odbc-5.1.5-win32
3. Setting ODBC
a. Klik Start, All Program, Control Panel, Administrative Tools, Data Source (ODBC)
b. Pada ODBC Data source Administrator
- Klik System DSN, klik ADD
- Pilih ODBC Mysql 5.1 Driver, Lalu klik Finish
Data source Name : ODBC_stock
Server : Localhost
User : root
Pasword : ******
Database : stock
- Klik Test, maka tampil “connection successfull”
- Klik OK,
4. Aktifkan Microsoft Visual Basic 6
5. Pilih VB Enterprise Edition Control, lalu klik Open
6. Pada layar kerja VB Klik Project, Klik Add Module, Klik Open
Ketik Listing program berikut :
Public kondb As New ADODB.Connection
Public rs As New ADODB.Recordset
Public strconnect As String
Public strsql As String
Sub Pindah(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys “{Tab}”
End If
End Sub
Public Function konek()
strconnect = “Provider = MSDASQL.1;persist security info = false; data source =odbc_stock;user id=root;pwd=”
If kondb.State = adStateOpen Then
kondb.Close
Set kondb = New ADODB.Connection
Set rs = New ADODB.Recordset
kondb.Open strconnect
Else
kondb.Open strconnect
End If
End Function
7. Klik File, Klik Save, lalu ketik mod_stock (module), form_barang (form1), stock (Project)
8. Aktifkan form 1 dengan cara klik Project Explorer, Klik Forms, lalu double klik Form 1 (Form1))
9. Buatlah sebuah form seperti gambar di bawah ini yang terdiri dari : label, textbox, datagrid dan CommanDButton

10. Apabila setelah selesai membuat form ketikan listing berikut dengan cara :
a. Double klik pada object form lalu ketikkan : (Form Load)
Private Sub Form_Load()
konek
kondb.CursorLocation = adUseClient
strsql = “SELECT * FROM BARANG”
Set rs = kondb.Execute(strsql)
Set DataGrid1.DataSource = rs
End Sub
b. Kembali ke form dan double klik tombol simpan : (command1)
Private Sub Command1_Click()
strsql = “insert into barang values (‘” + Text1.Text + “‘,’” + Text2.Text + “‘,’” + Text3.Text + “‘,’” + Text4.Text + “‘)”
Set rs = kondb.Execute(strsql)
End Sub
c. Kembali ke form dan double klik tombol Hapus : (command2)
Private Sub Command2_Click()
strsql = “delete from barang where kode_Barang =’” + Text1.Text + “‘”
Set rs = kondb.Execute(strsql)
End Sub
d. Kembali ke form dan double klik tombol Edit : (command3)
Private Sub Command3_Click()
strsql = “update barang set nama_Barang =’” + Text2.Text + “‘,satuan_barang = ‘” + Text3.Text + “‘ where kode_Barang=’” + Text1.Text + “‘”
Set rs = kondb.Execute(strsql)
End Sub
e. Kembali ke form dan double klik tombol Keluar : (command4)
Private Sub Command4_Click()
Unload me
End Sub
f. Kembali ke form dan double klik textbox kode barang : (text1) ganti event dari change menjadi key press
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
strsql = “select * from barang where kode_barang =’” + Text1.Text + “‘”
Set rs = kondb.Execute(strsql)
If rs.EOF Then
Text2.SetFocus
Else
Text2.Text = rs!nama_Barang
Text3.Text = rs!satuan_Barang
Text4.Text = rs!stok_barang
End If
End If
End Sub

Bigmoneyptc

firstclassbux.com

Try vinefire

Hits4pay

Media Pembelajaran dengan Konsep Konstruktivisme

Konsep Konstruktivisme dalam menggunakan media pembelajaran dapat membantu siswa untuk…

Langkah-langkah Instalasi ODBC dan Setting DSN pada Windows XP

Langkah-langkah Instalasi ODBC dan Setting DSN pada Windows XP

Oleh : Ahmad Rizal Abidin, S.Kom

 

Install Connector ODBC 5.1.5

1.  Download MYODBC 5.1 pada alamat: http://mysql.ntu.edu.tw/Downloads/Connector-ODBC/5.1/

     Nama filenya : mysql-connector-odbc-5.1.5-win32.msi

     Letakkan di folder yang diinginkan

2.  double klik file mysql-connector-odbc-5.1.5-win32.msi tersebut

3. Pada saat tampil kotak dialog MySQL Connector/ODBC  5.1 – Setup Wizard  Klik tombol next

4. Pada kotak dialog MySQL Connector/ODBC  5.1 – Setup Wizard  (Setup type)

    Pilih complete  lalu tekan tombol next

5. maka akan tampil kotak dialog berikutnya (Ready to Install the Program)

     Klik tombol  intstall

     Tunggu sampai proses intalasi selesai.

6. Kotak dialog berikutnya memberi keterangan Wizard Complete,

     Klik Finish

 

Setting DSN pada Windows XP

1.      Klik Start, Klik All Program, Klik Control Panel

2.      Kotak dialog control Panel akan ditampilkan, lalu double klik Icon Administrative tools

3.      Pada Kotak dialog Administrative Tools, dauble klik Icon Data Sources (ODBC)

4.      Pada  kotak dialog ODBC Data Source Administrator, Klik System DSN,  Klik  tombol Add, tampil kotak dialog Create new Data Store,

5.      Pada kotak dialog Create New Data Store ini, kita diminta untuk memilih driver yang digunakan  dalam pembuatan DSN, karena menggunakan mysql maka kita pilih nama drivernya MySQL ODBC 5.1 Driver.

Lalu Klik Finish

6.      Kotak dialog yang tampil selanjutnya adalah MySQL connector/ODBC Data Source Configuration, dimana padad kota dialog ini kita diminta untuk mengisi :

Data Source Name       : DSNPerpustakaan

Description                  : Database Perpustakaan

Server                          : Localhost                               port : 3306

User                             : root

Password                     : (kosongkan, kalau mysqlnya tidak menggunakan password)

Database                      :  Klik pilih database yang  akan dibuatkan DSNnya

 

Klik tombol Test à ini untuk menguji apakah database kita sudah terkoneksi dengan dsn atau belum kalau sudah maka akan ditampilkan keterangan Succed…

Lalu Klik tombol OK

 

Dengan demikian database yang sebelumnya telah dibuat dengan mysql sudah terbuat nama dsnnya sehingga kita dapat menggunakan dengan bahasa pemograman visual Basic, Delphi, dll..

Selamat mencoba…

PELATIHAN DESAIN MEDIA PEMBELAJARAN MATEMATIKA

PELATIHAN DESAIN MEDIA PEMBELAJARAN  MATEMATIKA

Di SMA Negeri 9 Padang

Sumatera Barat

——–
Oleh : Ahmad Rizal Abidin, S.Kom

Perkembangan teknologi pendidikan di dunia pendidikan semakin pesat, ini dapat dilihat di sekolah-sekolah fasilitas teknologi sudah mulai ditingkatkan, pelatihan-pelatihan dalam memanfaat teknologi ICT sudah sering dilakukan, salah satunya yang diadakan di SMA Negeri  9 Kota Padang, Sumatera Barat. Kegiatan Pelatihan ini diikuti oleh 4 SMA yaitu SMA N 6, SMA N 4, SMA N 3 dan SMA N 9 yang merupakan SMA yang dipersiapkan untuk standar nasional. Pemanfaatan ICT dalam pembelajaran ini diagendakan empat bidang studi matematika, biologi, kimia  dan Fisika. Dan Alhamdullilah, Penulis mendapatkan 2 kegiatan untuk menjadi nara sumber yaitu matematika di  SMA N 9 dan biologi yang diadakan di SMA N 6 Padang.

Dengan berbekal kemauan yang tinggi, peserta pelatihan yang terdiri dari guru-guru bidang studi matematika, mengikuti kegiatan pelatihan desain media pembelajaran yang diadakan pada hari minggu tanggal 30 November 2008.

Materi pelatihan pun dipersiapkan mulai dari pengenalan terhadap perangkat keras multimedia untuk pembelajaran software yang digunakan dan bagaimana mendesain materi yang akan disajikan sampai dengan implementasi pembuatan media pembelajaran.

Kegiatan ini  menunjukkan kebutuhan lembaga pendidikan dalam mengembangkan multimedia mulai meningkat seiring dengan perkembangan teknologi.

Dalam kegiatan ini diharapkan peserta pelatihan memiliki :

1.      Memiliki kemampuan dalam memilih materi yang akan disajikan di dalam media pembelajaran. Ini untuk meluruskan agar peserta tidak beranggapan semua materi dapat dibuatkan media pembelajaran. Contohnya : dibidang matematika materi yang baik dibuatkan media pembelajarannya adalah Geometri, salah satu alasannya adalah agar efisien dalam kegiatan belajar mengajar, karena guru tidak perlu menggambar dipapan tulis, tetapi sudah dibuatkan di dalam media sehingga kegiatan pembelajaran dapat diperbanyak dalam bentuk diskusi.

 

2.      Dapat memilih software yang dapat digunakan dengan mudah dalam mengimplementaskan media pembelajaran. Karena software pada saat ini sangat banyak sekali yang dapat digunakan.

 

3.      Mengetahui konsep dalam pembuatan media pembelajaran dengan menggunakan Komputer

 

4.      Yang terpenting…dengan  memiliki kemampuan dalam mendesain media pembelajaran, berarti peserta sangat menguasai materi yang akan disajikan. Ini dikarenakan membuat animasi dalam media pembelajaran itu mudah tetapi sejauh mana si pembuat menguasai materi yang akan disajikan, sehingga akan dipahami oleh siswa.

 

Alhamdullilah pelaksanaan kegiatan pelatihan ini berjalan lancar dan peserta sangat puas dengan apa yang telah didapatkan di dalam pelatihan, dan penulis membuka diri untuk berkonsultasi secara berkelanjutan dalam mendesain media pembelajaran, disela-sela kesibukan yang penulis lakukan. Moga saja apa yang telah diberikan dapat bermanfaat untuk peserta dan untuk kita semua… amin…