Want to store some user settings in vb.net?This could be used for any number of things, I used this to store the length of a barcode that was being read from a text file, the user could change the default of 12 to any custom value:
Â
Open My Project / Settings Name = message Type = integer Scope = user Value = 10
Add this code below our Public Class:
Public Sub New()
‘ This call is required by the Windows Form Designer.
InitializeComponent()
End Sub On you form load add (to display the value):
Try
txtbox1.text = My.Settings.message
Catch ex AsException
MsgBox(ex.Message)
End Try
Â
To Update the setting(put this on a button, reads new value from textbox):
/* ——————————————-
* Flow Layout List
* RadioButtonList RepeatLayout=”Flow”
 ——————————————- */
.flowLayoutList
{
display: block;
height: 25px;
}
.flowLayoutList INPUT,
.flowLayoutList LABEL
{
line-height: 20px;
vertical-align: middle;
}
.flowLayoutList INPUT[type=”radio”]
{
float: left;
   width: 20px;
   padding: 0;
   vertical-align: middle;    }
Automatic validation of postcodes on the basis of pattern feasibility is therefore almost impossible to design, and the system contains no self-validating feature such as a check digit. Completely accurate validation is only possible by attempting to deliver mail to the address, and verifying with the recipient.
I am curious to whether Play will make any changes to their site after my email.
Email Sent to Paypal regarding password reminders being sent in plain text:
Hello,
Â
A friend has had his account hacked / logged into by an unauthorised user and items ordered off their cash card, this prompted me to log in and change my password. I thought I would check my history of purchases to ensure this had not happened to my account and only saw one item ordered. I realised I had an old account and needed the password to log in, so I had the password emailed to me which to my suprise was in PLAIN TEXT!
Â
Most online shops / secured sites would email a reset link so that the password never exists in plain text format. I have logged in and changed the password so that is not really an issue but many users would retrieve the password and not change it, I feel this is a big hole in your security policy and should be addressed. My debit card on your system is out of date, I wont be updating it until I feel that your system is more secure.
Â
This is not a complaint just thought I would give my view.
Â
Thank You
Their response:
Dear Ryan Tyler
Thank you for your email.
We are grateful for your suggestions and will forward your request onto the relevant department for their investigation. If we feel that our customers will benefit from your suggestion, we will update our website so it is worth periodically checking it for any further information.
If you have any further queries please check the FAQ section on our Helpdesk
Taken from URL: http://www.bbc.co.uk/wales/southeast/sites/blaenaugwent/pages/susanbalaka.shtml
Â
Packino Productions have found internet fame with their Wing Wing Shoot Bag series of short comedy films. Angus Rogers tells how they made the leap to making a full-length community movie in Blaina…
In January 2008, the weather forecast predicted snow in our area of the South Wales valleys. We wrote a short film to film in the snow, featuring our most beloved character, Susan Balaka - the transgender Russian super spy.
However, the forecast snow never arrived, and we were left feeling robbed of our creativity. As a way of making ourselves feel better, we decided to write a bigger, better sketch for our character. It was about time for Susan’s legs to stretch anyway.
Like the back-catalogue of Susan Balaka shorts, this new sketch was originally only meant to last a few minutes. Our intention was to increase the production qualities to make our new work excel from our previous shorts.
But during the writing process we decided to fuse several ideas together, boosting the project up to something which would last around twenty minutes.
Over the next few months and after several scenes were filmed, our friends started to take an active interest in the project, pitching in with aesthetic and practical help. As our friends involvement grew, so did interest from the community and then the media. As a result of this, the film too grew, until it became a feature length production.
Being no-budget film-makers, we would use anything we could our hands on. Equipment, props and costumes were borrowed and we would gain permission to film in locations for free.
People who had no experience or even thoughts of acting before would step forward and help us. Everyone did everything they could in order to better the film, and we’re proud to say that we think the final product is a testament to the hidden talent and beauty of the South Wales valleys.
On July 25th we hope that the audience will see something very new and very, very funny. If you want to find out more join the Susan Balaka Film group on Facebook.
Susan Balaka: Bound to the Reload is being shown at the Beaufort Theatre, Ebbw Vale, on Friday 25th July. Doors 7pm, admission free.
As ID is set to auto increment within the database then it is not required in the insert.
I have placed some very basic error checking, the TRY CATCH will attempt to insert the data, outputing to a label if it is successful or not.
code:
Sub Submit_Click(ByVal sender As Object, ByVal e As EventArgs)
       Dim myConnection As MySqlConnection
       Dim myDataAdapter As MySqlDataAdapter
       Dim myDataSet As DataSet
       myConnection = New MySqlConnection(”server=mysql.server.com; user id=Admin; password=xxx; database=data1; pooling=false;”)
       Dim myExecuteQuery = “INSERT INTO Players (Name, Team, DOB, Bio, Position, SquadNo, Birthplace) VALUES ( ‘” & txtname.Text & “‘ , ‘” & listTeam.selecteditem.value & “‘, ‘” & txtDOB.text & “‘ , ‘” & txtbio.text & “‘ ,’” & listPos.selecteditem.value & “‘ ,’” & txtsquadno.text & “‘,’” & txtbirth.text & “‘ )”
       Dim myCommand As New MySqlCommand(myExecuteQuery, myConnection)
       myCommand.Connection.Open()
       Try
           myCommand.ExecuteNonQuery()
           myConnection.Close()
           lblmsg.text = “Player has been added ”
       Catch
           lblmsg.text = “Could not insert please resubmit”
       End Try
   End Sub