Membuat database pelanggan Hotel dengan menggunakan sistem konector ODBC dan dibantu dengan pemrograman Visual Basic

langkah pertama:
1.buat db_hotel di phpmyadmin seperti di bawah ini :

-ketik db_hotel dan klik sql dan copy program di bawah ini kedalam sql tersebut dan klik GO..!
-- phpMyAdmin SQL Dump
-- version 2.11.7
-- http://www.phpmyadmin.net
--
-- Host: localhost
-- Waktu pembuatan: 01. Juni 2013 jam 13:27
-- Versi Server: 5.0.51
-- Versi PHP: 5.2.6

SET SQL_MODE="NO_AUTO_VALUE_ON_ZERO";


/*!40101 SET @OLD_CHARACTER_SET_CLIENT=@@CHARACTER_SET_CLIENT */;
/*!40101 SET @OLD_CHARACTER_SET_RESULTS=@@CHARACTER_SET_RESULTS */;
/*!40101 SET @OLD_COLLATION_CONNECTION=@@COLLATION_CONNECTION */;
/*!40101 SET NAMES utf8 */;

--
-- Database: `dbHotel`
--

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

--
-- Struktur dari tabel `pelanggan`
--

CREATE TABLE IF NOT EXISTS `pelanggan` (
  `kd` varchar(25) NOT NULL,
  `nm` varchar(50) NOT NULL,
  `tempat_lahir` varchar(25) NOT NULL,
  `Tgl` date NOT NULL,
  `jk` varchar(10) NOT NULL,
  `agama` varchar(10) NOT NULL,
  `alamat` text NOT NULL,
  PRIMARY KEY  (`kd`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1;

--
-- Dumping data untuk tabel `pelanggan`
--

INSERT INTO `pelanggan` (`kd`, `nm`, `tempat_lahir`, `Tgl`, `jk`, `agama`, `alamat`) VALUES
('88', 'aaaaaaaa', 'asd', '2013-06-01', 'Laki-laki', 'Kristen', 'sdada');

2.koneksikan odbc seperti di bawah ini:

3.buka aplikasi visual Basic dan buat desaign form seperti di bawah ini :

4.tulis program di bawah ini kedalam bagian2 form seperti di bawah ini :


Private Sub Command1_Click()
Set rs = New Recordset
rs.Open "pelanggan", db, adOpenDynamic, adLockBatchOptimistic
rs.AddNew
rs.Fields("kd") = Text1.Text
rs.Fields("nm") = Text2.Text
rs.Fields("tempat_lahir") = Text3.Text
rs.Fields("tgl") = DTPicker1.Value
rs.Fields("jk") = Combo1.Text
rs.Fields("agama") = Combo2.Text
rs.Fields("alamat") = Text4.Text
rs.UpdateBatch
MsgBox "Data Berhasil Disimpan"
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Private Sub Command3_Click()
Set rs = New Recordset
rs.Open "select * from pelanggan where kd='" & Text1.Text & "'", db, adOpenDynamic, adLockBatchOptimistic

rs.Fields("nm") = Text2.Text
rs.Fields("tempat_lahir") = Text3.Text
rs.Fields("tgl") = DTPicker1.Value
rs.Fields("jk") = Combo1.Text
rs.Fields("agama") = Combo2.Text
rs.Fields("alamat") = Text4.Text
rs.UpdateBatch
MsgBox "Data Berhasil Diedit"
End Sub

Private Sub Command4_Click()
Set rs = New Recordset
rs.Open "select * from pelanggan where kd='" & Text1.Text & "'", db, adOpenDynamic, adLockOptimistic

rs.Delete
MsgBox "Data Berhasil Dihapus"
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Set rs = New Recordset
rs.Open "select * from pelanggan where kd='" & Text1.Text & "'", db, adOpenDynamic, adLockBatchOptimistic
If Not rs.EOF Then
Text2.Text = rs.Fields("nm")
Text3.Text = rs.Fields("tempat_lahir")
DTPicker1.Value = rs.Fields("tgl")
Combo1.Text = rs.Fields("jk")
Combo2.Text = rs.Fields("agama")
Text4.Text = rs.Fields("alamat")
MsgBox "Data Telah Ada di Database"
Else
Text1.SetFocus
End If
End Sub

5.klik kanan di form sebelah kanan lalu klik add dan ambil modul lalu klik program dibawah ini:
Global db As Connection
Global rs As Recordset

Sub main()
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "dsirwad"
Form1.Show
End Sub

6.Run program dan entry data pelanggan sperti di bawah ini:
 

7.setelah data di entry,save serta di add,maka data tersebut langsung tersimpan di dalam database pelanggan.

Selamat Mencoba,Semoga Bermanfaat...!!!