Cara menyimpan data ke tabel Database MYsql pada VB 6.0

untuk menyimpan data ke tabel database hanya diperlukan koneksi yang dibuat di Module

Lalu di panggil di Form load “Koneksi”

Coding Simpan :

Private sub csimpan_click()

Dim simpan as String

IF tkode=”” Then

Msgbox”Data masih kosong “,Vbinformation,”Isi data”

else

simpan = “insert into tabel ()value(‘ ” & tkode & “ ‘,’ “ & tnama & “ ‘,’ “ & tpemesan & “ ‘,’ “ & tjumlah & “’,’ “ & ttanggal & “ ‘)”

set tabel = dbado.Execute(simpan , , adcmdtext)

bersih

semula

end if

end sub

Logika Coding :

IF tkode = “” Then

jika nilai text tersebut “ 0 “ maka muncul pesan “ Data masih kosong”

else “jika tidak maka data akan tersimpan”

tabel “nama tabel pada database yang kita buat di MYsql”

 

Semoga membantu..

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s