Membuat Form Inputan Sederhana Menggunakan Database Mysql [Koneksi ADO]

Ok, met malming para jombloger🙂 hehe Ok mumpung ane jomblo, galau yaa lagi memandang gerimis, ane coba eksprimen yang ane sendiri ga pernah pake sama sekali, yaa coba koneksi pake ADODB kan biasanya klo mau koneksi kita pake ODBC ato metode SPT, katanya sih kata juga ADODB lebih Cepat dari pada pake ODBC klo datanya banyak🙂 ga pernaj banyak data sih hehe OK langsung aja ya

1. buat form kaya gini aja

1

2. pada Form.init


public lors,locon
create cursor csiswa(cnis c(10),cnama c(50),ckota c(30))
select csiswa
zap
thisform.grid1.recordsource='cSiswa'

locon = newobject("ADODB.Connection")

lcconstr="Driver={MYSQL ODBC 5.1 Driver};server=localhost;Database=sekolah;uid=root;pwd=4DM1N;"
locon.open( lcconstr )
lcsql = 'select nis,nama,kota from tblsiswa'
lors = locon.execute( lcsql )
do while !lors.eof
 lcnis=lors.fields('Nis').value
 lcnama=lors.fields('Nama').value
 lckota=lors.fields('Kota').value
 lors.movenext

select csiswa
 append blank
 replace cnis with lcnis,;
 cnama with lcnama,;
 ckota with lckota
enddo
locon.close
thisform.grid1.refresh

3. Bikin Method dengan nama Segarkan(terserah anda aja) terus tulis koding ini


SELECT cSiswa
ZAP

loCon = NewObject("ADODB.Connection")

lcConStr="Driver={MYSQL ODBC 5.1 Driver};server=localhost;Database=sekolah;uid=root;pwd=4DM1N;"
loCon.open( lcConStr )
lcSQL = 'select nis,nama,kota from tblsiswa'
loRS = loCon.execute( lcSQL )
do while !loRS.eof
 lcNis=loRs.Fields('Nis').value
 lcNama=loRs.Fields('Nama').value
 lcKota=loRs.Fields('Kota').value
 loRS.MoveNext

 SELECT cSiswa
 APPEND BLANK
 REPLACE cNis WITH lcNis,;
 cnama WITH lcNama,;
 cKota WITH lcKota
 ENDDO
 loCon.Close
thisform.grid1.Refresh

4. Pada tombol simpan Command1.Click


LOCAL lcNis,lcNama,lcKota
 lcNis=ALLTRIM(thisform.text1.Value)
 lcNama=ALLTRIM(thisform.text2.Value)
 lcKota=ALLTRIM(thisform.text3.Value)
 lcConStr="Driver={MYSQL ODBC 5.1 Driver};server=localhost;Database=sekolah;uid=root;pwd=4DM1N;"
 loCon.open( lcConStr )
TEXT TO lcSql NOSHOW TEXTMERGE PRETEXT 7
INSERT INTO tblsiswa(nis,nama,kota)
values('<<lcNis>>','<<lcNama>>','<<lcKota>>')
ENDTEXT

loRS = loCon.execute( lcSQL )
 thisform.segarkan

5. pada tombol ubah


LOCAL lcNis,lcNama,lcKota
 lcNis=ALLTRIM(thisform.text1.Value)
 lcNama=ALLTRIM(thisform.text2.Value)
 lcKota=ALLTRIM(thisform.text3.Value)
 lcConStr="Driver={MYSQL ODBC 5.1 Driver};server=localhost;Database=sekolah;uid=root;pwd=4DM1N;"
 loCon.open( lcConStr )
TEXT TO lcSql NOSHOW TEXTMERGE PRETEXT 7
UPDATE tblsiswa SET nama='<<lcnama>>',kota='<<lckota>>'
where nis='<<lcnis>>'
ENDTEXT

loRS = loCon.execute( lcSQL )
 thisform.segarkan

6. pada tombol hapus


LOCAL lcNis,lcNama,lcKota
 lcNis=ALLTRIM(thisform.text1.Value)
 lcNama=ALLTRIM(thisform.text2.Value)
 lcKota=ALLTRIM(thisform.text3.Value)
 lcConStr="Driver={MYSQL ODBC 5.1 Driver};server=localhost;Database=sekolah;uid=root;pwd=4DM1N;"
 loCon.open( lcConStr )

TEXT TO lcSql NOSHOW TEXTMERGE PRETEXT 7
DELETE FROM tblsiswa
where nis='<<lcnis>>'
ENDTEXT
 loRS = loCon.execute( lcSQL )
 thisform.segarkan
 thisform.text1.Value=''
 thisform.text2.value=''
 thisform.text3.Value=''

Ok Coba run

2

Gimana? Sipp kan,,naa daripada bingung ni ane upload kan ni

http://www.mediafire.com/?9g6jpcchc9c32p2

sebenarnya masih ada 1 trik lagi yaitu menggunakan Metode CA (Cursor Adapter) tp nanti lagi lah,,nunggu saya galau hehe

OK moga kalian mendapat pencerahan dan moga sukses selalu sehat lahir batin di luaskan pintu rejeki dimudahkan segala urusan Amiinn, doakan ane juga yaa ^_^

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: