kafinetetaha
سه شنبه 23 آذر 1389, 12:16 عصر
با سلام خدمت دوستان عزیز من یه مشکل دارم خیلی هم در موردش جستجو کردم چیزی پیدا نکردم کدهایی هم که مینویسم بصورت زیر است بانکم هم اسکیول سروره لطفا راهنماییم کنی
If TextBox1.Text = "" Then
dr = msg.Show("ëںê کںéں ©ں يں©§ کëی§", "¢ي¤ى", , JntDefaultButton.DefaultButton1, JntIcon.Critical, JntPicture.Taraneh)
Exit Sub
End If
Try
Dim cmd As New SqlCommand
cmd.Connection = cn
cmd.CommandText = "Insert into listzn values(@name)"
cmd.Parameters.AddWithValue("@name", TextBox1.Text)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
Catch ex As Exception
dr = msg.Show("ںیë کںéں ç éں £ ¢ ¬§ى ں«¢", "¢ي¤ى", , JntDefaultButton.DefaultButton1, JntIcon.Critical, JntPicture.Taraneh)
End Try
If TextBox1.Text = "" Then
dr = msg.Show("ëںê کںéں ©ں يں©§ کëی§", "¢ي¤ى", , JntDefaultButton.DefaultButton1, JntIcon.Critical, JntPicture.Taraneh)
Exit Sub
End If
Try
Dim cmd As New SqlCommand
cmd.Connection = cn
cmd.CommandText = "Insert into listzn values(@name)"
cmd.Parameters.AddWithValue("@name", TextBox1.Text)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
Catch ex As Exception
dr = msg.Show("ںیë کںéں ç éں £ ¢ ¬§ى ں«¢", "¢ي¤ى", , JntDefaultButton.DefaultButton1, JntIcon.Critical, JntPicture.Taraneh)
End Try