โค้ด:

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: Keep personal information within the workplace.
   
8. ' / Microsoft Visual Basic .NET (2010) & MS Access 2007+
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------------------
    
13. Imports System.Data.OleDb
    
14. Imports System.Drawing
    
15. Imports System.IO
    
16. 
    
17. Public Class frmContactPerson
    
18.     Dim PK As Integer   '// Primary Key
    
19.     Dim NewData As Boolean = False  '//
    
20.     '//
    
21.     Dim newFileName As String   '// File name of Image (New)
    
22.     Dim orgPicName As String    '// Orginal of Image
    
23.     Dim streamPic As Stream     '// Use Stream instead IO.
    
24. 
    
25.     Private Sub frmContactPerson_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    
26.         Dim Result As Byte = MessageBox.Show("Are you sure you want to exit the program?", "Confirm closing program", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
    
27.         If Result = DialogResult.Yes Then
    
28.             Me.Dispose()
    
29.             If Conn.State = ConnectionState.Open Then Conn.Close()
    
30.             Application.Exit()
    
31.         Else
    
32.             e.Cancel = True
    
33.         End If
    
34.     End Sub
    
35. 
    
36.     ' / --------------------------------------------------------------------------------
    
37.     Private Sub frmContactPerson_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
38.         Call ConnectDataBase()
    
39.         lblRecordCount.Text = ""
    
40.         Call NewMode()
    
41.         Call SetupDGVData()
    
42.         Call RetrieveData()
    
43.         '// Show picture
    
44.         chkPicture.Checked = True
    
45.     End Sub
    
46. 
    
47.     ' / --------------------------------------------------------------------------------
    
48.     Private Sub frmContactPerson_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
49.         If Conn.State = ConnectionState.Open Then Conn.Close()
    
50.         Conn.Dispose()
    
51.         Me.Dispose()
    
52.         Application.Exit()
    
53.     End Sub
    
54. 
    
55.     ' / --------------------------------------------------------------------------------
    
56.     '// Initialize DataGridView @Run Time
    
57.     Private Sub SetupDGVData()
    
58.         With dgvData
    
59.             .RowHeadersVisible = False
    
60.             .AllowUserToAddRows = False
    
61.             .AllowUserToDeleteRows = False
    
62.             .AllowUserToResizeRows = False
    
63.             .MultiSelect = False
    
64.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
65.             .ReadOnly = True
    
66.             .Font = New Font("Tahoma", 9)
    
67.             ' Columns Specified
    
68.             .Columns.Add("ContactPK", "ContactPK")
    
69.             .Columns.Add("Fullname", "Full name")
    
70.             .Columns.Add("Nickname", "Nickname")
    
71.             .Columns.Add("PositionName", "Position")
    
72.             .Columns.Add("DepartmentName", "Department")
    
73.             .Columns.Add("Mobile", "Mobile")
    
74.             .Columns.Add("Phone", "Phone Ext.")
    
75.             .Columns.Add("Email", "Email")
    
76.             .Columns.Add("LineID", "Line")
    
77.             .Columns.Add("FacebookID", "Facebook")
    
78.             '// Column Picture
    
79.             Dim colPicture As New DataGridViewImageColumn
    
80.             .Columns.Add(colPicture)
    
81.             With colPicture
    
82.                 .HeaderText = "Picture"
    
83.                 .Name = "PictureName"
    
84.                 .ImageLayout = DataGridViewImageCellLayout.Stretch
    
85.             End With
    
86.             '//
    
87.             .Columns.Add("Note", "Note")
    
88.             '// Hidden Columns
    
89.             .Columns(0).Visible = False
    
90.             .Columns(7).Visible = False
    
91.             .Columns(8).Visible = False
    
92.             .Columns(9).Visible = False
    
93.             '// PictureName
    
94.             .Columns("PictureName").Visible = True
    
95.             .Columns("Note").Visible = False
    
96.             ' Autosize Column
    
97.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
98.             .AutoResizeColumns()
    
99.             '// Even-Odd Color
    
100.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
     
101.             ' Adjust Header Styles
     
102.             With .ColumnHeadersDefaultCellStyle
     
103.                 .BackColor = Color.Navy
     
104.                 .ForeColor = Color.Black ' Color.White
     
105.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
     
106.             End With
     
107.         End With
     
108.     End Sub
     
109. 
     
110.     ' / --------------------------------------------------------------------------------
     
111.     ' / Collect all searches and impressions. Come in the same place
     
112.     ' / blnSearch = True, Show that the search results.
     
113.     ' / blnSearch is set to False, Show all records.
     
114.     Private Sub RetrieveData(Optional ByVal blnSearch As Boolean = False)
     
115.         strSQL = _
     
116.             " SELECT tblContact.ContactPK, tblContact.Fullname, tblContact.Nickname, tblContact.Mobile, " & _
     
117.             " tblContact.Phone, tblContact.eMail, tblContact.LineID, tblContact.FacebookID, " & _
     
118.             " tblContact.PictureName, tblContact.Note, " & _
     
119.             " tblPosition.PositionName, tblDepartment.DepartmentName " & _
     
120.             " FROM [tblPosition] INNER JOIN (tblDepartment INNER JOIN tblContact ON " & _
     
121.             " tblDepartment.DepartmentPK = tblContact.DepartmentFK) ON tblPosition.PositionPK = tblContact.PositionFK "
     
122. 
     
123.         '// blnSearch = True for Serach
     
124.         If blnSearch Then
     
125.             strSQL = strSQL & _
     
126.                 " WHERE " & _
     
127.                 " [Fullname] " & " Like '%" & txtSearch.Text & "%'" & " OR " & _
     
128.                 " [Nickname] " & " Like '%" & txtSearch.Text & "%'" & " OR " & _
     
129.                 " [PositionName] " & " Like '%" & txtSearch.Text & "%'" & " OR " & _
     
130.                 " [DepartmentName] " & " Like '%" & txtSearch.Text & "%'" & " OR " & _
     
131.                 " [Mobile] " & " Like '%" & txtSearch.Text & "%'" & " OR " & _
     
132.                 " [Phone] " & " Like '%" & txtSearch.Text & "%'" & " OR " & _
     
133.                 " [eMail] " & " Like '%" & txtSearch.Text & "%'" & " OR " & _
     
134.                 " [LineID] " & " Like '%" & txtSearch.Text & "%'" & " OR " & _
     
135.                 " [FaceBookID] " & " Like '%" & txtSearch.Text & "%'" & _
     
136.                 " ORDER BY ContactPK "
     
137.         Else
     
138.             strSQL = strSQL & " ORDER BY ContactPK "
     
139.         End If
     
140.         '//
     
141.         Try
     
142.             Cmd = New OleDbCommand
     
143.             If Conn.State = ConnectionState.Closed Then Conn.Open()
     
144.             Cmd.Connection = Conn
     
145.             Cmd.CommandText = strSQL
     
146.             Dim DR As OleDbDataReader = Cmd.ExecuteReader
     
147.             Dim i As Long = dgvData.RowCount
     
148.             While DR.Read
     
149.                 With dgvData
     
150.                     .Rows.Add(i)
     
151.                     .Rows(i).Cells(0).Value = DR.Item("ContactPK").ToString
     
152.                     .Rows(i).Cells(1).Value = DR.Item("Fullname").ToString
     
153.                     .Rows(i).Cells(2).Value = DR.Item("Nickname").ToString
     
154.                     .Rows(i).Cells(3).Value = DR.Item("PositionName").ToString
     
155.                     .Rows(i).Cells(4).Value = DR.Item("DepartmentName").ToString
     
156.                     .Rows(i).Cells(5).Value = DR.Item("Mobile").ToString
     
157.                     .Rows(i).Cells(6).Value = DR.Item("Phone").ToString
     
158.                     .Rows(i).Cells(7).Value = DR.Item("eMail").ToString
     
159.                     .Rows(i).Cells(8).Value = DR.Item("LineID").ToString
     
160.                     .Rows(i).Cells(9).Value = DR.Item("FaceBookID").ToString
     
161.                     '// Show picture in cell.
     
162.                     If DR.Item("PictureName").ToString <> "" Then
     
163.                         '//dgvData.Rows(i).Height = 75
     
164.                         '// Column 10 = "PictureName"
     
165.                         dgvData.Columns(10).Width = 75
     
166.                         '// First, before load data into DataGrid and check File exists or not?
     
167.                         If Dir(strPathImages & DR.Item("PictureName").ToString) = "" Then
     
168.                             '// strPathImages in modDataBase.vb
     
169.                             dgvData.Rows(i).Cells(10).Value = Image.FromFile(strPathImages & "people.png")
     
170.                         Else
     
171.                             dgvData.Rows(i).Cells(10).Value = Image.FromFile(strPathImages & DR.Item("PictureName").ToString)
     
172.                         End If
     
173.                     Else
     
174.                         dgvData.Rows(i).Cells(10).Value = Image.FromFile(strPathImages & "people.png")
     
175.                         '//dgvData.Rows(i).Height = 75
     
176.                         dgvData.Columns(10).Width = 75
     
177.                     End If
     
178.                     newFileName = DR.Item("PictureName").ToString
     
179.                     ' / --------------------------------------------------------------------------------
     
180.                     '// Keep picture's name into TAG for each cell in DataGrid.
     
181.                     '// Used when to display in PictureBox.
     
182.                     dgvData.Rows(i).Cells(10).Tag = DR.Item("PictureName").ToString
     
183.                     ' / --------------------------------------------------------------------------------
     
184.                     '//
     
185.                     .Rows(i).Cells(11).Value = DR.Item("Note").ToString
     
186.                 End With
     
187.                 i += 1
     
188.             End While
     
189.             newFileName = Nothing   '// Clear value
     
190.             lblRecordCount.Text = "[Total : " & dgvData.RowCount & " records]"
     
191.             DR.Close()
     
192.             '// Adjust row height.
     
193.             If chkPicture.Checked Then
     
194.                 dgvData.Columns("PictureName").Visible = True
     
195.                 '// Jump to sub program
     
196.                 Call AdjustRowHeight(75)
     
197.             Else
     
198.                 dgvData.Columns("PictureName").Visible = False
     
199.                 Call AdjustRowHeight(28)
     
200.             End If
     
201. 
     
202.         Catch ex As Exception
     
203.             MessageBox.Show(ex.Message)
     
204.         End Try
     
205.         '//
     
206.         txtSearch.Clear()
     
207.     End Sub
     
208. 
     
209.     ' / --------------------------------------------------------------------------------
     
210.     ' / Double click to edit item.
     
211.     Private Sub dgvData_DoubleClick(sender As Object, e As System.EventArgs) Handles dgvData.DoubleClick
     
212.         '// If you add / edit information should be reminded before.
     
213.         If btnDelete.Text = "Cancel" Then
     
214.             txtFullname.Focus()
     
215.             Exit Sub
     
216.         End If
     
217.         '//
     
218.         If dgvData.RowCount <= 0 Then Return
     
219.         '// Read the value of the focus row.
     
220.         Dim iRow As Integer = dgvData.CurrentRow.Index
     
221.         '//
     
222.         PK = dgvData.Item(0, iRow).Value  '// Keep Primary Key
     
223.         '// If you share a file, you need to refresh the data.
     
224.         strSQL = _
     
225.             " SELECT tblContact.ContactPK, tblContact.Fullname, tblContact.Nickname, tblContact.Mobile, " & _
     
226.             " tblContact.Phone, tblContact.eMail, tblContact.LineID, tblContact.FacebookID, " & _
     
227.             " tblContact.PictureName, tblContact.Note, " & _
     
228.             " tblPosition.PositionName, tblDepartment.DepartmentName " & _
     
229.             " FROM [tblPosition] INNER JOIN (tblDepartment INNER JOIN tblContact ON " & _
     
230.             " tblDepartment.DepartmentPK = tblContact.DepartmentFK) ON tblPosition.PositionPK = tblContact.PositionFK " & _
     
231.             " WHERE ContactPK = " & PK
     
232.         If Conn.State = ConnectionState.Closed Then Conn.Open()
     
233.         DA = New OleDbDataAdapter(strSQL, Conn)
     
234.         DS = New DataSet
     
235.         DA.Fill(DS)
     
236.         '/ ------------------------------------------------------------------
     
237.         With DS.Tables(0)
     
238.             txtFullname.Text = "" & .Rows(0)("Fullname").ToString()
     
239.             '// Keep the original value for later comparison.
     
240.             txtFullname.Tag = txtFullname.Text
     
241.             '// Using Double quote "" for trap error null value
     
242.             txtNickname.Text = "" & .Rows(0)("Nickname").ToString()
     
243.             ' / --------------------------------------------------------------------------------
     
244.             '// Load data Detail Table into ComboBox
     
245.             Call PopulateComboBox(cmbPosition, "tblPosition", "PositionName", "PositionPK")
     
246.             cmbPosition.Text = "" & dgvData.Item(3, iRow).Value
     
247.             Call PopulateComboBox(cmbDepartment, "tblDepartment", "DepartmentName", "DepartmentPK")
     
248.             cmbDepartment.Text = "" & dgvData.Item(4, iRow).Value
     
249.             '//
     
250.             txtMobile.Text = "" & .Rows(0)("Mobile").ToString()
     
251.             txtPhone.Text = "" & .Rows(0)("Phone").ToString()
     
252.             txtEMail.Text = "" & .Rows(0)("EMail").ToString()
     
253.             txtLineID.Text = "" & .Rows(0)("LineID").ToString()
     
254.             txtFacebookID.Text = "" & .Rows(0)("FacebookID").ToString()
     
255.             txtNote.Text = "" & .Rows(0)("Note").ToString()
     
256.             '// Load Picture
     
257.             Call ShowPicture(.Rows(0)("PictureName").ToString)
     
258.         End With
     
259.         DS.Dispose()
     
260.         DA.Dispose()
     
261.         '// Change to Edit Mode
     
262.         NewData = False
     
263.         EditMode()
     
264.     End Sub
     
265. 
     
266.     ' / --------------------------------------------------------------------------------
     
267.     ' / You can press enter to select row.
     
268.     Private Sub dgvData_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles dgvData.KeyDown
     
269.         If e.KeyCode = Keys.Enter Then
     
270.             Call dgvData_DoubleClick(sender, e)
     
271.             ' No move to next row.
     
272.             e.SuppressKeyPress = True
     
273.         End If
     
274.     End Sub
     
275. 
     
276.     ' / --------------------------------------------------------------------------------
     
277.     ' / Load table detail into ComboBox
     
278.     Public Sub PopulateComboBox(cmbCtrl As ComboBox, strTable As String, strFieldName As String, Optional ByVal strFieldPK As String = vbNullString)
     
279.         Try
     
280.             If Conn.State = ConnectionState.Closed Then Conn.Open()
     
281.             strStmt = "SELECT * FROM " & strTable & " ORDER BY " & strFieldName
     
282.             Cmd = New OleDb.OleDbCommand(strStmt, Conn)
     
283.             DR = Cmd.ExecuteReader
     
284.             Dim DT As DataTable = New DataTable
     
285.             DT.Load(DR)
     
286.             '/ Primary Key (ValueMember)
     
287.             cmbCtrl.ValueMember = strFieldPK
     
288.             '/ Display the name
     
289.             cmbCtrl.DisplayMember = strFieldName
     
290.             cmbCtrl.DataSource = DT
     
291.             '// Autocomplete
     
292.             With cmbCtrl
     
293.                 .DropDownStyle = ComboBoxStyle.DropDown
     
294.                 .AutoCompleteMode = AutoCompleteMode.Suggest
     
295.                 .AutoCompleteSource = AutoCompleteSource.ListItems
     
296.             End With
     
297.             DR.Close()
     
298.             Conn.Close()
     
299.         Catch ex As Exception
     
300.             MessageBox.Show(ex.Message)
     
301.         End Try
     
302.     End Sub
     
303. 
     
304.     ' / --------------------------------------------------------------------------------
     
305.     ' / Add New Mode
     
306.     ' / --------------------------------------------------------------------------------
     
307.     Private Sub NewMode()
     
308.         '// Clear all TextBox.
     
309.         For Each c In GroupBox1.Controls
     
310.             If TypeOf c Is TextBox Then
     
311.                 DirectCast(c, TextBox).Clear()
     
312.                 DirectCast(c, TextBox).Enabled = False
     
313.             End If
     
314.         Next
     
315.         '// Clear all ComboBox
     
316.         For Each cbo In GroupBox1.Controls.OfType(Of ComboBox)()
     
317.             cbo.Enabled = False
     
318.         Next
     
319.         '//
     
320.         btnAdd.Enabled = True
     
321.         btnSave.Enabled = False
     
322.         btnDelete.Enabled = True
     
323.         btnDelete.Text = "Delete"
     
324.         btnExit.Enabled = True
     
325.         '//
     
326.         btnBrowse.Enabled = False
     
327.         btnDeleteImg.Enabled = False
     
328.         picData.Image = Image.FromFile(strPathImages & "people.png")
     
329.     End Sub
     
330. 
     
331.     ' / --------------------------------------------------------------------------------
     
332.     ' / Edit Data Mode
     
333.     Private Sub EditMode()
     
334.         '// Clear all TextBox
     
335.         For Each c In GroupBox1.Controls
     
336.             If TypeOf c Is TextBox Then
     
337.                 DirectCast(c, TextBox).Enabled = True
     
338.             End If
     
339.         Next
     
340.         '// Clear all ComboBox
     
341.         For Each cbo In GroupBox1.Controls.OfType(Of ComboBox)()
     
342.             cbo.Enabled = True
     
343.         Next
     
344.         btnAdd.Enabled = False
     
345.         btnSave.Enabled = True
     
346.         btnDelete.Enabled = True
     
347.         btnDelete.Text = "Cancel"
     
348.         btnExit.Enabled = False
     
349.         '//
     
350.         btnBrowse.Enabled = True
     
351.         btnDeleteImg.Enabled = True
     
352.     End Sub
     
353. 
     
354.     ' / --------------------------------------------------------------------------------
     
355.     Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
     
356.         '// Validate Data
     
357.         If txtFullname.Text = "" Or IsNothing(txtFullname.Text) Or txtFullname.Text.Length = 0 Then
     
358.             MessageBox.Show("Full name cannot be empty.", "Report Status", _
     
359.                             MessageBoxButtons.OK, MessageBoxIcon.Warning)
     
360.             txtFullname.Focus()
     
361.             Exit Sub
     
362.         End If
     
363.         '//
     
364.         '// If the new value (Text) with the original value (Tag) is not equal, then the value changed in field "Fullname"
     
365.         If txtFullname.Text.ToLower <> LCase(txtFullname.Tag) Then
     
366.             strSQL = _
     
367.             " SELECT Count(tblContact.Fullname) AS CountFullname FROM tblContact " & _
     
368.             " WHERE Fullname = " & "'" & txtFullname.Text & "'"
     
369.             If DuplicateName(strSQL) Then
     
370.                 MessageBox.Show("Duplicate Full name, please enter new value.", "Report Status", _
     
371.                                 MessageBoxButtons.OK, MessageBoxIcon.Warning)
     
372.                 txtFullname.Focus()
     
373.                 Exit Sub
     
374.             End If
     
375.         End If
     
376.         '// NewData = True, It's Add New Mode
     
377.         If NewData Then
     
378.             strSQL = _
     
379.                 " INSERT INTO tblContact(" & _
     
380.                 " ContactPK, Fullname, Nickname, PositionFK, DepartmentFK, Mobile, Phone, Email, LineID, FacebookID, " & _
     
381.                 " PictureName, [Note], " & _
     
382.                 " DateAdded, DateModified) " & _
     
383.                 " VALUES(" & _
     
384.                 "'" & SetupNewPK() & "'," & _
     
385.                 "'" & txtFullname.Text & "'," & _
     
386.                 "'" & txtNickname.Text & "'," & _
     
387.                 "'" & PKComboBox(cmbPosition, "tblPosition", "PositionName", "PositionPK") & "'," & _
     
388.                 "'" & PKComboBox(cmbDepartment, "tblDepartment", "DepartmentName", "DepartmentPK") & "'," & _
     
389.                 "'" & txtMobile.Text & "'," & _
     
390.                 "'" & txtPhone.Text & "'," & _
     
391.                 "'" & txtEMail.Text & "'," & _
     
392.                 "'" & txtLineID.Text & "'," & _
     
393.                 "'" & txtFacebookID.Text & "'," & _
     
394.                 "'" & GetFileImages() & "'," & _
     
395.                 "'" & txtNote.Text & "'," & _
     
396.                 "'" & Now.ToString("dd/MM/yyyy") & "'," & _
     
397.                 "'" & Now.ToString("dd/MM/yyyy") & "'" & _
     
398.                 ")"
     
399.             '// EDIT MODE
     
400.         Else
     
401.             '// START UPDATE
     
402.             strSQL = _
     
403.                 " UPDATE tblContact SET " & _
     
404.                 " [Fullname]='" & txtFullname.Text & "', " & _
     
405.                 " [Nickname]='" & txtNickname.Text & "', " & _
     
406.                 " [PositionFK]=" & PKComboBox(cmbPosition, "tblPosition", "PositionName", "PositionPK") & ", " & _
     
407.                 " [DepartmentFK]=" & PKComboBox(cmbDepartment, "tblDepartment", "DepartmentName", "DepartmentPK") & ", " & _
     
408.                 " [Mobile]='" & txtMobile.Text & "', " & _
     
409.                 " [Phone]='" & txtPhone.Text & "', " & _
     
410.                 " [Email]='" & txtEMail.Text & "', " & _
     
411.                 " [LineID]='" & txtLineID.Text & "', " & _
     
412.                 " [FaceBookID]='" & txtFacebookID.Text & "', " & _
     
413.                 " [PictureName]='" & GetFileImages() & "', " & _
     
414.                 " [Note]='" & txtNote.Text & "', " & _
     
415.                 " [DateModified]='" & Now.ToString("dd/MM/yyyy") & "'" & _
     
416.                 " WHERE ContactPK = " & PK & ""
     
417.         End If
     
418.         '// Insert or Update same as operation
     
419.         If DoSQL(strSQL) Then
     
420.             MessageBox.Show("Records Updated Completed.", "Update Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
     
421.         End If
     
422.         '//
     
423.         cmbPosition.SelectedIndex = 0
     
424.         cmbDepartment.SelectedIndex = 0
     
425. 
     
426.         '// Clear rows in DataGridView
     
427.         dgvData.Rows.Clear()
     
428.         '// Refresh DataGridView
     
429.         Call RetrieveData()
     
430.         '// Add New Mode
     
431.         Call NewMode()
     
432.     End Sub
     
433. 
     
434.     ' / --------------------------------------------------------------------------------
     
435.     '// UPDATE DATA
     
436.     Private Function DoSQL(ByVal Sql As String) As Boolean
     
437.         Cmd = New OleDb.OleDbCommand
     
438.         If Conn.State = ConnectionState.Closed Then Conn.Open()
     
439.         'MsgBox(Sql)
     
440.         Try
     
441.             Cmd.Connection = Conn
     
442.             Cmd.CommandType = CommandType.Text
     
443.             Cmd.CommandText = Sql
     
444.             Cmd.ExecuteNonQuery()
     
445.             Cmd.Dispose()
     
446.             Return True
     
447.         Catch ex As Exception
     
448.             MsgBox("Error Update: " & ex.Message)
     
449.             Return False
     
450.         End Try
     
451.     End Function
     
452. 
     
453.     ' / --------------------------------------------------------------------------------
     
454.     ' / Get Filename + Extesnsion only, not Path
     
455.     Private Function GetFileImages() As String
     
456.         '// Get the Filename + Extension only
     
457.         Dim iArr() As String
     
458.         iArr = Split(newFileName, "")
     
459.         GetFileImages = iArr(UBound(iArr))
     
460.         '//
     
461.         '// If same original and new
     
462.         If orgPicName = newFileName Then Return GetFileImages
     
463.         Try
     
464.             '// ------------- Copy File -------------
     
465.             '// Determine whether the source file is real or not.
     
466.             If System.IO.File.Exists(newFileName) = True Then
     
467.                 ' Trap Error in the case source = destination
     
468.                 If LCase(strPathImages + GetFileImages) <> LCase(newFileName) Then
     
469.                     '// Copy the Source file (newFileName) to the Destination (DestFile).
     
470.                     '// If the same file is found, overwrite (OverWrite = True).
     
471.                     System.IO.File.Copy(newFileName, strPathImages + GetFileImages, True)
     
472.                 End If
     
473.             End If
     
474.             newFileName = Nothing
     
475.         Catch ex As Exception
     
476.             MessageBox.Show(ex.Message)
     
477.         End Try
     
478.     End Function
     
479. 
     
480.     ' / --------------------------------------------------------------------------------
     
481.     ' / Function to find and create the new Primary Key not to duplicate.
     
482.     Function SetupNewPK() As Long
     
483.         strSQL = _
     
484.             " SELECT MAX(tblContact.ContactPK) AS MaxPK FROM tblContact "
     
485.         If Conn.State = ConnectionState.Closed Then Conn.Open()
     
486.         Cmd = New OleDb.OleDbCommand(strSQL, Conn)
     
487.         '/ Check if the information is available. And return it back
     
488.         If IsDBNull(Cmd.ExecuteScalar) Then
     
489.             '// Start at 1
     
490.             SetupNewPK = 1
     
491.         Else
     
492.             SetupNewPK = Cmd.ExecuteScalar + 1
     
493.         End If
     
494.     End Function
     
495. 
     
496.     ' / --------------------------------------------------------------------------------
     
497.     ' / This example uses the Fullname validation.
     
498.     Public Function DuplicateName(ByVal Sql As String) As Boolean
     
499.         If Conn.State = ConnectionState.Closed Then Conn.Open()
     
500.         Cmd = New OleDb.OleDbCommand(Sql, Conn)
     
501.         '// Return count records
     
502.         DuplicateName = Cmd.ExecuteScalar
     
503.     End Function
     
504. 
     
505.     ' / --------------------------------------------------------------------------------
     
506.     ' / Function insert new data in Detail Table and return Primary Key for Master Table.
     
507.     Function PKComboBox(cmbCtrl As ComboBox, strTable As String, strFieldName As String, Optional ByVal strFieldPK As String = vbNullString) As Integer
     
508.         '// If ComboBox is blank data then return 1 (Blank Data)
     
509.         If cmbCtrl.Text = "" Or cmbCtrl.Text.Length = 0 Or IsDBNull(cmbCtrl.Text) Then
     
510.             'PKComboBox = 1
     
511.             Return 1
     
512.         End If
     
513.         strSQL = _
     
514.             "SELECT * FROM " & strTable & " WHERE " & strFieldName & " = " & "'" & cmbCtrl.Text & "'"
     
515.         If Conn.State = ConnectionState.Closed Then Conn.Open()
     
516.         Cmd = New OleDb.OleDbCommand(strSQL, Conn)
     
517.         '// Get the Primary Key
     
518.         Dim cmbPK As Integer = Cmd.ExecuteScalar
     
519.         '// If not have in Detail Table
     
520.         If cmbPK <= 0 Then
     
521.             strStmt = _
     
522.                 " SELECT MAX(" & strFieldPK & ") AS MaxPK FROM " & strTable
     
523.             If Conn.State = ConnectionState.Closed Then Conn.Open()
     
524.             Cmd = New OleDb.OleDbCommand(strStmt, Conn)
     
525.             '// Increment Primary Key with 1, and Return this value.
     
526.             PKComboBox = Cmd.ExecuteScalar + 1
     
527.             '/ Add New Data in Detail Table
     
528.             Try
     
529.                 Using Comm As New OleDb.OleDbCommand()
     
530.                     With Comm
     
531.                         .Connection = Conn
     
532.                         .CommandType = CommandType.Text
     
533.                         .CommandText = _
     
534.                             " INSERT INTO " & strTable & " (" & strFieldName & ", " & strFieldPK & ") VALUES (@DName, @DPK)"
     
535.                         With .Parameters
     
536.                             .Add("@DName", OleDbType.VarChar).Value = cmbCtrl.Text
     
537.                             '/ ------------------------------------------------------------------
     
538.                             .Add("@DPK", OleDbType.Integer).Value = PKComboBox
     
539.                             '/ ------------------------------------------------------------------
     
540.                         End With
     
541.                         ' Insert new record.
     
542.                         .ExecuteNonQuery()
     
543.                         .Parameters.Clear()
     
544.                         '/ ------------------------------------------------------------------
     
545.                     End With
     
546.                 End Using
     
547.             Catch ex As Exception
     
548.                 MessageBox.Show(ex.Message)
     
549.             End Try
     
550.         Else
     
551.             '// Return
     
552.             PKComboBox = cmbPK
     
553.         End If
     
554.         Cmd.Dispose()
     
555.     End Function
     
556. 
     
557.     '/ ------------------------------------------------------------------
     
558.     '// Load Detail Table into ComboBox
     
559.     Private Sub btnAdd_Click(sender As System.Object, e As System.EventArgs) Handles btnAdd.Click
     
560.         NewData = True  '// Add New Mode
     
561.         Call EditMode()
     
562.         '// Load Detail Table into ComboBox
     
563.         Call PopulateComboBox(cmbPosition, "tblPosition", "PositionName", "PositionPK")
     
564.         Call PopulateComboBox(cmbDepartment, "tblDepartment", "DepartmentName", "DepartmentPK")
     
565.         '//
     
566.         picData.Image = Image.FromFile(strPathImages & "people.png")
     
567.         txtFullname.Focus()
     
568.     End Sub
     
569. 
     
570.     '// Load Detail Table into ComboBox
     
571.     Private Sub btnDelete_Click(sender As System.Object, e As System.EventArgs) Handles btnDelete.Click
     
572.         '// If Edit Data Mode
     
573.         If btnDelete.Text = "Cancel" Then
     
574.             btnAdd.Enabled = True
     
575.             btnSave.Enabled = True
     
576.             btnDelete.Enabled = True
     
577.             btnDelete.Text = "Delete"
     
578.             btnExit.Enabled = True
     
579.             '//
     
580.             btnBrowse.Enabled = False
     
581.             btnDeleteImg.Enabled = False
     
582.             '//
     
583.             cmbPosition.SelectedIndex = -1
     
584.             cmbDepartment.SelectedIndex = -1
     
585.             picData.Image = Image.FromFile(strPathImages & "people.png")
     
586.             NewMode()
     
587.         Else
     
588.             If dgvData.RowCount = 0 Then Exit Sub
     
589.             '// Receive Primary Key value to confirm the deletion.
     
590.             Dim iRow As Long = dgvData.Item(0, dgvData.CurrentRow.Index).Value
     
591.             Dim FName As String = dgvData.Item(1, dgvData.CurrentRow.Index).Value
     
592.             Dim Result As Byte = MessageBox.Show("Are you sure you want to delete the data?" & vbCrLf & "Full Name: " & FName, "Confirm Deletion", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
     
593.             If Result = DialogResult.Yes Then
     
594.                 '// iRow is the ContactPK or Primary key that is hidden.
     
595.                 strStmt = " DELETE FROM tblContact WHERE ContactPK = " & iRow
     
596.                 '// UPDATE RECORD
     
597.                 DoSQL(strStmt)
     
598.                 '//
     
599.                 '// Check if use default image.
     
600.                 If UCase(InStrRev(strPathImages & dgvData.Item(10, dgvData.CurrentRow.Index).ToString, "")) <> "people.png" Then
     
601.                     '// Remove original picture from Column 10 in DataGridView (strPathImages from modDataBase.vb)
     
602.                     Dim strPicName As String = strPathImages & dgvData.Item(10, dgvData.CurrentRow.Index).ToString
     
603.                     If strPicName IsNot Nothing Then
     
604.                         If System.IO.File.Exists(strPicName) = True Then
     
605.                             System.IO.File.Delete(strPicName)
     
606.                             strPicName = Nothing
     
607.                         End If
     
608.                     End If
     
609.                 End If
     
610.                 '//
     
611.                 Call NewMode()
     
612.                 '//
     
613.                 dgvData.Rows.Clear()
     
614.                 Call RetrieveData()
     
615.             End If
     
616.         End If
     
617.     End Sub
     
618. 
     
619.     Private Sub btnRefresh_Click(sender As System.Object, e As System.EventArgs) Handles btnRefresh.Click
     
620.         dgvData.Rows.Clear()
     
621.         Call RetrieveData()
     
622.     End Sub
     
623. 
     
624.     Private Sub txtSearch_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtSearch.KeyPress
     
625.         '// Undesirable characters for the database ex.  ', * or %
     
626.         txtSearch.Text = Replace(Trim(txtSearch.Text), "'", "")
     
627.         txtSearch.Text = Replace(Trim(txtSearch.Text), "%", "")
     
628.         txtSearch.Text = Replace(Trim(txtSearch.Text), "*", "")
     
629.         If Trim(txtSearch.Text) = "" Or Len(Trim(txtSearch.Text)) = 0 Then Exit Sub
     
630.         ' RetrieveData(True) It means searching for information.
     
631.         If e.KeyChar = Chr(13) Then '// Press Enter
     
632.             '// No beep.
     
633.             e.Handled = True
     
634.             '//
     
635.             dgvData.Rows.Clear()
     
636.             Call RetrieveData(True)
     
637.         End If
     
638.     End Sub
     
639. 
     
640.     Private Sub btnBrowse_Click(sender As System.Object, e As System.EventArgs) Handles btnBrowse.Click
     
641.         Dim dlgImage As OpenFileDialog = New OpenFileDialog()
     
642. 
     
643.         ' / Open File Dialog
     
644.         With dlgImage
     
645.             .InitialDirectory = strPathImages
     
646.             .Title = "Select images"
     
647.             .Filter = "Images types (*.jpg;*.png;*.gif;*.bmp)|*.jpg;*.png;*.gif;*.bmp"
     
648.             .FilterIndex = 1
     
649.             .RestoreDirectory = True
     
650.         End With
     
651.         ' Select OK after Browse ...
     
652.         If dlgImage.ShowDialog() = DialogResult.OK Then
     
653.             '// New Image
     
654.             newFileName = dlgImage.FileName
     
655.             picData.Image = Image.FromFile(newFileName)
     
656.         End If
     
657.     End Sub
     
658. 
     
659.     Private Sub btnDeleteImg_Click(sender As System.Object, e As System.EventArgs) Handles btnDeleteImg.Click
     
660.         If orgPicName = "" Or orgPicName.Length = 0 Then Return
     
661.         '//
     
662.         picData.Image = Image.FromFile(strPathImages & "people.png")
     
663.         newFileName = ""
     
664.     End Sub
     
665. 
     
666.     ' / -----------------------------------------------------------------------------
     
667.     ' / Use Steam instead IO.
     
668.     ' / -----------------------------------------------------------------------------
     
669.     Sub ShowPicture(PicName As String)
     
670.         Dim imgDB As Image
     
671.         ' Get the name of the image file from the database.
     
672.         If PicName.ToString <> "" Then
     
673.             ' Verify that the image file meets the specified location.
     
674.             If System.IO.File.Exists(strPathImages & PicName.ToString) Then
     
675.                 ' Because when deleting the image file is locked, it can not be removed.
     
676.                 ' The file is closed after the image is loaded, so you can delete the file if you need to
     
677.                 streamPic = File.OpenRead(strPathImages & PicName.ToString)
     
678.                 imgDB = Image.FromStream(streamPic)
     
679.                 picData.Image = imgDB
     
680.                 ' Keep the original image file name. If it is recorded, it will be removed.
     
681.                 orgPicName = strPathImages & PicName.ToString
     
682.                 newFileName = orgPicName
     
683.             Else
     
684.                 ' No images were retrieved from the database.
     
685.                 streamPic = File.OpenRead(strPathImages & "people.png")
     
686.                 imgDB = Image.FromStream(streamPic)
     
687.                 picData.Image = imgDB
     
688.                 ' Keep image filename blank.
     
689.                 orgPicName = ""
     
690.                 newFileName = ""
     
691.             End If
     
692.             ' Is null
     
693.         Else
     
694.             streamPic = File.OpenRead(strPathImages & "people.png")
     
695.             imgDB = Image.FromStream(streamPic)
     
696.             picData.Image = imgDB
     
697.             ' Keep image filename blank.
     
698.             orgPicName = ""
     
699.             newFileName = ""
     
700. 
     
701.         End If
     
702.         '//
     
703.         streamPic.Dispose()
     
704.         DR.Close()
     
705.         Cmd.Dispose()
     
706.         Conn.Close()
     
707.     End Sub
     
708. 
     
709.     Private Sub cmbDepartment_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbDepartment.SelectedIndexChanged
     
710.         '
     
711.     End Sub
     
712. 
     
713.     Private Sub dgvData_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellContentClick
     
714.         '
     
715.     End Sub
     
716. 
     
717.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
718.         Me.Close()
     
719.     End Sub
     
720. 
     
721.     ' / -----------------------------------------------------------------------------
     
722.     ' / Show picture or not?
     
723.     ' / -----------------------------------------------------------------------------
     
724.     Private Sub chkPicture_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkPicture.CheckedChanged
     
725.         If chkPicture.Checked Then
     
726.             dgvData.Columns("PictureName").Visible = True
     
727.             Call AdjustRowHeight(75)
     
728.         Else
     
729.             dgvData.Columns("PictureName").Visible = False
     
730.             Call AdjustRowHeight(28)
     
731.         End If
     
732.     End Sub
     
733. 
     
734.     ' / -----------------------------------------------------------------------------
     
735.     ' / Change the height of the rows.
     
736.     ' / -----------------------------------------------------------------------------
     
737.     Private Sub AdjustRowHeight(h As Integer)
     
738.         For i As Integer = 0 To dgvData.Rows.Count - 1
     
739.             dgvData.Rows(i).Height = h
     
740.         Next
     
741.     End Sub
     
742. End Class

โค้ด:

1. Imports System.Data.OleDb
   
2. Imports Microsoft.VisualBasic
   
3. 
   
4. Module modDataBase
   
5.     '// Declare variable one time but use many times.
   
6.     Public Conn As OleDbConnection
   
7.     Public Cmd As OleDbCommand
   
8.     Public DS As DataSet
   
9.     Public DR As OleDbDataReader
   
10.     Public DA As OleDbDataAdapter
    
11.     Public strSQL As String '// Major SQL
    
12.     Public strStmt As String    '// Minor SQL
    
13. 
    
14.     '// Data Path
    
15.     Public strPathData As String = MyPath(Application.StartupPath)
    
16.     '// Images Path
    
17.     Public strPathImages As String = MyPath(Application.StartupPath)
    
18. 
    
19.     Public Sub ConnectDataBase()
    
20.         strPathData = MyPath(Application.StartupPath) & "Data"
    
21.         strPathImages = MyPath(Application.StartupPath) & "Images"
    
22.         Dim strConn As String = _
    
23.             "Provider = Microsoft.ACE.OLEDB.12.0;" & _
    
24.             "Data Source = " & strPathData & "Contact.accdb;"
    
25.         Try
    
26.             Conn = New OleDb.OleDbConnection(strConn)
    
27.             Conn.Open()
    
28. 
    
29.         Catch ex As Exception
    
30.             MessageBox.Show(ex.Message, "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    
31.             '// Force end of program.
    
32.             End
    
33.         End Try
    
34.     End Function
    
35. 
    
36.     ' / --------------------------------------------------------------------------------
    
37.     ' / Get my project path
    
38.     ' / AppPath = C:\My Project\bin\debug
    
39.     ' / Replace "\bin\debug" with ""
    
40.     ' / Return : C:\My Project\
    
41.     Function MyPath(AppPath As String) As String
    
42.         '/ MessageBox.Show(AppPath);
    
43.         AppPath = AppPath.ToLower()
    
44.         '/ Return Value
    
45.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
46.         '// If not found folder then put the \ (BackSlash) or ASCII Code = 92 at the end.
    
47.         If Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
    
48.     End Function
    
49. End Module