Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim artname = TextBox2.Text
Dim arttext = TextBox1.Text
Dim strinsert As String
strinsert = "insert into article (id, artname,artcat1,artcat2,text) values(5 , @artname , @artcat1 , @ artcat2 , @arttext)"
If Not ddl2.SelectedItem.Value = -1 Then
cn = New SqlConnection("server=localhost;uid=sa;pwd=123;database=article;")
cm = New SqlCommand(strinsert, cn)
cm.Parameters.Add("@artname", artname)
cm.Parameters.Add("@artcat1", ddl1.SelectedItem.Value)
cm.Parameters.Add("@artcat2", ddl2.SelectedItem.Value)
cm.Parameters.Add("@attext", arttext)
cn.Open()
cm.ExecuteNonQuery()
cn.Close()
Else
Label1.Text = "Please Select Category"
End If
End Sub
این مشکل حل شدراستی بازم سوال دارم
این کد رو ببین این @ هارو میگه غلطه میگه درست نیست
کجاش ایراد داره
ببخشیدا کل فوروم شده سوالای من
کد:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim artname = TextBox2.Text Dim arttext = TextBox1.Text Dim strinsert As String strinsert = "insert into article (id, artname,artcat1,artcat2,text) values(5 , @artname , @artcat1 , @ artcat2 , @arttext)" If Not ddl2.SelectedItem.Value = -1 Then cn = New SqlConnection("server=localhost;uid=sa;pwd=123;database=article;") cm = New SqlCommand(strinsert, cn) cm.Parameters.Add("@artname", artname) cm.Parameters.Add("@artcat1", ddl1.SelectedItem.Value) cm.Parameters.Add("@artcat2", ddl2.SelectedItem.Value) cm.Parameters.Add("@attext", arttext) cn.Open() cm.ExecuteNonQuery() cn.Close() Else Label1.Text = "Please Select Category" End If End Sub