Dim objConn As New MySqlConnection Dim objCmd As New MySqlCommand Dim strConnString, ConStrSql As String strConnString = "Server=localhost;User Id=root; Password=root; Database=Account; Pooling=false" ConStrSql = "INSERT INTO outstanding(Codeoutstanding,Date,List,Money,Comment)" & _ " VALUES " & _ " ('" & Me.TextID.Text & "','" & Me.CreateDate.Text & "','" & Me.TextBoxList.Text & "', " & _ " '" & Me.TextBoxmounny.Text & "','" & Me.TextBoxComment.Text & "')" objConn.ConnectionString = strConnString objConn.Open() With objCmd .Connection = objConn .CommandText = ConStrSql .CommandType = CommandType.Text End With Try objCmd.ExecuteNonQuery() Me.TextID.Text = "Record Inserted" Me.TextID.Visible = True Catch ex As Exception Me.TextID.Visible = True Me.TextID.Text = "Record can not insert Error (" & ex.Message & ")" End Try objConn.Close() objConn = Nothing
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง