BEJO'S APPLICATIONS

Monday, July 30, 2018

VB.Net Tutorial Creating a Function Displaying Data From Table To Datagridview

By July 30, 2018 No comments:

The purpose of making this function is to facilitate and accelerate the making of the application, because every time you will display data from the table to the datagridview you simply call this function so there is no need to rewrite the long program code.

I hope you understand first how to create database and table in mysql.

Create database with name: kampus_db and create table t_mahasiswa with structure below. please execute your sql script following:

DROP DATABASE IF EXISTS kampus_db;
CREATE DATABASE kampus_db;
USE kampus_db;

DROP TABLE IF EXISTS `t_mahasiswa`;
CREATE TABLE `t_mahasiswa` (
  `id` int(5) NOT NULL AUTO_INCREMENT,
  `nim` varchar(6) NOT NULL,
  `full_name` varchar(20) NOT NULL,
  `jenis_kelamin` varchar(6) NOT NULL,
  `jurusan` varchar(30) NOT NULL,
  PRIMARY KEY (`id`),
  UNIQUE KEY `nim` (`nim`)
) ENGINE=InnoDB DEFAULT CHARSET=latin1;

INSERT INTO t_mahasiswa (nim,full_name,jenis_kelamin,jurusan) VALUES
  ('100201','FRANSISKUS SUTRIS','PRIA','TEKNIK INFORMATIKA'),
  ('101202','MUHAMMAD ILHAM','PRIA','SISTEM INFORMASI'),
  ('102203','FRANSISKA HANDANI','WANITA','MANAJEMEN');

Add Mysql.Data.dll in Project Reference

Add a Module and name it Module1.vb, then copy the following program code :

Imports MySql.Data.MySqlClient
Module Module1
    Public conn As New MySqlConnection
    Public errorDescription As String
    Public server As String = "127.0.0.1" 'silahkan disesuaikan
    Public username As String = "root" 'disesuaikan /user default mysql adalah root
    Public password As String = "12345678" 'ini password root ditempat saya
    Public database_name As String = "kampus_db"

    Public Function bejoDBConnect() As String
        'fungsi koneksi ke mysql database
        If Not conn Is Nothing Then conn.Close()
        conn.ConnectionString = String.Format("server={0}; user id={1}; password={2}; database={3}; pooling=false; Convert Zero Datetime=True", server, username, password, database_name)
        Try
            conn.Open()
            Return "OK"
        Catch ex As Exception
            errorDescription = ex.Message
            Return ex.Message
        End Try

    End Function
     Sub showDataToDGV(sql As String, tabelName As String, dgv As DataGridView)
  'fungsi menampilkan data ke datagridview
     bejoDBConnect()
     Try
          Dim com As String = sql
          Dim Adpt As New MySqlDataAdapter(com, conn)
          Dim ds As New DataSet()
          Adpt.Fill(ds, tabelName)
          dgv.DataSource = ds.Tables(0)
     Catch ex As Exception
          MsgBox(ex.Message, vbCritical)
     End Try
    End Sub
End Module

Please add Windows Form and leave the name Form2.vb, drag the datagridview control into form2, add the Button to the form2 as shown below:

Double Click on control Button 1, then copy the following program code on sub Button1_Click :

Cursor.Current = Cursors.WaitCursor
showDataToDGV("Select * FROM t_mahasiswa", "t_mahasiswa", DataGridView1)
Cursor.Current = Cursors.Default

The full program code in form2.vb is as follows :

Please change the Startup Form on the project properties to Form2. Then try press F5 to run the program. When executed and Button1 is clicked then student data from table t_mahasiswa will appear in datagridview:

So every time you will display data from table to datagridview just call the showDataToDGV function.

showDataToDGV(sql As String, tabelName As String, dgv As DataGridView)

Explanation Function showDataToDGV :

Parameter	Description
sql	sql query to read data with prefixed commands select
tableName	selected table names
dgv	control name datagridview which will be used to display data

Tutorial VB.Net Membuat Fungsi Menampilkan Data Dari Tabel Ke Datagridview

By July 27, 2018 No comments:

Tujuan dari membuat fungsi ini adalah agar mempermudah sekaligus mempercepat pembuatan aplikasi, karena setiap kali anda akan menampilkan data dari tabel ke datagridview anda cukup memanggil fungsi ini sehingga tidak perlu menulis ulang kode program yang panjang.

