[مساعدة]

أشكر أستاذنا khodor1985 على التنبيه للأعضاء

جرب هذا التعديل

كود :

Private Sub folderadd_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   Try
       txtsailman.Text = fullname
       sorse()
       Dim ss As String
       ss = "INSERT INTO [tab_older] ([date], [sailman]) VALUES (@date, @sailman)"
       Dim cmd As New OleDbCommand(ss, con)
       cmd.Parameters.AddWithValue("@date", dtolder.Value.Date)
       cmd.Parameters.AddWithValue("@sailman", txtsailman.Text)
       con.Open()

       cmd.ExecuteNonQuery()
       cmd.CommandText = "SELECT @@IDENTITY"
       Me.Label1.Text = cmd.ExecuteScalar

       con.Close()
   Catch ex As Exception
       MsgBox(ex.Message)
   End Try
End Sub

---

(11-03-17, 01:58 AM)khodor1985 كتب : ولكن لشحن أي أداة في المشروع، لم أرى أي أثر للشحن في الكود.

وأشكرك مرة أخرى للتنبيه للخلل الذي منطقية الكود، والذي لم انتبه له، فقمت بتعديل مشاركتي لحلها