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

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