Membuat database dari mysql di relasikan ke visual basic 2008

Imports MySql.Data.MySqlClient
Public Class Form1
    Dim db As New MySql.Data.MySqlClient.MySqlConnection
    Dim sql As String
    Dim cmd As MySqlCommand
    Dim rs As MySqlDataReader
    Sub opendb()
        sql = " server=localhost; uid=roo;database=dbpenjualan"
        Try
            db.ConnectionString = sql
            db.Open()
            MsgBox("Yes connect cayank!!!")
        Catch ex As Exception
            MsgBox("Ah gagal connectnya cayank!!!")

        End Try
    End Sub
    Sub buattabel()
        lv.Columns.Add("kode", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nama", 120, HorizontalAlignment.Left)
        lv.Columns.Add("Jenis", 100, HorizontalAlignment.Left)
        lv.Columns.Add("stok", 80, HorizontalAlignment.Left)
        lv.Columns.Add("harga", 100, HorizontalAlignment.Left)
        lv.GridLines = True
        lv.FullRowSelect = True
        lv.View = View.Details
    End Sub
    Sub isitabel()
        lv.Items.Clear()
        sql = "select*from Barang"
        cmd = New MySqlCommand(sql, db)
        rs = cmd.ExecuteReader
        While rs.Read()
            Dim lst As New ListViewItem
            With lst
                .Text = rs("kode_B")
                .SubItems.Add(rs("Nama_B"))
                .SubItems.Add(rs("Jenis"))
                .SubItems.Add(rs("stok"))
                .SubItems.Add(rs("Harga_B"))

            End With
            lv.Items.Add(lst)
        End While
        rs.Close()

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call opendb()
        Call buattabel()
        Call isitabel()
    End Sub

    Private Sub kodebarang_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kodebarang.KeyPress
        If Asc(e.KeyChar) = 13 Then
            If kodebarang.Text = "" Then
                MsgBox("kode tidak boleh kosong")
            Else
                sql = "select*from barang where kode_B='" & kodebarang.Text & "'"
                cmd = New MySqlCommand(sql, db)
                rs = cmd.ExecuteReader
                Try
                    rs.Read()
                    namabarang.Text = rs("Nama_B")
                    jeniasbarang.Text = rs("Jenis")
                    stok.Text = rs("stok")
                    hargabarang.Text = rs("Harga_B")


                Catch ex As Exception
                    MsgBox(ex.Message)

                End Try
            End If
            rs.Close()
            kodebarang.Enabled = False
            namabarang.Focus()

        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If kodebarang.Text = "" Or namabarang.Text = "" Or jeniasbarang.Text = "" Or stok.Text = "" Or hargabarang.Text = "" Then
            MsgBox(" data tidak kosong")
            bersih()
            kodebarang.Enabled = True
            kodebarang.Focus()

        Else
            sql = ""

            sql = "insert into barang(kode_B, Nama_B,Jenis,stok,Harga_B)" & _
            " values('" & kodebarang.Text & _
            " ','" & namabarang.Text & _
            "','" & jeniasbarang.Text & _
            "','" & stok.Text & _
            "','" & hargabarang.Text & "')"

            cmd = New MySqlCommand(sql, db)
            cmd.ExecuteNonQuery()
            isitabel()
            bersih()
            MsgBox("data telah tersimpan")
        End If


    End Sub
    Sub bersih()
        kodebarang.Text = ""
        namabarang.Text = ""
        jeniasbarang.Text = ""
        stok.Text = ""
        hargabarang.Text = ""
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        sql = " update barang set Nama_B='" & namabarang.Text & _
        "', Jenis = '" & jeniasbarang.Text & _
        "', stok = '" & stok.Text & _
        "', Harga_B ='" & hargabarang.Text & _
        "' where kode_B= '" & kodebarang.Text & "'"
        cmd = New MySqlCommand(sql, db)
        cmd.ExecuteNonQuery()
        isitabel()
        bersih()
        MsgBox("data telah teredit")

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        sql = " delete from barang where kode_B ='" & kodebarang.Text & "'"
        cmd = New MySqlCommand(sql, db)
        cmd.ExecuteNonQuery()
        isitabel()
        bersih()
        MsgBox("data telah terhapus")

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.Close()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        bersih()
        kodebarang.Enabled = True
        kodebarang.Focus()

    End Sub
End Class untuk menambah ilmu anda klik lah link dibawah ini!! mesran punya blog

Tipe-tipe data di mysql

                              Tipe Data Numeric Tipe data numerik yaitu

              tipe data yang digunakan untuk menyimpan data numeric (angka).
 1. TINYINT Penggunaan : digunakan untuk menyimpan data bilangan bulat positif dan negatif.        Jangkauan : -128 s/d 127 Ukuran : 1 byte (8 bit).

 2. SMALLINT Penggunaan : digunakan untuk menyimpan data bilangan bulat positif dan negatif. Jangkauan : -32.768 s/d 32.767 Ukuran : 2 byte (16 bit).

 3. MEDIUMINT Penggunaan : digunakan untuk menyimpan data bilangan bulat positif dan negatif. Jangkauan : -8.388.608 s/d 8.388.607 Ukuran : 3 byte (24 bit).

 4. INT Penggunaan : digunakan untuk menyimpan data bilangan bulat positif dan negatif. Jangkauan : -2.147.483.648 s/d 2.147.483.647 Ukuran : 4 byte (32 bit).

 5. BIGINT Penggunaan : digunakan untuk menyimpan data bilangan bulat positif dan negatif. Jangkauan : ± 9,22 x 1018 Ukuran : 8 byte (64 bit).

 6. FLOAT Penggunaan : digunakan untuk menyimpan data bilangan pecahan positif dan negatif presisi tunggal. Jangkauan : -3.402823466E+38 s/d -1.175494351E-38, 0, dan 1.175494351E-38 s/d 3.402823466E+38. Ukuran : 4 byte (32 bit).

 7. DOUBLE Penggunaan : digunakan untuk menyimpan data bilangan pecahan positif dan negatif presisi ganda. Jangkauan : -1.79...E+308 s/d -2.22...E-308, 0, dan 2.22...E-308 s/d 1.79...E+308. Ukuran : 8 byte (64 bit).

 8. REAL Penggunaan : digunakan untuk menyimpan data bilangan pecahan positif dan negatif presisi ganda. Jangkauan : -1.79...E+308 s/d -2.22...E-308, 0, dan 2.22...E-308 s/d 1.79...E+308. Ukuran : 8 byte (64 bit).

 9. DECIMAL Penggunaan : digunakan untuk menyimpan data bilangan pecahan positif dan negatif. Jangkauan : -1.79...E+308 s/d -2.22...E-308, 0, dan 2.22...E-308 s/d 1.79...E+308. Ukuran : 8 byte (64 bit).

 10. NUMERIC Penggunaan : digunakan untuk menyimpan data bilangan pecahan positif dan negatif. Jangkauan : -1.79...E+308 s/d -2.22...E-308, 0, dan 2.22...E-308 s/d 1.79...E+308. Ukuran : 8 byte (64 bit). ----------------------------------------------------------------------------------------------------------------------------------

                 Tipe Data Date dan Time Tipe data date dan time yaitu

          tipe data yang digunakan untuk menyimpan data tanggal dan waktu.

 1. DATE Penggunaan : digunakan untuk menyimpan data tanggal. Jangkauan : 1000-01-01 s/d 9999-12-31 (YYYY-MM-DD) Ukuran : 3 byte.

 2. TIME Penggunaan : digunakan untuk menyimpan data waktu. Jangkauan : -838:59:59 s/d +838:59:59 (HH:MM:SS) Ukuran : 3 byte.

 3. DATETIME Penggunaan : digunakan untuk menyimpan data tanggal dan waktu. Jangkauan : '1000-01-01 00:00:00' s/d '9999-12-31 23:59:59' Ukuran : 8 byte.

 4. YEAR Penggunaan : digunakan untuk menyimpan data tahun dari tanggal. Jangkauan : 1900 s/d 2155 Ukuran : 1 byte. ----------------------------------------------------------------------------------------------------------------------------------

                            Tipe Data String (Text) Tipe data string yaitu
 
            tipe data yang digunakan untuk menyimpan data string (text).

 1. CHAR Penggunaan : digunakan untuk menyimpan data string ukuran tetap. Jangkauan : 0 s/d 255 karakter

 2. VARCHAR Penggunaan : digunakan untuk menyimpan data string ukuran dinamis. Jangkauan : 0 s/d 255 karakter (versi 4.1), 0 s/d 65.535 (versi 5.0.3)

 3. TINYTEXT Penggunaan : digunakan untuk menyimpan data text. Jangkauan : 0 s/d 255 karakter (versi 4.1), 0 s/d 65.535 (versi 5.0.3)

 4. TEXT Penggunaan : digunakan untuk menyimpan data text. Jangkauan : 0 s/d 65.535 (216 - 1) karakter

 5. MEDIUMTEXT Penggunaan : digunakan untuk menyimpan data text. Jangkauan : 0 s/d 224 - 1 karakter

 6. LONGTEXT Penggunaan : digunakan untuk menyimpan data text. Jangkauan : 0 s/d 232 - 1 karakter ----------------------------------------------------------------------------------------------------------------------------------
                               
                              Tipe Data BLOB (Biner)

              Tipe data blob digunakan untuk menyimpan data biner. 1. BIT (sejak versi 5.0.3) Penggunaan : digunakan untuk menyimpan data biner. Jangkauan : 64 digit biner 2. TINYBLOB Penggunaan : digunakan untuk menyimpan data biner. Jangkauan : 255 byte 3. BLOB Penggunaan : digunakan untuk menyimpan data biner. Jangkauan : 216 - 1 byte 4. MEDIUMBLOB Penggunaan : digunakan untuk menyimpan data biner. Jangkauan : 224 - 1 byte 5. LONGBLOB Penggunaan : digunakan untuk menyimpan data biner. Jangkauan : 232 - 1 byte ----------------------------------------------------------------------------------------------------------------------------------

                             Tipe Data yang Lain Selain tipe data di atas,

          MySQL juga menyediakan tipe data yang lain, diantaranya adalah : 1. ENUM Penggunaan : enumerasi (kumpulan data). Jangkauan : sampai dengan 65535 string. 2. SET Penggunaan : combination (himpunan data). Jangkauan : sampai dengan 255 string anggotas. ------------------------------

Belajar VB.Net

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        For i = 1 To 30

            ComboBox1.Items.Add(i)

        Next i

        For i = 1 To 255

            ListBox1.Items.Add("Karakter" & i & " = " & Chr(i))

        Next i

        For i = 255 To 1 Step -1

            ListBox2.Items.Add("Karakter" & i & " = " & Chr(i))

        Next i

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        ListBox1.Items.Clear()

        For i = 1 To 10

            ListBox1.Items.Add(ComboBox1.Text & " x " & i & " = " & ComboBox1.Text * i)

        Next i

        ListBox2.Items.Clear()

        For i = 10 To 1 Step -1

            ListBox2.Items.Add(ComboBox1.Text & " x " & i & " = " & ComboBox1.Text * i)

        Next i

    End Sub

End Class

untuk menambah ilmu anda klik lah link dibawah ini!! mesran punya blog

Belajar database di Mysql

Microsoft Windows [Version 6.1.7600]
Copyright (c) 2009 Microsoft Corporation.  All rights reserved.

C:\Users\Restu Maduwu>cd\

C:\>cd apache/mysql/bin

C:\apache\mysql\bin>mysql
Welcome to the MySQL monitor.  Commands end with ; or \g.
Your MySQL connection id is 11 to server version: 3.23.47-nt

Type 'help;' or '\h' for help. Type '\c' to clear the buffer.

mysql> create database Hobby;
Query OK, 1 row affected (0.00 sec)

mysql> uuse Hobby;
ERROR 1064: You have an error in your SQL syntax near 'uuse Hobby' at line 1
mysql> use Hobby;
Database changed
mysql> create table BPC(
    -> kode_D varchar(10),
    -> Nama_D varchar(20),
    -> Alamat varchar(50));
Query OK, 0 rows affected (0.00 sec)

mysql> desc BPC;
+--------+-------------+------+-----+---------+-------+
| Field  | Type        | Null | Key | Default | Extra |
+--------+-------------+------+-----+---------+-------+
| kode_D | varchar(10) | YES  |     | NULL    |       |
| Nama_D | varchar(20) | YES  |     | NULL    |       |
| Alamat | varchar(50) | YES  |     | NULL    |       |
+--------+-------------+------+-----+---------+-------+
3 rows in set (0.00 sec)

mysql> insert into BPC(kode_D,Nama_,
    -> insert into BPC(kode_D,Nama_D,Alamat) values('1001','Restu','Medan');
ERROR 1064: You have an error in your SQL syntax near 'insert into BPC(kode_D,Na
ma_D,Alamat) values('1001','Restu','Medan')' at line 2
mysql> insert into BPC(kode_D,Nama_D,Alamat) values('1001',Mita','Medan');
    '> insert into BPC(kode_D,Nama_D,Alamat) values('1001','Mita','Medan');
    '> insert into BPC(kode_D,Nama_D,Alamat)values('1001','Restu','Medan');
    '> ';
ERROR 1064: You have an error in your SQL syntax near '','Medan');
insert into BPC(kode_D,Nama_D,Alamat) values('1001','Mita','Medan');' at line 1
mysql> insert into BPC(kode_D,Nama_D,Alamat) values('1001','Restu','Medan');
Query OK, 1 row affected (0.00 sec)

mysql> selsect*from BPC;
ERROR 1064: You have an error in your SQL syntax near 'selsect*from BPC' at line
 1
mysql> select * from BPC;
+--------+--------+--------+
| kode_D | Nama_D | Alamat |
+--------+--------+--------+
| 1001   | Restu  | Medan  |
+--------+--------+--------+
1 row in set (0.00 sec)

mysql> update BPC set Nama_D='Halim'where kode_D='1001';
Query OK, 1 row affected (0.00 sec)
Rows matched: 1  Changed: 1  Warnings: 0

mysql> select*from BPC;
+--------+--------+--------+
| kode_D | Nama_D | Alamat |
+--------+--------+--------+
| 1001   | Halim  | Medan  |
+--------+--------+--------+
1 row in set (0.00 sec)

mysql> insert into BPC values('1002','Yogy',Medan'),('1003','Apotes','Medan');
    '> insert into BPC values('1002','Yogy','Medan'),('1003','Apotes','Medan');
    '> ';
ERROR 1064: You have an error in your SQL syntax near ''),('1003','Apotes','Meda
n');
insert into BPC values('1002','Yogy','Medan'),('10' at line 1
mysql> insert into BPC values('1002','Toni','Medan'),('1003','Tono','Medan');
Query OK, 2 rows affected (0.00 sec)
Records: 2  Duplicates: 0  Warnings: 0

mysql> select*from BPC;
+--------+--------+--------+
| kode_D | Nama_D | Alamat |
+--------+--------+--------+
| 1001   | Halim  | Medan  |
| 1002   | Toni   | Medan  |
| 1003   | Tono   | Medan  |
+--------+--------+--------+
3 rows in set (0.00 sec)

mysql> delete from BPC where kode_D='1003';
Query OK, 1 row affected (0.02 sec)

mysql> select*from BPC;
+--------+--------+--------+
| kode_D | Nama_D | Alamat |
+--------+--------+--------+
| 1001   | Halim  | Medan  |
| 1002   | Toni   | Medan  |
+--------+--------+--------+
2 rows in set (0.02 sec)

mysql> delete from BPC;
Query OK, 0 rows affected (0.00 sec)

mysql> select*from BPC;
Empty set (0.00 sec)

mysql> Alter table BPC add Telp varchar(12) after Alamat;
Query OK, 0 rows affected (0.05 sec)
Records: 0  Duplicates: 0  Warnings: 0

mysql> alter table BPC add Id varchar(5)first;
Query OK, 0 rows affected (0.00 sec)
Records: 0  Duplicates: 0  Warnings: 0

mysql> desc BPC;
+--------+-------------+------+-----+---------+-------+
| Field  | Type        | Null | Key | Default | Extra |
+--------+-------------+------+-----+---------+-------+
| Id     | varchar(5)  | YES  |     | NULL    |       |
| kode_D | varchar(10) | YES  |     | NULL    |       |
| Nama_D | varchar(20) | YES  |     | NULL    |       |
| Alamat | varchar(50) | YES  |     | NULL    |       |
| Telp   | varchar(12) | YES  |     | NULL    |       |
+--------+-------------+------+-----+---------+-------+
5 rows in set (0.00 sec)

mysql> alter table BPC Change Telp No_Telp varchar(12);
Query OK, 0 rows affected (0.01 sec)
Records: 0  Duplicates: 0  Warnings: 0

mysql> desc BPC;
+---------+-------------+------+-----+---------+-------+
| Field   | Type        | Null | Key | Default | Extra |
+---------+-------------+------+-----+---------+-------+
| Id      | varchar(5)  | YES  |     | NULL    |       |
| kode_D  | varchar(10) | YES  |     | NULL    |       |
| Nama_D  | varchar(20) | YES  |     | NULL    |       |
| Alamat  | varchar(50) | YES  |     | NULL    |       |
| No_Telp | varchar(12) | YES  |     | NULL    |       |
+---------+-------------+------+-----+---------+-------+
5 rows in set (0.01 sec)

mysql> Alter table BPC Drop No_Telp;
Query OK, 0 rows affected (0.02 sec)
Records: 0  Duplicates: 0  Warnings: 0

mysql> desc BPC;
+--------+-------------+------+-----+---------+-------+
| Field  | Type        | Null | Key | Default | Extra |
+--------+-------------+------+-----+---------+-------+
| Id     | varchar(5)  | YES  |     | NULL    |       |
| kode_D | varchar(10) | YES  |     | NULL    |       |
| Nama_D | varchar(20) | YES  |     | NULL    |       |
| Alamat | varchar(50) | YES  |     | NULL    |       |
+--------+-------------+------+-----+---------+-------+
4 rows in set (0.00 sec)

mysql>
mysql>