[أبو نوره]

مرحبا اخي سعود

لا يوجد في access داله Scope_Identity ولكن تقدر تستعيض عنها ب Identity@@ مع تعديل بسيط جدا للطريقه والنتيجه هي نفسها

PHP كود :

Dim query As String = "insert Into Categories (CategoryName) Values (@CategoryName);"
Dim ID As Integer
Dim connect As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=True;"
Using conn As New OleDbConnection(connect)
  Using cmd As New SqlCommand(query, conn)
    cmd.Parameters.AddWithValue("@CategoryName", Category.Text)
    conn.Open()
    cmd.ExecuteNonquery()
    cmd.Commandtext="select @@Identity"
    ID = cmd.ExecuteScalar()
    conn.close()
  End Using
End Using 


لاحظ اخي سعود الاضافه اتعملت بexecutenonquery والاستعلام اتعمل بexecutescalar
ولازم كلهم يتعملو والاتصال مزال مفتوح ما تسكر

ملاحظه هامه للي بيتعامل مع قاعده البيانات انه ضروري يسكر الاتصال وما يتركه معلق متل الكود الاصلى اللى في الرابط
علشان ما يستنفذ عدد الاتصالات المسموحه بالوقت نفسه خصوصا بتعدد المستخدمين وكثره التعامل مع البيانات
ولا يفكر المبرمج انه مدام استخدم using انه ما يهتم يسكر الاتصال لالا هاذى الفكره غلط عن تجربه