[VB.NET] การสร้างฟิลด์ข้อมูล ตาราง และไฟล์ฐานข้อมูล SQLite ด้วยการเขียนโค้ด

thongkorn

หลังจากได้ปล่อย โปรแกรมการพิมพ์ใบแจ้งค่าใช้จ่ายหอพัก/อพาร์ทเมนท์ (RoomPayment Lite Version) ซึ่งเป็นงานชิ้นแรกที่แอดมินได้ใช้ฐานข้อมูล SQLite สำหรับบทความนี้แอดมินจะมาแจกโค้ดในการสร้างฟิลด์ข้อมูล ตาราง และไฟล์ฐานข้อมูล SQLite แบบไดนามิค เพราะสำหรับโปรเจคดังกล่าวนั้น แอดมินต้องใช้การสร้างโครงสร้างต่างๆของ SQLite ด้วยการเขียนโค้ดเองทั้งหมด ตัว SQLite มีความโดดเด่นในเรื่องของจำนวนชนิดข้อมูลค่อนข้างน้อย คือมีแค่ Integer (เลขจำนวนเต็ม), Text (ตัวอักษร), Real (จำนวนจริง หรือเลขทศนิยม), Blob (เก็บข้อมูลแบบไบนารี่) และใน SQLite 3 ได้เพิ่ม Numeric เข้ามาอีกตัว รายละเอียดในเรื่องชนิดข้อมูลของ SQLite ศึกษาเพิ่มเติมได้จากที่นี่ ...

ดาวน์โหลด System.Data.SQLite สำหรับแอดมินใช้ Net Framework เวอร์ชั่น 4 ขนาด 64 บิต (sqlite-netFx40-setup-x64-2010-1.0.111.0.exe) ...

ก่อนที่จะเริ่มต้นลงโค้ด จะต้อง Add Reference System.Data.SQLite เข้ามาก่อน ... และต้องคัดลอกไฟล์ SQLite.Interop.DLL เอาไปไว้ที่โฟลเดอร์โปรเจค Bin\Debug ก่อนด้วย (สำหรับ Visual Studio เวอร์ชั่นที่สูงกว่า ก็จะเป็น Bin\x86\Debug)


ไปที่ Project Perperties เพื่อปรับขนาดจำนวนบิตให้เป็น Any CPU กรณี 64 บิต หากเป็น SQLite 32 บิตให้เลือก x86 ...



การใช้ DB Browser for SQLite ซึ่งเป็นของฟรีในการบริหารจัดการกับ SQLite (ดาวน์โหลดได้ที่นี่)


มาดูโค้ดฉบับเต็มกันเถอะ ...

1. Imports System.Data.SQLite
   
2. 
   
3. Public Class frmCreateSQLiteDB
   
4.     Dim Conn As SQLiteConnection
   
5. 
   
6.     ' / --------------------------------------------------------------------
   
7.     ' / Close Connection
   
8.     Private Sub frmCreateSQLiteDB_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
   
9.         Me.Dispose()
   
10.         If Not IsNothing(Conn) Then
    
11.             Conn.Close()
    
12.             Conn.Dispose()
    
13.         End If
    
14.         Application.Exit()
    
15.     End Sub
    
16. 
    
17.     ' / --------------------------------------------------------------------
    
18.     Private Sub frmCreateSQLiteDB_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
19.         With cmbFieldType
    
20.             .Items.Add("INTEGER")
    
21.             .Items.Add("TEXT")
    
22.             .Items.Add("REAL")
    
23.             .Items.Add("NUMERIC")
    
24.         End With
    
25.         cmbFieldType.SelectedIndex = 0
    
26.         '/
    
27.         Call InitializeGridInfo()
    
28.         txtTableName.Text = "SampleTable"
    
29.     End Sub
    
30. 
    
31.     ' / --------------------------------------------------------------------
    
32.     Private Sub btnAdd_Click(sender As System.Object, e As System.EventArgs) Handles btnAdd.Click
    
33.         If Trim(txtFieldName.Text) = "" Or Trim(txtFieldName.Text.Length) = 0 Then Return
    
34.         For i = 0 To dgvInfo.RowCount - 1
    
35.             If Trim(txtFieldName.Text).ToLower = LCase(dgvInfo.Rows(i).Cells(0).Value).ToString Then
    
