02-04-16, 01:56 AM
هذا الكود عمله يقوم باضافة البيانات الجديده لجدول ما و يرجع قيمة الريكورد الجديد الذي تم اضافته و في حالتك سيكون رقم الموظف الخاص بك .. فقط استفيد من الرقم باضافته الى جدول اخر كمفتاح اجنبي او تاكد انه تم اضافة الحقل بنجاح اذا كان الرقم اكبر من صفر ... الخ
Dim query As String = "AddCategory"
Dim ID As Integer
Dim connect As String = "Server=.\SQLExpress;Database=Northwind;Trusted_Connection=Yes;"
Using conn As New SqlConnection(connect)
Using cmd As New SqlCommand(query, conn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.AddWithValue("@Category", Category.Text)
conn.Open()
ID = cmd.ExecuteScalar()
End Using
End Using
Dim query As String = "AddCategory"
Dim ID As Integer
Dim connect As String = "Server=.\SQLExpress;Database=Northwind;Trusted_Connection=Yes;"
Using conn As New SqlConnection(connect)
Using cmd As New SqlCommand(query, conn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.AddWithValue("@Category", Category.Text)
conn.Open()
ID = cmd.ExecuteScalar()
End Using
End Using
اسم معرفي : محمد يحيى