سلام دوستان گرامی اگر میشه به من کمک کنید
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 '('.
موارد گفته شده در خطاها رو هم برداشتم بازهم از همین خطاهارو گرفت
باید چیکارشون کنم ممنون میشم کمکم کنید
پاسخ با نقل قول
دانلود حسابخانه مانی، برنامه مدیریت درآمد و هزینه رایگان
