Comments by Ashutosh Dutondkar (Top 39 by date)

Sorry RyanDev! But m not able to do it. Please can you help me Editing my given code! Making Global Variables in it! It will help me alot Sir!

Actually I have tried the above coding so far and I m not so good in VB. Can you please help me to declare them globally. I mean how to save their access and declare them globally. I'll be very thankful if you help me with the same.

Oops I'm Sorry!

Private Sub coursenamecmb_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles coursenamecmb.SelectedIndexChanged
Dim com As SqlCommand
Dim dr As SqlDataReader
Try
con.Open() // Here the error is 'The connection <pre>was not closed. The connection's current state is open.'
Dim str As String
str = "Select ccoursename, stfstaffid, stfname, stfsurname from CoursesStaff where ccoursename like '" & coursenamecmb.Text & "'"
com = New SqlCommand(str, con)
dr = com.ExecuteReader
While dr.Read
coursenamecmb.Text = dr.GetString(0)
staffidcmb.Text = dr.GetValue(1)
stfnametxt.Text = dr.GetValue(2)
stflnametxt.Text = dr.GetValue(3)
End While
con.Close()
Catch ex As SqlException
MessageBox.Show(ex.Message)
End Try

End Sub

m trying to do this because i have Batches Table in which their is a BatchID coloumn so if sometime i need to change the batchid then it would be helpfull to me.

Thats what i wanted to know that changing Primary Key would be right! When i try to update it jst display the message box "Record Updated" which i have used when the record is updated!

I tried putting the sstudentid in SET clause but then too it is not getting update!

I tried doing that but it gives same error.

Please Help Me Sir.. Its very important to me and urgent to me. PLEASE HELP SIR.

The option is already ticked. Please provide me with your EmailID i can explain you my exact problem.

If you can provide me with your MailID then i can tell about my error much better!

Visual Studio 2010 Professional and SQL Server 2012

I have ComboBox, CheckBox in DataGridView and everything m doin at runtime. I had different services in datagridview and products in combobox aftr selecting the service and products from the combobox, the price of both of them is added and displayed in label. But aftr clicking OK button m receiving an error. Please Help Me m trying to solve it from long time but i couldn't. HELP ME OUT IN THIS.

Also m transferring the Checkbox selected data in other form on click of OK button, when i click OK button the above error is coming.

m not getting the line on which the error is occuring but the error is which is shown above

The Error is 'The Following Exception Occured in The Datagirdview. System.Arguement.Exception: DatagridviewCellCombobox value is not valid. To replace this dialog please handle the DataError Event'. After this one more error is System.IndexOutOfRangeException: Index 0 does not have value. at System.Windows.Forms.CurrencyManager.get_Item(Int32 index) at System.Windows.Forms.DataGridView.DataGridViewDataConnection.GetError(int32 rowindex)
To replace this default dialog please handle the DataError event

Also it taught many things to me. :)

Your solution worked for me. Very much thankful to you, i was struggling with this from 2 days which help me out today. Also your code taught me about SQL Injection Attacks, thank you sou much! :)

One more thing please! I have datagirdview in my WinForms and in which i have checkbox column, and other two columns with service name and total. When i will check the check box in gird view i want to display the service name and total in the next forms listbox on click of 'OK' button! M not getting how to do it, please help me with it!

thanks it helped me again! :) Now the validation are working properly!

One more doubt! M checking validate fields! like contact number , age, email etc. So, if i entered wrong data and click insert button it is validating me but the problem is after correcting the field the data is getting inserted 2 times because i have press insert 2 times! As many time if i will press insert button because of validation that many times the data is getting inserted

If Not CheckEmptyTextbox(GroupBox1) Then
Exit Sub
End If
'Dim con As New SqlConnection("Data Source=ASHUTOSH-PC\SQLEXPRESS;Initial Catalog=Art Station Management System;Integrated Security=True")
Dim com As SqlCommand
Dim com1 As New SqlCommand
Dim str As String
Dim str1 As String
Dim i = Convert.ToInt32(stuidcmb.Text)
Dim a = Convert.ToInt32(stuagetxt.Text)
Dim gender As String = String.Empty
If stumalerd.Checked Then
gender = "Male"
ElseIf stufemalerd.Checked Then
gender = "Female"
End If
' Try
con.Open()
str = "Insert into StudentRegister values (@sstudentid,@sname,@smiddlename,@ssurname,@sdob,@ccoursename,@btbatchid,@sage,@sgender,@scontact,@saddress,@semailid,@sdatereg)"
com = New SqlCommand(str, con)
com.Parameters.AddWithValue("@sstudentid", i)
com.Parameters.AddWithValue("@sname", stufnametxt.Text)
com.Parameters.AddWithValue("@smiddlename", stumnametxt.Text)
com.Parameters.AddWithValue("@ssurname", stulnametxt.Text)
com.Parameters.AddWithValue("@sdob", DateTimePicker2.Value.Date)
com.Parameters.AddWithValue("@ccoursename", coursenamecmb.Text)
com.Parameters.AddWithValue("@btbatchid", batchidcmb.Text)
com.Parameters.AddWithValue("@sage", a)
com.Parameters.AddWithValue("@sgender", gender)
com.Parameters.AddWithValue("@scontact", stucntcttxt.Text)
com.Parameters.AddWithValue("@saddress", stuaddtxt.Text)
com.Parameters.AddWithValue("@semailid", stuemailtxt.Text)
com.Parameters.AddWithValue("@sdatereg", DateTimePicker1.Value.Date)
com.CommandText = str
com.ExecuteNonQuery()
con.Close()
If stucntcttxt.Text.Length <> 10 Then
MsgBox("Contact Number Must Be 10 Characters Long", MsgBoxStyle.Information)
Exit Sub
End If

