Manipulasi Database MySQL Di Visual Basic .Net Dengan Fasilitas ODBC

Dengan fasilitas ODBC anda dapat mengolah database MySQL siapkan software odbc anda, ODBC sebenarnya lebih sering digunakan untuk konversi data, ya maksudny yang tadinya data tersimpan di excel di konversi ke acces dan yang lainnya. pertama siapkan database seperti gambar  :

anda dapat menambah dengan perintah
CREATE Database 
CREATE TABLE barang (
  kode varchar(10) NOT NULL,
  nama varchar(20) NOT NULL,
  harga int(11) default NULL,
  jumlah int(11) default NULL,
  PRIMARY KEY  (kode)
);
INSERT INTO barang (kode, nama, harga, jumlah) VALUES ('B001', 'Laptop', 3000000, 10);

kemudian selanjutnya anda mendesian form

setelah desain selesai tampahkan kode

Imports System.Data.Odbc Module odbcKoneksi Public Mc As New OdbcConnection Public Mcd As OdbcCommand Public Mdr As OdbcDataReader Public ds As New DataSet Public Mda As OdbcDataAdapter Public Sql As String Public Sub terhubungDatabase() sql = "Driver={MySQL ODBC 3.51 Driver};server=localhost;uid=root;database=penjualan" mc = New OdbcConnection(sql) If mc.State = ConnectionState.Closed Then mc.Open() End If End Sub End Module Imports System.Data.Odbc Public Class frmBarang Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load terhubungDatabase() lihatData() End Sub Sub hapusInput() txtKode.Clear() txtNama.Clear() txtHarga.Clear() txtJumlah.Clear() End Sub Sub lihatData() Sql = "select *from barang" Mda = New OdbcDataAdapter(Sql, Mc) ds = New DataSet Mda.Fill(ds, "barang") dv.DataSource = ds.Tables("barang") End Sub Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click Sql = "insert into barang values('" & txtKode.Text & "','" & txtNama.Text & "','" & txtHarga.Text & "','" & txtJumlah.Text & "')" Mcd = New OdbcCommand(Sql, Mc) Mcd.ExecuteNonQuery() hapusInput() lihatData() End Sub Private Sub txtKode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtKode.KeyPress If Asc(e.KeyChar) = 13 Then If txtKode.Text = "" Then MsgBox("No Kosong") Exit Sub Else Sql = "select *from barang where kode='" & txtKode.Text & "'" Mcd = New OdbcCommand(Sql, Mc) Mdr = Mcd.ExecuteReader Try Mdr.Read() txtNama.Text = Mdr("nama") txtHarga.Text = Mdr("harga") txtJumlah.Text = Mdr("jumlah") ubah(False, False, True, True, True, False) txtKode.Enabled = False MsgBox("Data Sudah Ada") Catch ex As Exception MsgBox(ex.Message) ubah(False, True, False, False, True, False) End Try Mdr.Close() txtNama.Focus() End If End If End Sub Sub ubah(ByVal a As Boolean, ByVal b As Boolean, ByVal c As Boolean, ByVal d As Boolean, ByVal e As Boolean, ByVal f As Boolean) btnBaru.Enabled = a btnSimpan.Enabled = b btnEdit.Enabled = c btnHapus.Enabled = d btnBatal.Enabled = e btnKeluar.Enabled = f End Sub Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click Sql = "delete from barang where kode='" & txtKode.Text & "'" Mcd = New OdbcCommand(Sql, Mc) Mcd.ExecuteNonQuery() lihatData() End Sub Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click Sql = "update barang set nama='" & txtNama.Text & "',harga='" & txtHarga.Text & _ "',jumlah='" & txtJumlah.Text & "' where kode='" & txtKode.Text & "'" Mcd = New OdbcCommand(Sql, Mc) Mcd.ExecuteNonQuery() lihatData() End Sub Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click hapusInput() End Sub Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click hapusInput() txtKode.Focus() ubah(False, True, True, True, True, True) txtKode.Enabled = True txtKode.Focus() priksaKode() End Sub Sub priksaKode() Sql = "select kode from barang order by kode desc limit 1" Mcd = New OdbcCommand(Sql, Mc) Mdr = Mcd.ExecuteReader Try Mdr.Read() txtKode.Text = "B00" & Microsoft.VisualBasic.Right(Mdr("kode"), 1) + 1 Catch ex As Exception txtKode.Text = "B00" End Try Mdr.Close() End Sub End Class

Jika seudah benar akan menghasilkan seperti berikut

Apa itu domain dan hosting

