السلام عليكم ورحمة الله وبركاته
أريد عمل ترانزاكشن في الفيجوال دوت نت بالكود
يدرج الموظف الجديد أول بجدول الموظفين ثم بجدول البرامج بشرط (بارامتر ) اسم البرنامج
فأرجو مساعدتي بالكود
وشكراً
عمل ترانزاكشن بالكود
السلام عليكم ورحمه الله وبركاته
اخي جرب الكود التالي وقم بالتعديل لإضافة وسيط لأنك لم تفصل كثيرا في سؤالك
Dim myconnection As SqlConnection
Dim mycommand As SqlCommand
Dim mytransaction As SqlTransaction
Dim ConnectionString As String
myconnection = New SqlConnection("server=(local)\SQLEXPRESS;" & _
"integrated security=sspi;database=MyDatabase")
myconnection.Open()
'start a transaction
mytransaction = myconnection.BeginTransaction()
'configure command object to use transaction
mycommand = New SqlCommand
mycommand.Connection = myconnection
mycommand.Transaction = mytransaction
Try
mycommand.CommandText = "insert into Employee(ID," & _
"FirstName,LastName) values(119, " & _
"'F','L')"
mycommand.ExecuteNonQuery()
mytransaction.Rollback()
Console.WriteLine("Rollback()")
mycommand.CommandText = "insert into Employee(ID," & _
"FirstName,LastName) values(119, " & _
"'F','L')"
mytransaction.Commit()
Catch e As Exception
Console.WriteLine(e.Message)
Finally
myconnection.Close()
End Try
.:: Wish to become better and better ::.
السلام عليكم
أخي شكراً لك
أنا أريدأعمل ترانزاكشن بالكود في الفيجوال [يدرج بيانات الموظف الجديد من الداتا قريد أولاً في جدول emplooy ثم يدرج بيانات الموظف والبرنامج المكلف به في جدول prog بشرط (بارمتر وهو "اسم البرنامج") لأن بين الجدولين علاقة]
أتمنى أن أكون قد وضحت الفكرة
لم أفهم عليك ( التعديل لإضافة وسيط)؟؟
الملف على الرابط التالي:
http://arb-up.com/rzeubs0p9l8d
أنا أستخدم قاعدة بيانات أكسس
جدول الموظفين باسم emplooy
جدول البرامج باسم prog
السلام عليكم ورحمه الله وبركاته
اخي متأكد من ان الملف شغال لأن امتداده zipx ما اشتغل معاي؟!!
.:: Wish to become better and better ::.
السلام عليكم ورحمة الله وبركاته
هذا الملف من جديد بامتداد zip على الرابط التالي:
http://arb-up.com/i6hqkt0cw6g7
وشكراً
السلام عليكم ورحمه الله وبركاته
اخي يمكنك استخدام فكره البرنامج الاول مع استخدام OleDbTransaction
.:: Wish to become better and better ::.
السلام عليكم ورحمة الله وبركاته
اقتباسأريدأعمل ترانزاكشن بالكود في الفيجوال [يدرج بيانات الموظف الجديد من الداتا قريد أولاً في جدول emplooy ثم يدرج بيانات الموظف والبرنامج المكلف به في جدول prog بشرط (بارمتر وهو "اسم البرنامج") لأن بين الجدولين علاقة]أتمنى أن أكون قد وضحت الفكرة
الملف على الرابط التالي:
http://arb-up.com/i6hqkt0cw6g7
أنا أستخدم قاعدة بيانات أكسس
جدول الموظفين باسم emplooy
جدول البرامج باسم prog
أخي لو تكرمت أريد الكود كاملاً
وشكراً
السلام عليكم ورحمة الله وبركاته
تم كتابة كود الترانزاكشن وظهر خطأ آمل تصحيحه
الملف على الرابط التالي:
http://arb-up.com/edm9ikrov124
وشكراً
السلام عليكم ورحمه الله وبركاته
اخي توجد مشكلة في الرابط!!
.:: Wish to become better and better ::.
السلام عليكم ورحمة الله وبركاته
أخي الملف على الرابط التالي:
http://filaty.com/f/1106/11273/si.zip.html
وشكراً
السلام عليكم ورحمه الله وبركاته
اخي قم بتعريف Imports System.Data.OleDb بالاضافه قم بتغيير اسم المتغيير e في ال catch الى ex مثلا لأن المتغير e محجوز في الحدث!!
.:: Wish to become better and better ::.
السلام عليكم ورحمة الله وبركاته
أخي جزاك الله خيراً عدلت على الكود كما قلت لي لكن لم يأتي بنتيجة
فتم كتابة الكود بطريقة أخرى
آمل الاطلاع عليه وأفادتي هل الطريقة صحيحة أم لا لأنه لم يعمل ولم يظهر لي خطأ
الملف على الرابط:
http://filaty.com/f/1106/76535/si.zip.html
وشكراً