If EmailAddressCheck(stuemailtxt.Text) = True Then
MsgBox("Please enter your email address correctly", vbInformation)
stuemailtxt.Text = ""
Exit Sub
End If

con.Open()
str1 = "Insert into AttendanceStudent values (@sstudentid,@sname,@btbatchid,@ccoursename,@atsdate,'ABSENT')"
com1 = New SqlCommand(str1, con)
com1.Parameters.AddWithValue("@sstudentid", i)
com1.Parameters.AddWithValue("@sname", stufnametxt.Text)
com1.Parameters.AddWithValue("@btbatchid", batchidcmb.Text)
com1.Parameters.AddWithValue("@ccoursename", coursenamecmb.Text)
com1.Parameters.AddWithValue("@atsdate", DateTimePicker1.Value.Date)
com1.CommandText = str1
com1.ExecuteNonQuery()
con.Close()
MsgBox("Record Inserted Successfully", MsgBoxStyle.Information)
Display()
clear()
'Catch ex As Exception

'End Try
End Sub

Thank you so much! Now its not giving me an error! Thank you very much! +10! :);)

Okay! thank you so much. I'll see forward for it :)

Dim con As New SqlConnection("Data Source=ASHUTOSH-PC\SQLEXPRESS;Initial Catalog=Art Station Management System;Integrated Security=True")
Dim com As SqlCommand
Dim str As String
Dim i = CInt(stuidcmb.Text)
Dim a = CInt(stuagetxt.Text)
Dim d As Date = DateTime.Parse(studobtxt.Text)
Dim gender As String = String.Empty
If stumalerd.Checked Then
gender = "Male"
ElseIf stufemalerd.Checked Then
gender = "Female"
End If
Try
con.Open()
str = "Insert into StudentRegister values (@sstudentid,@sname,@smiddlename,@ssurname,@sdob,@ccoursename,@btbatchid,@sage,@sgender,@scontact,@saddress,@scity,@sstate,@spincode,@semailid)"
com = New SqlCommand(str, con)
com.Parameters.AddWithValue("@sstudentid", i)
com.Parameters.AddWithValue("@sname", stufnametxt.Text)
com.Parameters.AddWithValue("@smiddlename", stumnametxt.Text)
com.Parameters.AddWithValue("@ssurname", stulnametxt.Text)
com.Parameters.AddWithValue("@sdob", d)
com.Parameters.AddWithValue("@ccoursename", coursenamecmb.Text)
com.Parameters.AddWithValue("@btbatchid", batchidcmb.Text)
com.Parameters.AddWithValue("@sage", a)
com.Parameters.AddWithValue("@sgender", gender)
com.Parameters.AddWithValue("@scontact", stucntcttxt.Text)
com.Parameters.AddWithValue("@saddress", stuaddtxt.Text)
com.Parameters.AddWithValue("@scity", stucitytxt.Text)
com.Parameters.AddWithValue("@sstate", stustatetxt.Text)
com.Parameters.AddWithValue("@spincode", stupintxt.Text)
com.Parameters.AddWithValue("@semailid", stuemailtxt.Text)
com.CommandText = str
com.ExecuteNonQuery()
Catch ex As Exception
End Try
MsgBox("Record Inserted Successfully", MsgBoxStyle.Information)
Display()
clear()
con.Close()

IS THIS CODE OF MINE IS ALSO OPENED FOR SQL INJECTION ATTACKS? PLEASE HELP ME WITH THE SAME HOW TO USE PARAMETRIZED QUERY AND AVOID ATTACKS ON MY DTATBASE.

Actually, my mistake was, I was having a numeric data type and was trying to convert to string by putting ''. But instead of '=' is I have put 'like' command for comparing the string and my error is solved now. Thanks for your Help Sir! :)

No Sir! Its not like that but i have not work on DataGridView so m not getting what to do!

Private Sub btstfidcmb_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles btstfidcmb.SelectedIndexChanged
Dim con As New SqlConnection("Data Source=ASHUTOSH-PC\SQLEXPRESS;Initial Catalog=Art Station Management System;Integrated Security=True")
Dim com As SqlCommand
Dim dr As SqlDataReader
Try
con.Open()
Dim str As String
str = "select * from StaffRegister where stfstaffid = '" & btstfidcmb.Text & "'"
com = New SqlCommand(str, con)
dr = com.ExecuteReader
While dr.Read 'GETTING ERROR ON THIS LINE'
stfnametxt.Text = dr.GetString(1)
stfmnametxt.Text = dr.GetString(2)
stflnametxt.Text = dr.GetString(3)
End While
con.Close()
Catch ex As SqlException
MessageBox.Show(ex.Message)
End Try
End Sub

Actually, m facing an error on line while dr.Read when i attempt to close the form with the form close icon on the form. The code is working properly but when I close the form it gives me the error "ERROR CONVERTING DATATYPE VARCHAR TO NUMERIC" i tried many things but the error is not getting solved. Can u please help me with this also?

Thank you so much Sir! For your help, now the code is working.

Actually i havn't did this type so far and m also beginner in vb, nt exaclty beginner bt have learned many thing. this thing is something new to me, so please can you help me with the code. M not getting what to write in the coding section.

I aslo tried using integer index value but then it gives me some other error like error converting System.String To System.Decimal

error is on line coursenamecmb.Text = dr.GetString("ccoursename")