Apa itu domain dan hosting - Anda yang sudah lama berkeliaran di dunia internet tentu sedikit banyak sudah mengenal istilah ini, yang keduanya sangat erat kaitannya dengan sebuah website, baik itu website pribadi ataupun website institusi besar. Nah pada kesempatan kali ini saya akan membahas tentang domain dan hosting, berikut uraiannya :

Pengertian domain
Domain merupakan sebuah nama unik yang diberikan untuk mengidentifikasi alamat server komputer. Walaupun awalnya domain di akses dengan ip adress tapi karena ip adress kurang praktis dan sulit di ingat jadi diganti dengan pemberian nama unik agar domain tersebut mudah di ingat.
Fungsi utama domain adalah memudahkan para pengunjung suatu website tanpa perlu mengingat ip adress dari website tersebut. Setiap domain di akhiri dengan ekstensi seperti .com, .id, dan masih banyak lagi ekstensi lain dari domain. Ekstensi domain yang ada juga memiliki tujuan penggunaan yang berbeda.

Pengertian hosting
Hosting adalah tempat yang digunakan untuk menyimpan data website seperti data tampilan web dan artikel dari web tersebut. Semua data website yang di disimpan
di hosting harus selalu terkoneksi internet 24 jam nonstop agar website tersebut dapat terus di akses banyak orang melalui jaringan internet. Jadi walaupun pemilik website tidak sedang online, website tersebut tetap dapat dikunjungi orang. Kecepatan koneksi internet para penyedia hosting juga menentukan lama tidaknya proses terbukanya sebuah website, bisa di katakan kalau loading website itu lama maka orang akan jenuh menunggunya dan akan lebih memilih untuk beralih ke mengunjungi website lain. Semua pemilik website sangat mempertimbangkan hal ini karena sangat berpengaruh pada jumlah kunjungan suatu website, tapi pengecualian untuk website instansi pemerintah/instansi besar lain yang tetap akan dikunjungi walaupun hosting websitenya memiliki waktu respon yang lama, itu karena website mereka tidak bertujuan untuk mencari keuntungan, jadi walaupun hanya sedikit yang mengunjungi mereka tidak akan rugi.

Macam macam domain
Berikut saya jabarkan beberapa jenis domain beserta jenisnya :
1. Free domain
Merupakan domain gratis yang disediakan oleh suatu pihak yang tidak meminta sejumlah biaya kepada penggunanya. Jadi setiap pengguna dapat membuat domain
tanpa mengeluarkan biaya, hanya saja domain seperti ini di iringi dengan subdomain yang sudah ditentukan oleh pihak penyedia domain gratis.
Beberapa contoh domain gratis :
  a. .blogspot.com : merupakan domain gratis yang disediakan oleh blogger yang merupakan startup di bawah naungan google, jadi saat anda membuat email di layanan gmail milik google anda juga langsung mendapat akses untuk membuat domain di blogger.com . Saat anda membuat domain di blogger anda juga akan mendapatkan layanan hosting gratis dari blogger.
  b. .worpress.com : merupakan domain gratis yang disediakan oleh wordpress.
  c. .blogdetik.com : merupakan domain gratis yang disediakan oleh blogdetik

2. Top Level Domain Generik :
  a. .com : domain yang digunakan untuk website yang membahas hal hal komersial atau perusahaan.
  b. .edu : merupakan domain yang digunakan oleh website yang membahas berbagai hal tentang pendidikan.
  c. .org : merupakan domain yang digunakan oleh website dari suatu organisasi.
  d. .biz : merupakan domain yang digunakan oleh website bisnis.

3. Top Level Domain Sponsor :
  a. .asia : digunakan oleh website yang berlikasi di asia.
  b. .id : merupakan domain yang digunakan oleh website yang berada di Indonesia
  c. .gov : merupakan domain yang digunakan oleh website pemerintah.
  d. .mil : merupakan domain yang digunakan oleh website militer.

4. Top Level Domain Khusus Indonesia
  a. .sch.id : digunakan oleh website sekolah selain universitas.
  b. .net.id : domain ini digunakan oleh website internet provider.
  c. .web.id : digunakan oleh website umum hanya saja lebih berat ke arah website pribadi.
  d. .or.id : digunakan oleh website suatu organisasi
  e. .co.id : domain ini digunakan oleh website suatu perusahaan.
  f. .go.id : digunakan oleh website pemerintahan.
  g. .ac.id : digunakan oleh website perguruan tinggi (universitas) di Indonesia