Saya harap anda sudah memahami dahulu bagaimana membuat database dan table di mysql.

Buat database dengan nama : kampus_db dan buat tabel t_mahasiswa dengan struktur di bawah ini. silahkan anda execute script sql berikut:

DROP DATABASE IF EXISTS kampus_db;
CREATE DATABASE kampus_db;
USE kampus_db;

DROP TABLE IF EXISTS `t_mahasiswa`;
CREATE TABLE `t_mahasiswa` (
  `id` int(5) NOT NULL AUTO_INCREMENT,
  `nim` varchar(6) NOT NULL,
  `full_name` varchar(20) NOT NULL,
  `jenis_kelamin` varchar(6) NOT NULL,
  `jurusan` varchar(30) NOT NULL,
  PRIMARY KEY (`id`),
  UNIQUE KEY `nim` (`nim`)
) ENGINE=InnoDB DEFAULT CHARSET=latin1;

INSERT INTO t_mahasiswa (nim,full_name,jenis_kelamin,jurusan) VALUES
  ('100201','FRANSISKUS SUTRIS','PRIA','TEKNIK INFORMATIKA'),
  ('101202','MUHAMMAD ILHAM','PRIA','SISTEM INFORMASI'),
  ('102203','FRANSISKA HANDANI','WANITA','MANAJEMEN');

Tambahkan Mysql.Data.dll dalam Project Reference

Tambahkan Modul dan beri nama Modul1.vb, lalu kopikan kode program berikut :

Imports MySql.Data.MySqlClient
Module Module1
    Public conn As New MySqlConnection
    Public errorDescription As String
    Public server As String = "127.0.0.1" 'silahkan disesuaikan
    Public username As String = "root" 'disesuaikan /user default mysql adalah root
    Public password As String = "12345678" 'ini password root ditempat saya
    Public database_name As String = "kampus_db"

    Public Function bejoDBConnect() As String
        'fungsi koneksi ke mysql database
        If Not conn Is Nothing Then conn.Close()
        conn.ConnectionString = String.Format("server={0}; user id={1}; password={2}; database={3}; pooling=false; Convert Zero Datetime=True", server, username, password, database_name)
        Try
            conn.Open()
            Return "OK"
        Catch ex As Exception
            errorDescription = ex.Message
            Return ex.Message
        End Try

    End Function
     Sub showDataToDGV(sql As String, tabelName As String, dgv As DataGridView)
  'fungsi menampilkan data ke datagridview
     bejoDBConnect()
     Try
          Dim com As String = sql
          Dim Adpt As New MySqlDataAdapter(com, conn)
          Dim ds As New DataSet()
          Adpt.Fill(ds, tabelName)
          dgv.DataSource = ds.Tables(0)
     Catch ex As Exception
          MsgBox(ex.Message, vbCritical)
     End Try
    End Sub
End Module

Silahkan tambahkan Windows Form dan biarkan namanya Form2.vb, drag control datagridview ke dalam form2, tambahkan juga Button ke dalam form2 seperti gambar berikut ini:

Double Click pada kontrol Button1, lalu kopikan kode program berikut ini pada sub Button1_Click :

Cursor.Current = Cursors.WaitCursor
showDataToDGV("Select * FROM t_mahasiswa", "t_mahasiswa", DataGridView1)
Cursor.Current = Cursors.Default

Kode program lengkapnya pada form2.vb adalah seperti berikut :

Silahkan ubah Startup Form pada project properties menjadi Form2. Lalu coba tekan F5 untuk menjalankan programnya. Ketika dijalankan dan Button1 diklik maka data mahasiswa dari tabel t_mahasiswa akan tampil di dalam datagridview:

Jadi setiap kali anda akan menampilkan data dari tabel ke datagridview cukup panggil saja fungsi showDataToDGV.

showDataToDGV(sql As String, tabelName As String, dgv As DataGridView)

Penjelasan Fungsi showDataToDGV :

Parameter	Deskripsi
sql	sql query untuk membaca data dengan diawali perintah select
tableName	nama tabel yang diseleksi
dgv	nama kontrol datagridview yang akan digunakan untuk menampilkan data

MYSQL CRUD Using Custom Function In VB.Net (Part 3)

By July 23, 2018 No comments:

