Could someone explain these two functions or the principle behind it that we use in connecting a database into VB? That code came from our teacher and our teacher didn't explain much about why it should be coded like that. We're using MS Access 2003 file for the DB.
Imports System.Data.OleDb
Public Class Form1
Dim dbPath As String = Application.StartupPath & "\Database\xxxx.mdb"
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; DATA SOURCE = " & dbPath
Private Function performQuery(ByRef connectionString As String, ByVal sqlCommand As String) As OleDb.OleDbDataReader
Dim dbConnection As OleDbConnection
Dim dbCommand As New OleDbCommand()
Dim dbDataReader As OleDb.OleDbDataReader = Nothing
Try
dbConnection = New OleDbConnection(connectionString)
dbCommand.CommandText = sqlCommand
dbCommand.Connection = dbConnection
dbConnection.Open()
dbDataReader = dbCommand.ExecuteReader
Return dbDataReader
dbConnection.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
Return Nothing
End Function
Private Function performNonQuery(ByVal connectionString As String, ByVal sqlCommand As String) As Boolean
Dim dbConnection As OleDbConnection
Dim dbCommand As New OleDbCommand()
Try
dbConnection = New OleDbConnection(connectionString)
dbCommand.CommandText = sqlCommand
dbCommand.Connection = dbConnection
dbCommand.Connection.Open()
dbCommand.ExecuteNonQuery()
dbConnection.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)
Return False
End Try
Return True
End Function
End Class