Macam macam hosting 
Hosting juga ada jenisnya, setiap hosting memiliki kualitas, daya penyimpanan dan tentunya harga yang berbeda beda. Berikut jenisnya dan contohnya :
1. Free Hosting
Merupakan hosting yang diberikan gratis oleh suatu pihak tanpa dipungut biaya dari penggunanya. Ya yang namanya gratis tentunya memiliki batasan, baik
itu dari segi penyimpanan ataupun aspek lain yang menentukan kualitas dari suatu website. Hosting jenis ini sangat berguna untuk mereka yang ingin belajar
membuat dan memelihara suatu website. Walaupun banyak dibatasan yang di tentukan penyedia hosting gratis namun menurut saya itu sudah cukup untuk anda
yang ingin belajar menggunakan bagaimana menggunakan hosting.

2. Shared Hosting
Adalah layanan hosting berbagi, berbagi disini berarti hosting yang anda gunakan juga digunakan secara bersama oleh pengguna lain. Layanan hosting
jenis ini cocok bagi anda yang ingin memiliki website dengan hosting berbayar agar terlihat seperti website professional dengan biaya yang relatif murah
Hosting jenis ini banyak digunakan website yang memiliki trafik yang masih sedikit.

3. VPS hosting
Pada satu server terdapat beberapa vps yang disewa oleh beberapa . Hosting jenis ini memiliki kapasitas penyimpanan yang cukup besar dan juga dapat
menampung trafik kunjungan yang cukup banyak. Namun untuk dapat menggunakan hosting jenis ini anda harus memiliki pengetahuan dan pengalaman untuk
dapat mengelolanya.

4. Dedicated hosting
Pada hosting ini anda memiliki satu server yang dibuat khusus untuk menyimpan data dan menampung lalu lintas trafik pada website anda. Semua perubahan
dan control terhadap hosting ini berada di tangan anda, jadi anda mengetahui semua seluk beluk server website anda. Hanya saja anda memerlukan pengetahuan
teknis yang tinggi untuk dapat mengelola hosting jenis ini.

Itulah sedikit pembahasan mengenai Apa itu domain dan hosting. Mohon maaf jika ada kekurangan dan kesalahan dari artikel diatas.

Program Kalkulator Di Visual Basic 6.0

Berikut merupakan aplikasi kalkulator di Visual Basic 6.0 ya sebenarnya kalo masih sedikit seperti ini masih sama dengan Visual Basic .Net
siapkan dan rancang program seperit berikut

data diatas diberi nama denga variabel Text1, Text2, Combo1 dan Text3 dan Form1 he he

selanjutnya tambahkan code seperti berikut

Private Sub Command1_Click() If Combo1.Text = " + " Then Text3.Text = Val(Text1.Text) + Val(Text2.Text) MsgBox ("Hasil Dari Penjumlahan Adalah " & Text3.Text) ElseIf Combo1.Text = " - " Then Text3.Text = Val(Text1.Text) - Val(Text2.Text) MsgBox ("Hasil Dari pengurangan Adalah " & Text3.Text) ElseIf Combo1.Text = " * " Then Text3.Text = Val(Text1.Text) * Val(Text2.Text) MsgBox ("Hasil Dari Perkalian Adalah " & Text3.Text) ElseIf Combo1.Text = " / " Then Text3.Text = Val(Text1.Text) / Val(Text2.Text) MsgBox ("Hasil Dari Pembagian Adalah " & Text3.Text) End If Bersih End Sub Private Sub Command2_Click() Unload Me End Sub Sub Bersih() Text1.Text = "" Text2.Text = "" Text3.Text = "" Combo1.Text = "" End Sub Private Sub Form_Load() Combo1.AddItem (" + ") Combo1.AddItem (" - ") Combo1.AddItem (" * ") Combo1.AddItem (" / ") End Sub

Program Simpan Data tanpa Database Pada Visual Basic .Net Dengan Fasilitas Listview

Menyimpan data pada Visual Basic .Net adalah bagaimana pengolahan data sederhana data disimpan dalam array atau pada fasilitas Listview itu sendiri. karna pada dasarnya logika tabel sama seperti array. silahkan design seperti gambar berikut

Selanjutnya tambahka code program seperti berikut