36.                 MessageBox.Show("มีฟิลด์ข้อมูลนี้อยู่ในตารางเรียบร้อยแล้ว.", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    
37.                 txtFieldName.Focus()
    
38.                 Return
    
39.             End If
    
40.         Next
    
41.         '// ตรวจคำสงวนที่นำมาใช้งานไม่ได้
    
42.         Dim strReserve As String = "integer text real numeric blob"
    
43.         If strReserve.Contains(Trim(txtFieldName.Text.ToLower)) Then
    
44.             MessageBox.Show("เป็นคำสงวนไม่สามารถนำมาใช้ได้.", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    
45.             txtFieldName.Focus()
    
46.             Return
    
47.         End If
    
48.         '//
    
49.         dgvInfo.Rows.Add()
    
50.         dgvInfo.Rows(dgvInfo.Rows.Count - 1).Cells(0).Value = Trim(txtFieldName.Text)
    
51.         dgvInfo.Rows(dgvInfo.Rows.Count - 1).Cells(1).Value = cmbFieldType.Text
    
52.         '//
    
53.         txtFieldName.Clear()
    
54.         txtFieldName.Focus()
    
55.     End Sub
    
56. 
    
57.     ' / --------------------------------------------------------------------
    
58.     ' / Initialized settings for DataGridView @Run Time.
    
59.     ' / --------------------------------------------------------------------
    
60.     Private Sub InitializeGridInfo()
    
61.         With dgvInfo
    
62.             .RowHeadersVisible = True
    
63.             .AllowUserToAddRows = False
    
64.             .AllowUserToDeleteRows = False
    
65.             .AllowUserToResizeRows = False
    
66.             .MultiSelect = False
    
67.             '// Need to modify each cell.
    
68.             .SelectionMode = DataGridViewSelectionMode.CellSelect
    
69.             .ReadOnly = False
    
70.             '//
    
71.             .Font = New Font("Tahoma", 9)
    
72.             '/ Automatically set the width.
    
73.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
74.             '/ Adjust Header Styles
    
75.             With .ColumnHeadersDefaultCellStyle
    
76.                 .BackColor = Color.Navy
    
77.                 .ForeColor = Color.White
    
78.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
    
79.             End With
    
80.         End With
    
81.         '// Add Column.
    
82.         Dim FieldName As New DataGridViewTextBoxColumn()
    
83.         With FieldName
    
84.             .HeaderText = "ชื่อฟิลด์ข้อมูล"
    
85.             .ReadOnly = True
    
86.         End With
    
87.         dgvInfo.Columns.Add(FieldName)
    
88.         '//
    
89.         Dim FieldType As New DataGridViewComboBoxColumn()
    
90.         With FieldType
    
91.             .HeaderText = "ชนิดฟิลด์ข้อมูล"
    
92.             .Items.Add("INTEGER")
    
93.             .Items.Add("TEXT")
    
94.             .Items.Add("REAL")
    
95.             .Items.Add("NUMERIC")
    
96.         End With
    
97.         dgvInfo.Columns.Add(FieldType)
    
98.         '//
    
99.         Dim btnDelRow As New DataGridViewButtonColumn()
    
100.         With btnDelRow
     
101.             .HeaderText = ""
     
102.             .Text = "ลบฟิลด์"
     
103.             .Name = "btnDelRow"
     
104.             .UseColumnTextForButtonValue = True
     
105.             .Width = 80
     
106.             .ReadOnly = True
     
107.         End With
     
108.         dgvInfo.Columns.Add(btnDelRow)
     
109. 
     
110.     End Sub
     
111. 
     
112.     ' / --------------------------------------------------------------------
     
113.     Private Sub dgvInfo_CellClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvInfo.CellClick
     
114.         Select Case e.ColumnIndex
     
115.             Case 2
     
116.                 dgvInfo.Rows.Remove(dgvInfo.CurrentRow)
     
117.         End Select
     
118.     End Sub
     
119. 
     
120.     Private Sub txtFieldName_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtFieldName.KeyPress
     
121.         If e.KeyChar = Chr(13) Then
     
122.             e.Handled = True
     
123.             Call btnAdd_Click(sender, e)
     
124.         End If
     
125.     End Sub
     
126. 
     
127.     ' / --------------------------------------------------------------------
     
128.     Private Sub btnCreate_Click(sender As System.Object, e As System.EventArgs) Handles btnCreate.Click
     
129.         If Trim(txtTableName.Text) = "" Or Trim(txtTableName.Text).Length = 0 Then
     
130.             MessageBox.Show("กรุณาตั้งชื่อตารางก่อนด้วย.", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Information)
     
131.             Return
     
132.         End If
     
133.         If dgvInfo.RowCount = 0 Then
     
134.             MessageBox.Show("ยังไม่มีรายการข้อมูล กรุณาทำการเพิ่มก่อนด้วย.", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Information)
     
135.             Return
     
136.         End If
     
137.         '//
     
138.         Dim dlgSaveFile As New SaveFileDialog()
     
139.         With dlgSaveFile
     
140.             .Filter = "SQLite 3 (*.db3)|*.db3|SQLite (*.db)|*.db"
     
141.             .Title = "บันทึกไฟล์ SQLite"
     
142.             .DefaultExt = "db3"
     
143.             .InitialDirectory = MyPath(Application.StartupPath)
     
144.             .RestoreDirectory = True
     
145.         End With
     
146.         If dlgSaveFile.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
     
147.             Try
     
148.                 '/ Check File Exist. If available, delete it before.
     
149.                 If System.IO.File.Exists(dlgSaveFile.FileName) = True Then System.IO.File.Delete(dlgSaveFile.FileName)
     
150.                 '// Create the SQLite database
     
151.                 SQLiteConnection.CreateFile(dlgSaveFile.FileName)
     
152.                 Dim sQuery As String = String.Empty
     
153.                 For i = 0 To dgvInfo.RowCount - 1
     
154.                     sQuery = sQuery & dgvInfo.Rows(i).Cells(0).Value.ToString & " " & dgvInfo.Rows(i).Cells(1).Value.ToString & ","
     
155.                 Next
     
156.                 '// Cut the last comma.
     
157.                 If Microsoft.VisualBasic.Right(sQuery, 1) = "," Then sQuery = Mid(sQuery, 1, Len(sQuery) - 1)
     
158.                 Dim CreateTable As String = String.Empty
     
159.                 '/ Create table sql statement
     
160.                 '/ CREATE TABLE IF NOT EXISTS SampleTable (AAA INTEGER,BBB TEXT,CCC REAL)
     
161.                 CreateTable &= "CREATE TABLE IF NOT EXISTS " & Trim(txtTableName.Text) & " ("
     
162.                 CreateTable &= sQuery & ")"
     
163.                 '// Check File Exist
     
164.                 If System.IO.File.Exists(dlgSaveFile.FileName) = True Then
     
165.                     System.IO.File.Delete(dlgSaveFile.FileName)
     
166.                 End If
     
167.                 '// Create the SQLite database
     
168.                 SQLiteConnection.CreateFile(dlgSaveFile.FileName)
     
169.                 Using MyConn As New SQLiteConnection("Data Source=" & dlgSaveFile.FileName & ";Version=3;New=True;")
     
170.                     MyConn.Open()
     
171.                     Using MyCmd As New SQLiteCommand(CreateTable, MyConn)
     
172.                         MyCmd.ExecuteNonQuery()
     
173.                     End Using
     
174.                 End Using
     
175.                 '// START
     
176.                 Try
     
177.                     '/ Declare
     
178.                     Dim DA As SQLiteDataAdapter
     
179.                     Dim DS As DataSet
     
180.                     '// Open connection
     
181.                     Dim strConn As String = "Data Source=" & dlgSaveFile.FileName & ";Version=3;New=True;"
     
182.                     Conn = New SQLiteConnection(strConn)
     
183.                     Conn.Open()
     
184.                     DA = New SQLiteDataAdapter("SELECT * FROM " & Trim(txtTableName.Text), Conn)
     
185.                     DS = New DataSet
     
186.                     DA.Fill(DS, "MyTest")
     
187.                     dgvData.DataSource = DS.Tables("MyTest").DefaultView
     
188.                     DS.Dispose()
     
189.                     DA.Dispose()
     
190.                     '/ dgvData for input value.
     
191.                     Call InitializeGridData()
     
192.                 Catch ex As Exception
     
193.                     MessageBox.Show(ex.Message)
     
194.                 End Try
     
195.                 Conn.Close()
     
196.                 MessageBox.Show("Created successfully.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
     
197.             Catch ex As Exception
     
198.                 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
     
199.             End Try
     
200.         End If
     
201.     End Sub
     
202. 
     
203.     ' / --------------------------------------------------------------------
     
204.     Private Sub InitializeGridData()
     
205.         With dgvData
     
206.             .RowHeadersVisible = True
     
207.             .AllowUserToAddRows = True
     
208.             .AllowUserToDeleteRows = True
     
209.             .AllowUserToResizeRows = False
     
210.             .MultiSelect = False
     
211.             '// Need to modify each cell.
     
212.             .SelectionMode = DataGridViewSelectionMode.CellSelect
     
213.             .ReadOnly = False
     
214.             '//
     
215.             .Font = New Font("Tahoma", 9)
     
216.             ' Automatically set the width.
     
217.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
     
218.             '/ Adjust Header Styles
     
219.             With .ColumnHeadersDefaultCellStyle
     
220.                 .BackColor = Color.Navy
     
221.                 .ForeColor = Color.White
     
222.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
     
223.             End With
     
224.         End With
     
225.     End Sub
     
226. 
     
227.     ' / Get my project path
     
228.     ' / AppPath = C:\My Project\bin\debug
     
229.     ' / Replace "\bin\debug" with ""
     
230.     ' / Return : C:\My Project\
     
231.     Function MyPath(ByVal AppPath As String) As String
     
232.         '/ MessageBox.Show(AppPath);
     
233.         AppPath = AppPath.ToLower()
     
234.         '/ Return Value
     
235.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
     
236.         '// If not found folder then put the \ (BackSlash ASCII Code = 92) at the end.
     
237.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
     
238.     End Function
     
239. 
     
240.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
241.         Me.Close()
     
242.     End Sub
     
243. 
     
244. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดชุดเต็ม VB.NET (2010) ได้ที่นี่ ...

MMEE007

ขอบพระคุณคับ