the folowing code for insert to data base\\\\\\\\\\\\\\\\\\\
Dim mycon As SqlConnection = New SqlConnection("Data Source=alfc1ec8201d02;Initial Catalog=tajer;Integrated Security=SSPI")
Dim com As SqlCommand = New SqlCommand("insert into add_product values(@sn,@product_****,@product_type,@price)", mycon)
mycon.Open()
com.Parameters.AddWithValue("@sn", 1)
com.Parameters.AddWithValue("@product_****", TextBox1.Text)
com.Parameters.AddWithValue("@product_type", ComboBox1.Text)
com.Parameters.AddWithValue("@price", Convert.ToInt32(TextBox2.Text))
Dim x AsInteger = com.ExecuteNonQuery
If x = 1 Then
MsgBox("add complet")
TextBox1.Clear()
TextBox2.Clear()
EndIf
the folowing code for insert to data base select\\\\\\\\\\\\\\\\\
Dim con As SqlConnection = New SqlConnection("Data Source=al-fc1ec8201d02;Initial Catalog=tajer;Integrated Security=SSPI")
Dim cmd As SqlCommand = New SqlCommand("select product_****,product_type from add_product ", con)
con.Open()
Dim dr As SqlDataReader = cmd.ExecuteReader
While dr.Read
ComboBox1.Items.Add(dr.GetValue(0) & " " & dr.GetValue(1))
EndWhile
ADO(insert+select )with vb.net
button below this post to show your appreciation!