Private Sub btnBaru_Click(sender,e) Handles btnBaru.Click txtKode.Focus() txtKode.Clear() txtNama.Clear() txtHarga.Clear() txtJumlah.Clear() End Sub Sub buatkolom() With lv.Columns .Add("Kode", 50, HorizontalAlignment.Center) .Add("Nama", 100, HorizontalAlignment.Center) .Add("Harga", 200, HorizontalAlignment.Center) .Add("Jumlah", 100, HorizontalAlignment.Center) End With lv.View = View.Details lv.GridLines = True lv.FullRowSelect = True End Sub Sub isiTabel() Dim isi As New ListViewItem isi.Text = txtKode.Text isi.SubItems.Add(txtNama.Text) isi.SubItems.Add(txtHarga.Text) isi.SubItems.Add(txtJumlah.Text) lv.Items.Add(isi) End Sub Private Sub frmMahasiswa_Load(sender,e) Handles MyBase.Load buatkolom() End Sub Private Sub btnSimpan_Click(sender,e) Handles btnSimpan.Click isiTabel() btnBaru_Click(sender, e) End Sub Private Sub btnHapus_Click(sender,e) Handles btnHapus.Click If lv.Items.Count <> 0 Then lv.Items.Remove(lv.SelectedItems(0)) Else MsgBox("belum diseleksi") End If btnBaru_Click(sender, e) End Sub Private Sub lv_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lv.Click txtKode.Text = lv.SelectedItems(0).SubItems(0).Text txtNama.Text = lv.SelectedItems(0).SubItems(1).Text txtHarga.Text = lv.SelectedItems(0).SubItems(2).Text txtJumlah.Text = lv.SelectedItems(0).SubItems(3).Text End Sub Private Sub btnEdit_Click(sender,e) Handles btnEdit.Click If lv.Items.Count <> 0 Then With lv.SelectedItems(0) .SubItems(0).Text = txtKode.Text .SubItems(1).Text = txtNama.Text .SubItems(2).Text = txtHarga.Text .SubItems(3).Text = txtJumlah.Text End With Else MsgBox("") End If btnBaru_Click(sender, e) End Sub Private Sub btnKeluar_Click(sender,e) Handles btnKeluar.Click Dim tanya As String tanya = MsgBox("Apakah anda ingin keluar", MsgBoxStyle.OkCancel) If tanya = MsgBoxResult.Ok Then MsgBox("Anda Keluar") End End If End Sub

Setelah semua ditulis dengan benar akan menghasil proses simpan data dan juga proses penghapusan dan mengubah data pada program. simple banget kan aplikasinya , ini dapat dikembangkan sesuai keinginan Anda

Semoga Bermanfaat

Program Login Pada Visual Basic .Net Tanpa Database

Membuat aplikasi login dengan Visual Basic .Net tanpa database alias degang fungsi IF. Berikut langkah-langkah nya :
1. Buka aplikasi Visual Studio .Net
Yaitu tekan Windowr+R dan tulis "devenv".

2. Selanjutnya buat aplikasi baru dengan nama FrmLogin
Yakni clikc create project, pada project type pilih visual Basic.

gak perlu saya jelasin lagi ya saya anggap kalian sudah bisa paham sampai sini. Lanjut tekan Ok
3. Pada Solution Explorer, klik kanan nama project dan add, new item kemudian pilih Login Form dan klik add.

4. Kemudian klik kanan tambah printah berikut.

5. Setelah selesai jalan kan program, berikut hasil aplikasi form login tanpa database, disini juga sudah ada validasi hanya boleh 3 kali salah dan aplikasi keluar.

Bagaiman gampang banget kan. berikut Kodingnnya
<textarea> Dim x As Integer = 0 Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click If UsernameTextBox.Text = "sulit" And PasswordTextBox.Text = "komputer" Then Form1.Show() Me.Hide() Else x = x + 1 If x = 3 Then MsgBox("Anda sudah salah 3 Kali", MsgBoxStyle.Critical, "Hubungin Admin") End Else MsgBox("User dan Password Salah, Perbaiki", MsgBoxStyle.Critical, "Sulit Komputer") End If End If End Sub Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click Me.Close() End Sub
 Tuliskan pendapat Netter dengan komentar, jika ingin mendapatkan programnya silahkan kirim pesan.

Pengolahan Basis Data Pada MySQL dengan HTML Dan PHP

Tidak begitu sulit jika ingin mempelajari bahasa pemograman, apalagi menggunakan bahasa pemograman yang satu ini, baiklah berikut bahasa pemgorman dengan HTML dan PHP untuk mengolah Basis Data MYSQL dan tentu saja dengan paling sederhana. siapakan database nya dahulu:

create database sekolah; use sekolah; CREATE TABLE siswa ( nis varchar(15) NOT NULL, nama varchar(30) NOT NULL, alamat varchar(30) NOT NULL, kelamin varchar(15) NOT NULL, PRIMARY KEY (nis) );
Konekesi ke database

 

 Buat Index

 

 Tambah data

 Hapus Data

 Edit DAta

 

 Bagaimana Gampang banget Kan ??
