السلام عليكم ورحمة الله وبركاته
يوجد اخت لدينا تحتاج هذا البرنامج للعمل ولكن فيه اخطاء ارجو ممن لديه الخبرة حل هذه الاخطاء
السورس كود للبرنامج في المرفقات
البرنامج متشعب ولم تذكر الاخطاء .
(09-10-18, 11:43 PM)ay.alhaj كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
يوجد اخت لدينا تحتاج هذا البرنامج للعمل ولكن فيه اخطاء ارجو ممن لديه الخبرة حل هذه الاخطاء
السورس كود للبرنامج في المرفقات
السلام عليكم و رحمة الله
يا ريت تحكيلي ايش فكرة البرنامج
صار عندي فضول اعرف
ما قدرت اشوف السورس بسبب عدم
وجود الفيجوال ستيديو على جهازي
(10-10-18, 12:37 AM)Amir_Alzubidy كتب : [ -> ] (09-10-18, 11:43 PM)ay.alhaj كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
يوجد اخت لدينا تحتاج هذا البرنامج للعمل ولكن فيه اخطاء ارجو ممن لديه الخبرة حل هذه الاخطاء
السورس كود للبرنامج في المرفقات
السلام عليكم و رحمة الله
يا ريت تحكيلي ايش فكرة البرنامج
صار عندي فضول اعرف
ما قدرت اشوف السورس بسبب عدم
وجود الفيجوال ستيديو على جهازي
كل الي اعرفه عن البرنامج انه خاص بالصيدليات لبيع الادوية والعلاجات
(10-10-18, 12:28 AM)حريف برمجة كتب : [ -> ]البرنامج متشعب ولم تذكر الاخطاء .
الصراحة لا اعرف كل ما يتم تشغيل اي واجهة يظهر خطا instanc not set
المشكلة هاي موجودة في كل شاشة عشان هيك بتوقع انه الخطا مشترك في كل البرنامج
ياريت تنزله وتشوفه بنفسك اذا بتعرف الخطأ
ادخل الى المديول "GlobalModule"و تأكد من معلومات نص الاتصال و ضع جملة :
كود :
Public Function opendb() As SqlConnection
'conn.ConnectionString = "Data Source=(LocalDB)\v11.0;AttachDbFilename=" + Application.StartupPath + "\dental.mdf"
Try
Dim conn As New SqlConnection("Data Source=(Local);Initial Catalog=dental;Integrated Security=True")
If conn.State = 1 Then conn.Close()
conn.Open()
cmd.Connection = conn
cmd.CommandType = CommandType.Text
Return conn
Catch ex As Exception
MsgBox(ex.Message)
Return Nothing
End Try
End Function
(10-10-18, 03:48 PM)asemshahen5 كتب : [ -> ]ادخل الى المديول "GlobalModule"و تأكد من معلومات نص الاتصال و ضع جملة :
كود :
Public Function opendb() As SqlConnection
'conn.ConnectionString = "Data Source=(LocalDB)\v11.0;AttachDbFilename=" + Application.StartupPath + "\dental.mdf"
Try
Dim conn As New SqlConnection("Data Source=(Local);Initial Catalog=dental;Integrated Security=True")
If conn.State = 1 Then conn.Close()
conn.Open()
cmd.Connection = conn
cmd.CommandType = CommandType.Text
Return conn
Catch ex As Exception
MsgBox(ex.Message)
Return Nothing
End Try
End Function
اخي وضع الاتصال صحيح لاني شغلت البرنامج وقام بالاتصال بقاعدة البينات بنجاح لكن هذا الخطأ لا اعلم سببه مع ذلك ساحاول لكن هل يمكن ان تشرح لي الكود الذي كتبته
فانكشن الاتصال بقاعدة البيانات .
اذا كان عندك اكثر من انستنس عندك نصين اتصال افتح Command Prompt (Admin)
و اكتب به : sqlcmd -L
و غير اسم السيرفر باسم الانستنس الناتج الموجود به قاعدة البيانات .
راح اشوف واردلك خبر وشكرا على الرد
للاسف لم تنجح لا اعرف سبب هذا الخطأ الرجاء المساعدة في اقرب وقت
وين الرد يا اخوان فش حد يعدل المشروع