1. Meng Import Fungsi-fungsi untuk melakukan koneksi ke database
Imports System.Data.Odbc
Public Class Form1
Public con As OdbcConnection
Public sql As String
Public cmd As OdbcCommand
Public cek As OdbcDataReader
Public da As OdbcDataAdapter
Public ds As DataSet
2. Membuat Modul Koneksi
Sub koneksi()
sql = "dsn=tb_pasien;server=localhost;uid=root;port=3306"
con = New OdbcConnection(sql)
con.Open()
End Sub
*tb_pasien itu adalah nama datasourcename dari koneksi ODBC yang kita buat.... Penamaan nya terserah, yang penting saat setting ODBC database yang dipilih benar. dan pada modul koneksi, pemanggailan nama DATASOURCENAME nya juga sesuai...
3. Membuat Modul SUB (Create-Read-Update-Delete) Simpan-Cari-Perbaharui-Hapus
Sub simpan()
sql = "insert into db_posyandu.tb_pasien values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & Format(DateTimePicker1.Value, "yyyy-MM-dd") & "' )"
cmd = New OdbcCommand(sql, con)
cmd.ExecuteNonQuery()
MessageBox.Show("Data Berhasil diSimpan")
reset()
End Sub
sql = "select * from tb_pasien where no_pendaftaran= '" + TextBox1.Text + "'"
cmd = New OdbcCommand(sql, con)
cek = cmd.ExecuteReader
If (cek.Read) Then
TextBox2.Text = cek!nama_pasien
TextBox3.Text = cek!nama_ibu
TextBox4.Text = cek!nama_ayah
DateTimePicker1.Value = cek!tgl_lahir
End If
End Sub
Sub perbaharui()
sql = "update db_posyandu.tb_pasien set nama_pasien = '" + TextBox2.Text + "',nama_ibu = '" + TextBox3.Text + "',nama_ayah = '" + TextBox4.Text + "',tgl_lahir = '" + Format(DateTimePicker1.Value, "yyyy-MM-dd") + "' where no_pendaftaran= '" + TextBox1.Text + "'"
cmd = New OdbcCommand(sql, con)
cmd.ExecuteNonQuery()
cmd.Dispose()
MessageBox.Show("Data Berhasil diperbaharui")
reset()
End Sub
Sub hapus()
sql = "delete from tb_pasien where no_pendaftaran= '" + TextBox1.Text + "'"
cmd = New OdbcCommand(sql, con)
cmd.ExecuteNonQuery()
MessageBox.Show("Data Berhasil diperbaharui")
reset()
End Sub
Sub reset()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
DateTimePicker1.ResetText()
End Sub
4. Membuat Sub untuk menampilkan data pada DataGridView
Sub Tampil()
koneksi()
Try
Dim dt As New DataTable
da = New OdbcDataAdapter("select * from tb_pasien", con)
da.Fill(dt)
DataGridView1.DataSource = dt
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
5. Membuat Sub untuk membuat data tampil ke TextBoxt saat DataGridView di klik
Sub clikdataGrid()
TextBox1.Text = DataGridView1.CurrentRow.Cells(0).Value.ToString()
TextBox2.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString()
TextBox3.Text = DataGridView1.CurrentRow.Cells(2).Value.ToString()
TextBox4.Text = DataGridView1.CurrentRow.Cells(3).Value.ToString()
DateTimePicker1.Text = DataGridView1.CurrentRow.Cells(4).Value.ToString()
End Sub
6. Memanggil sub-sub diatas untuk menjalankan fungsi masing-masing nya
contoh : simpan()
jadi pada button simpan, gak perlu ketik kode panjang didalamnya, cukup panggil sub simpan yang kita buat dengan mengetikkan "simpan()"
gampangkan????
ConversionConversion EmoticonEmoticon