apa males ngetik ok de saya bagi.. kirim mesengger ke fb saya dan saya balas dgn kirim Code programnya, semoga bermanfaat

Pengolahan Basis Data Pada Microsoft Acces Dengan Visual Basic .Net

Pengolahan basis data Pada Microsoft Acces dengan Visual Basic.Net yaitu melayani data dengan tehubung kepada user sehingga lebih mudah dan sederhana. Desain form seperti gambar berikut :

Selanjutnya tambah program berikut :

Imports System.Data.OleDb Public Class frmMahasiswa Sub ButtonBaru() btnBaru.Enabled = True btnSimpan.Enabled = False btnEdit.Enabled = False btnHapus.Enabled = False btnBatal.Enabled = False btnKeluar.Enabled = True End Sub Sub ButtonEdit() btnBaru.Enabled = False btnSimpan.Enabled = False btnEdit.Enabled = True btnHapus.Enabled = True btnBatal.Enabled = True btnKeluar.Enabled = False End Sub Sub ButtonSimpan() btnBaru.Enabled = False btnSimpan.Enabled = True btnEdit.Enabled = False btnHapus.Enabled = False btnBatal.Enabled = True btnkeluar.Enabled = False End Sub Public DB As OleDbConnection Public CMD As OleDbCommand Public ADP As OleDbDataAdapter Public DR As OleDbDataReader Public DS As New DataSet Dim SQL As String Public Sub OpenDB() Dim LOKASI = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source =dbstikom.accdb" DB = New OleDbConnection(LOKASI) If DB.State = ConnectionState.Closed Then DB.Open() End If End Sub Sub Tampil() ADP = New OleDbDataAdapter("select *from siswa", DB) DS = New DataSet ADP.Fill(DS, "siswa") Data.DataSource = DS.Tables("siswa") End Sub Private Sub frmMahasiswa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load OpenDB() Tampil() ' HapusText() End Sub Sub HapusText() txtNpm.Text = "" txtNama.Text = "" txtAlamat.Text = "" txtTelepon.Text = "" Call ButtonBaru() End Sub Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click ButtonBaru() txtNpm.Focus() End Sub Private Sub txtNpm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNpm.KeyPress Dim tombol As Integer = Asc(e.KeyChar) Dim xnmp As String If tombol = 13 Then SQL = "select *from siswa where npm='" & txtNpm.Text & "'" CMD = New OleDbCommand(SQL, DB) DR = CMD.ExecuteReader DR.Read() If DR.HasRows = True Then txtNama.Text = DR.Item(1) txtAlamat.Text = DR.Item(2) txtTelepon.Text = DR.Item(3) Call ButtonEdit() MsgBox("Data ditemukan !") Else xnmp = txtNpm.Text Call HapusText() txtNpm.Text = xnmp Call ButtonSimpan() End If txtNama.Focus() End If End Sub Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click SQL = "insert into siswa values('" & txtNpm.Text & "','" & _ txtNama.Text & "','" & _ txtAlamat.Text & "','" & _ txtTelepon.Text & "')" CMD = New OleDbCommand(SQL, DB) CMD.ExecuteNonQuery() btnBaru_Click(sender, e) Tampil() HapusText() End Sub Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click MsgBox("Selamat TInggal", MsgBoxStyle.Information, "Stikom Medan-Tebing Tinggi") End End Sub Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click SQL = "update siswa set nama='" & txtNama.Text & "', alamat='" & txtAlamat.Text & "', telpon='" & txtTelepon.Text & "' where npm='" & txtNpm.Text & "'" CMD = New OleDbCommand(SQL, DB) CMD.ExecuteNonQuery() btnBaru_Click(sender, e) Tampil() HapusText() End Sub Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click SQL = "delete *from siswa where npm='" & txtNpm.Text & "'" CMD = New OleDbCommand(SQL, DB) CMD.ExecuteNonQuery() btnBaru_Click(sender, e) Tampil() HapusText() End Sub Private Sub txtCari_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCari.TextChanged ADP = New OleDbDataAdapter("select *from siswa where nama like '%" & txtCari.Text & "%'", DB) DS = New DataSet ADP.Fill(DS, "siswa") Data.DataSource = DS.Tables("siswa") End Sub End Class
karna data tersimpan pada basis data, maka diperlukan perancangan basis date seperti gambar dan disimpan didalm folder "namaprogram\bin\debug".

setelah semua benar, seperti diatas jalankan program. sehingga menampilkan  aplikasi  seperti gambar berikut

Mudah banget bukan. semoga bermanfaat insyaAllah, Jika ingin mendapatkan program silahkan krim pesan ke https://www.facebook.com/mahasiswakomputer,