nytro

This one is nice and simple...!!!! Thanks man....!!!

You can write the code to count from the day of first run to 30 days and just use a simple message box to display that the program is out of date and needs update. This way,you can create another form that will accept some serial numbers to update the …

your insert command should be something like: [code] Dim my_cmd As MySqlCommand my_cmd = New MySqlCommand() my_cmd.CommandText = "insert into documenttable(?,?,?,?,?,?,?,?,?,?,?,?) values(route1,route2,route3,route4,route5,route6,route7,route8,route9,route10,route11,route12)" rs.Open(query, conn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic) my_cmd.Parameters.AddWithValue(rs("route1").Value, .ListBox1.Items(0)) my_cmd.Parameters.AddWithValue(rs("route2").Value, .ListBox1.Items(1)) my_cmd.Parameters.AddWithValue(rs("route3").Value, .ListBox1.Items(2)) my_cmd.Parameters.AddWithValue(rs("route4").Value, .ListBox1.Items(3)) my_cmd.Parameters.AddWithValue(rs("route5").Value, .ListBox1.Items(4)) my_cmd.Parameters.AddWithValue(rs("route6").Value, .ListBox1.Items(5)) my_cmd.Parameters.AddWithValue(rs("route7").Value, .ListBox1.Items(6)) my_cmd.Parameters.AddWithValue(rs("route8").Value, .ListBox1.Items(7)) my_cmd.Parameters.AddWithValue(rs("route9").Value, .ListBox1.Items(8)) my_cmd.Parameters.AddWithValue(rs("route10").Value, .ListBox1.Items(9)) my_cmd.Parameters.AddWithValue(rs("route11").Value, .ListBox1.Items(10)) my_cmd.Parameters.AddWithValue(rs("route12").Value, .ListBox1.Items(11)) …

also you can use the same for a ListBox as : Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged TextBox1.Text = ListBox1.SelectedItem End Sub

Yeah,a collection of array for the bindingsource will do.....!!!

I like the second one which is more easier to use and understandable.....!!!

You would have to specify the fields that you're inserting into like: Insert into Member(?,?,?,?,?,?,?,?,?) values(" & Idtxt.Text & ", '" & Nametxt.Text & "', '" & DateTimePicker1.Value & "', '" & gendercb.Text & "', '" & Classcb.Text & "','" & WingCb.Text & "', '" & FloorCb.Text & "', '" …

Get this software called PeToUSB,run it on your system and open to format your usb pen drive. Your drive is bootable now.