Step 2: Back - Create Function For Insert, Update And Delete Data

Step 3: Testing The Function in Form1

Create Database exercise1

Create database on mysql. You can execute query below in your mysql management database :

CREATE DATABASE exercise1;
USE exercise1;

DROP TABLE IF EXISTS `t_teacher`;
CREATE TABLE `t_teacher` (
  `id` int(5) NOT NULL AUTO_INCREMENT,
  `full_name` varchar(20) NOT NULL,
  `sex` varchar(5) NOT NULL,
  `address` varchar(220) NOT NULL,
  PRIMARY KEY (`id`)
) ENGINE=InnoDB DEFAULT CHARSET=latin1;

Design Form1, Please design form like picture below:

Copy And Paste code below to your form1 code:

Public Class Form1

    Dim fullName As String
    Dim sex As String
    Dim address As String

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        fullName = TextBox1.Text
        sex = TextBox2.Text
        address = TextBox3.Text

        Dim fieldsArray As String = "full_name,sex,address" 'these are field name on t_teacher (separates by comma)
        Dim valuesArray As String = "'" & fullName & "','" & sex & "','" & address & "'" 'separetes by comma

        If bejoInsert("t_teacher", fieldsArray, valuesArray) Then
            MsgBox("Successfull Inserted", vbInformation)
        Else
            MsgBox(errorDescription, vbCritical)
        End If
    End Sub
End Class

Run your project by press F5
You can test input and save data

MYSQL CRUD Using Custom Function In VB.Net (Part 2)

By July 23, 2018 No comments:

Step 1: Create Function Connection to Database
Step 2: Create Function For Insert, Update And Delete Data

In Step 2 we will create function for insert, update and delete data from database.

Function For Insert Data

     Function bejoInsert(tableName As String, fields As String, values As String) As Boolean
        bejoDBConnect()
        Try
            Dim cmd As New MySqlCommand(String.Format("INSERT INTO " & tableName & " (" & fields & ") VALUES (" & values & ")"))
            cmd.Connection = conn
            cmd.ExecuteNonQuery()
            Return True
        Catch ex As Exception
            ErrorDescription = ex.Message
            Return False
        End Try
    End Function

Function For Update Data

Function bejoUpdate(tableName As String, fields As String, values As String, condition As String) As Boolean
    bejoDBConnect()
    Try
        Dim update As String = ""
        Dim strsql As String = ""
        Dim a As Array = Split(fields, ",")
        Dim b As Array = Split(values, "|")

        If a.Length <> b.Length Then
            Return False
            ErrorDescription = "Fields count doesn't match with values count!"
            Exit Function
        End If

        For i As Integer = 0 To (a.Length - 1)
            If update = "" Then
                update = a(i) & "=" & b(i)
            Else
                update = update & "," & a(i) & "=" & b(i)
            End If
        Next


        strsql = "UPDATE " & tableName & " SET " & update & " WHERE " & condition
        'MsgBox(strsql)
        Dim cmd As New MySqlCommand(String.Format(strsql))
        cmd.Connection = conn
        cmd.ExecuteNonQuery()
        Return True
    Catch ex As Exception
        ErrorDescription = ex.Message
        Return False
    End Try
End Function

Function For Delete Data

 Function bejoDelete(tableName As String, condition As String) As Boolean
    bejoDBConnect()
    Dim SQLCmd As MySqlCommand
    Dim DR As MySqlDataReader
    Try
        SQLCmd = New MySqlCommand("DELETE FROM " & tableName & " WHERE " & condition, conn)

        DR = SQLCmd.ExecuteReader
        Return True
        DR.Close()

    Catch ex As Exception
        errorDescription = ex.Message
        Return False
        DR.Close()
    End Try
End Function

Step 3: Next - Testing The Function In Form1

MYSQL CRUD Using Custom Function In VB.Net

By July 23, 2018 No comments:

In this article I will share my way to Mysql CRUD using vb.net by creating custom functions. Why custom function, because this function I created itself to simplify and shorten the program to CRUD data from the database by calling the function. So we no longer need to type the insert, update and delete commands in the sql query.

Step 1: Create Function For Connect To Database

Open Visual Basic .Net
Create New Project
Add New Module (Right click on Project Name at Solution Explorer - Add - Module)
Let its name Module1.vb
Add to Reference : MySql.Data.Dll

