insert buton

[rhepsi]

hii all,

im trying to work on insert button, when i give details if already the manager is available in that project, it shd display a message.. or else it shd insert...

insert_button click:>>>>[vb.net]


Dim cnSQL As MySqlConnection
Dim cmSQL As MySqlCommand
Dim drSQL As MySqlDataReader


Dim objListItem As ListItem

objListItem = CType(cbProjectName.SelectedItem, ListItem)



If cbProjectName.SelectedItem Is objListItem And cbCategoriesName.SelectedItem Is objListItem Then



Dim cmSQL As New MySqlCommand

Dim myselectquery As String = "SELECT sta_category_id_fk FROM tbl_staff_assignments WHERE " _
& "tbl_staff_assignments.sta_project_id_fk =(SELECT pr_project_id_pk FROM tbl_projects " _
& "WHERE tbl_projects.pr_project_location = ?PName ) tbl_projects.pr_project_id_pk = ?CID "


cmSQL.Parameters.Add("?PName", objListItem.ToString)
cmSQL.Parameters.Add("?CID", 1)

cnSQL = New MySqlConnection
cnSQL.ConnectionString = connect.ConnectionString

cmSQL.Connection = cnSQL
cmSQL.CommandText = myselectquery

Try
cnSQL.Open()
drSQL = cmSQL.ExecuteReader()

If drSQL.HasRows = True Then

While drSQL.Read

If drSQL.Item("sta_category_id_fk ") = "?CID" Then

MsgBox("Manager available in this project.. select other project or insert new project")


Else

insert staff.. code



thnx n need help..

[shweta123]

Hi,

Where exactly you are stuck ? Are you getting any error?

[rhepsi]

Hi,

Where exactly you are stuck ? Are you getting any error?

Hii,

im not getting any error but the records are not been inserted nor it showing any error message that manager is already available...

can u please help me with the code....

thnx...

[shweta123]

Hi,

Can try your code in different way?

You can take the Pname and CID as variables instaed of adding the parameters?

e.g.


Dim com As New OleDbCommand

Dim myselectquery As String = "SELECT sta_category_id_fk FROM tbl_staff_assignments WHERE " _
& "tbl_staff_assignments.sta_project_id_fk =(SELECT pr_project_id_pk FROM tbl_projects " _
& "WHERE tbl_projects.pr_project_location = " & PName & ") tbl_projects.pr_project_id_pk = & CID & " "

Dim sta_category_id_fkas integer
sta_category_id_fk = com.ExecuteScalar()


If sta_category_id_fk = CID Then
MsgBox("Manager available in this project.. select other project or insert new project")
Else
''''''''''''''Insert statement
End if

[rhepsi]

Hi,

Can try your code in different way?

You can take the Pname and CID as variables instaed of adding the parameters?

e.g.


Dim com As New OleDbCommand

Dim myselectquery As String = "SELECT sta_category_id_fk FROM tbl_staff_assignments WHERE " _
& "tbl_staff_assignments.sta_project_id_fk =(SELECT pr_project_id_pk FROM tbl_projects " _
& "WHERE tbl_projects.pr_project_location = " & PName & ") tbl_projects.pr_project_id_pk = & CID & " "

Dim sta_category_id_fkas integer
sta_category_id_fk = com.ExecuteScalar()


If sta_category_id_fk = CID Then
MsgBox("Manager available in this project.. select other project or insert new project")
Else
''''''''''''''Insert statement
End if

hii, thnx for ur reply...
when i tried like this:
im getting an error stating as:

"Only BYTE ARRAYS AND STINGS CAN BE SERIALIZED BY MYSQLBINARY"

CAN U HELP Me...

thnx..
hepsi..