001.Imports System.IO
002.Imports System.IO.Ports
003.Imports System.Threading
004.
005.
006.Public Class chfrm3
007. Dim conn As New MySqlConnection
008. Dim str As String = "server=localhost;User id=root;Password=1234;Database=student_att"
009.
010. Private Sub chfrm3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
011. Dim ports As String() = SerialPort.GetPortNames()
012.
013.
014.
015.
016.
017.
018. Dim port As String
019. Dim strport As String
020. For Each port In ports
021.
022. strport = CboPort.Items.Add(port).ToString()
023.
024.
025.
026. Next port
027.
028.
029.
030. CboPort.SelectedIndex = 0
031. End Sub
032.
033.
034.
035.
036.
037.
038.
039.
040.
041.
042.
043.
044.
045.
046. Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
047.
048. End Sub
049.
050. Private Sub Btnconne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnconne.Click
051.
052. Dim dt As String = "update comport set Port='" & CboPort.Text & "',BitperSec='" & Cbobuad.Text & "',Databit='" & CboBit.Text & "',Parity='" & Cboparity.Text & "',StopBits='" & CboStb.Text & "' where IdPort= '27';"
053.
054.
055. Dim cboshow As String = CboPort.Text
056.
057. conn.ConnectionString = str
058.
059. If CboPort.Text = "" Or Cbobuad.Text = "" Or Cboparity.Text = "" Or CboStb.Text = "" Or CboBit.Text = "" Then
060. MessageBox.Show("กรุณากรอกข้อมุลให้ครบด้วยค่ะ")
061. Else
062. Try
063. If conn.State = ConnectionState.Closed Then
064. conn.Open()
065. MsgBox("Seccessfully connected to Mysql Database ")
066.
067. Dim cmd As MySqlCommand = New MySqlCommand
068. With cmd
069. .CommandText = dt
070. .CommandType = CommandType.Text
071. .Connection = conn
072.
073. .ExecuteNonQuery()
074.
075. End With
076. conn.Close()
077.
078. conn.Dispose()
079. MsgBox("Port Setting OK")
080.
081. Else
082. conn.Close()
083.
084.
085. MsgBox("Connecttion is Closed.")
086.
087. End If
088. Catch ex As Exception
089. MsgBox(ex.ToString)
090.
091. End Try
092. End If
093. TextBox1.Text = cboshow & "connected"
094. End Sub
095.
096. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
097.
098.
099. Dim myCommand As New MySqlCommand
100.
101. Dim myData As New DataTable
102. Dim Sql As String = "SELECT * FROM comport"
103. Dim myAdapter As New MySqlDataAdapter(Sql, str)
104. myAdapter.Fill(myData)
105.
106.
107.
108. With CboPort
109. .DataSource = myData
110. .DisplayMember = myData.Columns.Item("Port").ColumnName
111. .SelectedItem = myData.Columns.Item("IdPort").ColumnName
112.
113. End With
114.
115. With Cbobuad
116. .DataSource = myData
117.
118. .DisplayMember = myData.Columns.Item("BitperSec").ColumnName
119.
120. .SelectedItem = myData.Columns.Item("IdPort").ColumnName
121. End With
122.
123.
124. With CboBit
125. .DataSource = myData
126. .DisplayMember = myData.Columns.Item("Databit").ColumnName
127. .SelectedItem = myData.Columns.Item("IdPort").ColumnName
128.
129. End With
130.
131.
132. With Cboparity
133. .DataSource = myData
134. .DisplayMember = myData.Columns.Item("Parity").ColumnName
135. .SelectedItem = myData.Columns.Item("IdPort").ColumnName
136.
137. End With
138.
139.
140. With CboStb
141. .DataSource = myData
142. .DisplayMember = myData.Columns.Item("StopBits").ColumnName
143. .SelectedItem = myData.Columns.Item("IdPort").ColumnName
144.
145. End With
146.
147.
148.
149.
150. End Sub
151.End Class
