alobaloo
شنبه 25 شهریور 1391, 22:29 عصر
سلام دوستان گرامی اگر میشه به من کمک کنید
Private Sub Bttnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bttnsearch.Click
Dim cnnstr As String
cnnstr = "data source=localhost;Initial catalog=accountency;Integrated security=true"
Dim cnn As New SqlConnection(cnnstr)
Dim cmd As New SqlCommand("select * from dbo.Workers where Wkr.Fname=" & txtsearch1.Text _
& "Wkr.Lname = " & txtsearch2.Text _
& "Wkr.PersonalCode = " & txtsearch3.Text _
& "Wkr.Job = " & txtsearch4.Text _
& "Wkr.YearWage = " & txtsearch5.Text, cnn)
cnn.Open()
ListView1.Clear()
Dim reader As SqlDataReader
reader = cmd.ExecuteReader
Dim i As Integer
For i = 0 To reader.FieldCount - 1
ListView1.Columns.Add(reader.GetName(i), 20)
Next
While reader.Read()
Dim li As New ListViewItem
li.Text = Convert.ToString(reader.Item("wkr_Fname"))
li.SubItems.Add(Convert.ToString(reader.Item("wkr_Lname")))
li.SubItems.Add(Convert.ToString(reader.Item("wkr_PersonalCode")))
li.SubItems.Add(Convert.ToString(reader.Item("wkr_Job")))
li.SubItems.Add(Convert.ToString(reader.Item("wkr_YearWage")))
ListView1.Items.Add(li)
End While
If cnn.State = ConnectionState.Open Then
cnn.Close()
cnn = Nothing
End If
End Sub
توی قسمتی که رنگی این خطارو ازم میگیره sqlexception was unhandled:Incorrect syntax near '='.
توی این کد هم همین خطارو در قسمت رنگی میگیره
Private Sub btnsabt_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsabt.Click
Dim cnnstr As String
cnnstr = "data source=localhost;Initial catalog=accountency;Integrated security=true"
Dim cnn As New SqlConnection(cnnstr)
Dim cmd As New SqlCommand("Insert Into Table_1 (@Emp_Fname,@Emp_Lname,@Emp_Ismale,@Emp_Ismarried, @Emp_Children,@Emp_Father,@Emp_Borndate,@Emp_Bornc ity,@Emp_Papernumber,@Emp_Melicode,@Emp_Mail,@Emp_ Tel,@Emp_Mobile,@Emp_Address,@Emp_Education,@Emp_M ajor,@Emp_Isenglish,@Emp_Iscomputer,@Emp_Interoduc er,@Emp_Sarbazi)", cnn)
cnn.Open()
cmd.Parameters.AddWithValue("@Emp_fname", Trim(txt1.Text))
cmd.Parameters.AddWithValue("@Emp_Lname", Trim(txt2.Text))
cmd.Parameters.AddWithValue("@Emp_Ismale", Trim(txt3.Text))
cmd.Parameters.AddWithValue("@Emp_Ismarried", Trim(txt4.Text))
cmd.Parameters.AddWithValue("@Emp_Children", Trim(txt5.Text))
cmd.Parameters.AddWithValue("@Emp_Father", Trim(txt6.Text))
cmd.Parameters.AddWithValue("@Emp_Borndate", Trim(txt7.Text))
cmd.Parameters.AddWithValue("@Emp_Borncity", Trim(txt8.Text))
cmd.Parameters.AddWithValue("@Emp_Papernumber", Trim(txt9.Text))
cmd.Parameters.AddWithValue("@Emp_Melicode", Trim(txt10.Text))
cmd.Parameters.AddWithValue("@Emp_Mail", Trim(txt11.Text))
cmd.Parameters.AddWithValue("@Emp_Tel", Trim(txt12.Text))
cmd.Parameters.AddWithValue("@Emp_Mobile", Trim(txt13.Text))
cmd.Parameters.AddWithValue("@Emp_Address", Trim(Txt14.Text))
cmd.Parameters.AddWithValue("@Emp_Education", Trim(Txt15.Text))
cmd.Parameters.AddWithValue("@Emp_Major", Trim(Txt16.Text))
cmd.Parameters.AddWithValue("@Emp_Isenglish", Trim(Txt17.Text))
cmd.Parameters.AddWithValue("@Emp_Iscomputer", Trim(txt18.Text))
cmd.Parameters.AddWithValue("@Emp_Interoducer", Trim(Txt19.Text))
cmd.Parameters.AddWithValue("@Emp_Sarbazi", Trim(Txt20.Text))
cmd.ExecuteNonQuery()
If cnn.State = ConnectionState.Open Then
cnn.Close()
cnn = Nothing
End If
End Sub
توی قسمتی که رنگی این خطارو ازم میگیره sqlexception was unhandled:Incorrect syntax near '('.
موارد گفته شده در خطاها رو هم برداشتم بازهم از همین خطاهارو گرفت
باید چیکارشون کنم ممنون میشم کمکم کنید
Private Sub Bttnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bttnsearch.Click
Dim cnnstr As String
cnnstr = "data source=localhost;Initial catalog=accountency;Integrated security=true"
Dim cnn As New SqlConnection(cnnstr)
Dim cmd As New SqlCommand("select * from dbo.Workers where Wkr.Fname=" & txtsearch1.Text _
& "Wkr.Lname = " & txtsearch2.Text _
& "Wkr.PersonalCode = " & txtsearch3.Text _
& "Wkr.Job = " & txtsearch4.Text _
& "Wkr.YearWage = " & txtsearch5.Text, cnn)
cnn.Open()
ListView1.Clear()
Dim reader As SqlDataReader
reader = cmd.ExecuteReader
Dim i As Integer
For i = 0 To reader.FieldCount - 1
ListView1.Columns.Add(reader.GetName(i), 20)
Next
While reader.Read()
Dim li As New ListViewItem
li.Text = Convert.ToString(reader.Item("wkr_Fname"))
li.SubItems.Add(Convert.ToString(reader.Item("wkr_Lname")))
li.SubItems.Add(Convert.ToString(reader.Item("wkr_PersonalCode")))
li.SubItems.Add(Convert.ToString(reader.Item("wkr_Job")))
li.SubItems.Add(Convert.ToString(reader.Item("wkr_YearWage")))
ListView1.Items.Add(li)
End While
If cnn.State = ConnectionState.Open Then
cnn.Close()
cnn = Nothing
End If
End Sub
توی قسمتی که رنگی این خطارو ازم میگیره sqlexception was unhandled:Incorrect syntax near '='.
توی این کد هم همین خطارو در قسمت رنگی میگیره
Private Sub btnsabt_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsabt.Click
Dim cnnstr As String
cnnstr = "data source=localhost;Initial catalog=accountency;Integrated security=true"
Dim cnn As New SqlConnection(cnnstr)
Dim cmd As New SqlCommand("Insert Into Table_1 (@Emp_Fname,@Emp_Lname,@Emp_Ismale,@Emp_Ismarried, @Emp_Children,@Emp_Father,@Emp_Borndate,@Emp_Bornc ity,@Emp_Papernumber,@Emp_Melicode,@Emp_Mail,@Emp_ Tel,@Emp_Mobile,@Emp_Address,@Emp_Education,@Emp_M ajor,@Emp_Isenglish,@Emp_Iscomputer,@Emp_Interoduc er,@Emp_Sarbazi)", cnn)
cnn.Open()
cmd.Parameters.AddWithValue("@Emp_fname", Trim(txt1.Text))
cmd.Parameters.AddWithValue("@Emp_Lname", Trim(txt2.Text))
cmd.Parameters.AddWithValue("@Emp_Ismale", Trim(txt3.Text))
cmd.Parameters.AddWithValue("@Emp_Ismarried", Trim(txt4.Text))
cmd.Parameters.AddWithValue("@Emp_Children", Trim(txt5.Text))
cmd.Parameters.AddWithValue("@Emp_Father", Trim(txt6.Text))
cmd.Parameters.AddWithValue("@Emp_Borndate", Trim(txt7.Text))
cmd.Parameters.AddWithValue("@Emp_Borncity", Trim(txt8.Text))
cmd.Parameters.AddWithValue("@Emp_Papernumber", Trim(txt9.Text))
cmd.Parameters.AddWithValue("@Emp_Melicode", Trim(txt10.Text))
cmd.Parameters.AddWithValue("@Emp_Mail", Trim(txt11.Text))
cmd.Parameters.AddWithValue("@Emp_Tel", Trim(txt12.Text))
cmd.Parameters.AddWithValue("@Emp_Mobile", Trim(txt13.Text))
cmd.Parameters.AddWithValue("@Emp_Address", Trim(Txt14.Text))
cmd.Parameters.AddWithValue("@Emp_Education", Trim(Txt15.Text))
cmd.Parameters.AddWithValue("@Emp_Major", Trim(Txt16.Text))
cmd.Parameters.AddWithValue("@Emp_Isenglish", Trim(Txt17.Text))
cmd.Parameters.AddWithValue("@Emp_Iscomputer", Trim(txt18.Text))
cmd.Parameters.AddWithValue("@Emp_Interoducer", Trim(Txt19.Text))
cmd.Parameters.AddWithValue("@Emp_Sarbazi", Trim(Txt20.Text))
cmd.ExecuteNonQuery()
If cnn.State = ConnectionState.Open Then
cnn.Close()
cnn = Nothing
End If
End Sub
توی قسمتی که رنگی این خطارو ازم میگیره sqlexception was unhandled:Incorrect syntax near '('.
موارد گفته شده در خطاها رو هم برداشتم بازهم از همین خطاهارو گرفت
باید چیکارشون کنم ممنون میشم کمکم کنید