Type codes below to Module1:

Imports MySql.Data.MySqlClient
Module Module1
    Public conn As New MySqlConnection
    Public errorDescription As String
    Public server As String = "127.0.0.1" 'based on your server
    Public username As String = "root" 'default user in mysql
    Public password As String = "12345678" 'on my server i give this password
    Public database_name As String = "exercise1" 'for testing i create exercise1 dbname

    Public Function bejoDBConnect() As String

        If Not conn Is Nothing Then conn.Close()
        conn.ConnectionString = String.Format("server={0}; user id={1}; password={2}; database={3}; pooling=false; Convert Zero Datetime=True", server, username, password, database_name)
        Try
            conn.Open()
            Return "OK"
        Catch ex As Exception
            errorDescription = ex.Message
            Return ex.Message
        End Try

    End Function
End Module1

Step 2: Next - Create Function For Insert, Update And Delete Data

General Error, hubungi Call Center Efaktur

By July 17, 2018 No comments:

Terjadi General Error saat menjalankan Efaktur Client

Saya akan berbagi bagaimana menjalankan Efaktur versi 2.1 pada sisi client jika terjadi error "General Error, hubungi Call Center Efaktur". Seperti terlihat pada gambar di bawah ini.

Atau bisa tonton tutorial videonya berikut ini :

Perlu diingat bahwa error ini terjadi pada sisi client dan bukan pada sisi server! jadi yang perlu kita lakukan adalah pada folder efaktur di komputer client.

Catatan : Terjadinya kegagalan/kehilangan data efaktur tidak menjadi tanggung jawab saya.

Langkah-langkahnya adalah sebagai berikut:

Lihat dan catat lokasi dari aplikasi efaktur di komputer client (ditempat saya lokasi nya saya taruh di D:\EFAKTUR V2.1\
Silahkan masuk ke direktory D:\EFAKTUR V2.1\
Silahkan Klik kanan di area yang kosong, lalu pilih New > Text Document

Silahkan berinama file nya menjadi Efaktur.txt

BACA JUGA :

- Cara menampilkan Extension file

Silahkan buka file Efaktur.txt, lalu masukan perintah dos berikut:

rd "D:\EFAKTUR V2.1\db" /s /q
ETaxInvoice.exe

Ingat! Lokasi D:\EFAKTUR V2.1\db" sesuaikan dengan lokasi dimana anda meletakan aplikasi efaktur.
Lalu silahkan simpan filenya dengan menekan CTRL + S
Silahkan keluar dari notepad
Lalu Rename File Efaktur.txt menjadi Efaktur.bat

Sekarang untuk menjalankan efaktur di komputer client anda cukup mengakses file Efaktur.bat tersebut.

Demikian sharing saya ini semoga bermanfaat bagi anda yang memerlukannya.

Jinitiator Not Working on Windows 7

By July 12, 2018 No comments:

Make sure the msvcr71.dll file is in the directory c:\windows\system32\

if the file does not exist then you can take it from another computer that has windows 7 operating system as well.
After that try your run again jinitiatornya.

Good luck.

Jinitiator Not Working on Windows 7

By July 12, 2018 No comments:

Error when executing oracle jvm or jinitiator in windows 7.

Pastikan file msvcr71.dll ada di dalam folder c:\windows\system32\

jika file tersebut tidak ada maka anda bisa dari komputer lain yang memiliki sistem operasi windows 7 juga.

Setelah itu coba anda jalankan lagi jinitiatornya.

Semoga berhasil.

BEJO'S APPLICATIONS

Monday, July 30, 2018

VB.Net Tutorial Creating a Function Displaying Data From Table To Datagridview

Friday, July 27, 2018

Tutorial VB.Net Membuat Fungsi Menampilkan Data Dari Tabel Ke Datagridview

Monday, July 23, 2018

MYSQL CRUD Using Custom Function In VB.Net (Part 3)

MYSQL CRUD Using Custom Function In VB.Net (Part 2)

MYSQL CRUD Using Custom Function In VB.Net

Tuesday, July 17, 2018

General Error, hubungi Call Center Efaktur

Thursday, July 12, 2018

Jinitiator Not Working on Windows 7

Jinitiator Not Working on Windows 7

Subcribe My Channel

Popular Posts

Find us on Facebook

Advertisement

Instagram posts

About us