Shoping Cart

أخ أحمد مشكور على ردك  

هذا هو لكود 

  Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAdd.Click

  Dim adapter As New DataSet1TableAdapters.productTableTableAdapter

  Try

  adapter.Insert(txtName.Text, ddlCategory.SelectedValue, txtDescription.Text, CheckBox1.Checked)

  If FileUpload1.HasFile Then

  Dim id As Integer = adapter.GetMaxID

  FileUpload1.SaveAs("~\pictures\" & id.ToString & ".jpg")

  lblOut.Text = "File Uploaded: " + FileUpload1.FileName

  Else

  lblOut.Text = "No File Uploaded."

  End If

  txtName.Text = String.Empty

  txtDescription.Text = String.Empty

  CheckBox1.Checked = False

  lblOut.Text = "a new profile is added "

  Catch ex As Exception

  lblOut.Text = "ERROR ! " & ex.Message

  End Try

  End Sub

ولكن لا اعتقد أن المشكلة من ال

insert  

وشكرا جزيلا