تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تشغيل برنامج علي الشبكة
#1
انا عندي مشكلة عندي برنامج حطيته علي الشبكة وشغلته علي الاجهزة المتوصلة علي الشبكة المشكلة ان البرنامج قاري قواعد البيانات وكله تمام لاكن لما اجي اضيف شي يظهر رسالة لم تقم بتفعيل التعديل والاستعلام ولم يحفظ البيانات ولاكن يظهر البيانات المسجلة مسبقة
الرد }}}
تم الشكر بواسطة:
#2
Adodc1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=a.accdb.;Persist Security Info=False"
هل الكود ده ليه علاقة بالموضوع
الرد }}}
تم الشكر بواسطة:
#3
Private Sub Command1_Click()



If Option1.Value = True Then

On Error GoTo openErr:



Set Db = OpenDatabase("Works.mdb", False, False, ";PWD =agcalxieee")

'False, False, ";PWD =agcalxieee ÇáÌÒÁ ÏÇ ÎÇÕ ÈÞÇÚÏÉ ÇáÈíÇäÇÊ ÏÇ ÚÔÇä ÞÇÚÏÉ ÈíÇäÇÊì ãÚãæáåÇ ÈÇÓæÑÏ ÈÇáÇÓã ÏÇ agcalxieee

MsgBox "Êã ÇáÑÈØ ÇáãÈÇÔÑ ÈÞÇÚÏÉ ÇáÈíÇäÇÊ"

Form1.Show

Exit Sub

openErr:

MsgBox "áã íÊã ÇáÚËæÑ Ú ÞÇÚÏÉ ÇáÈíÇäÇÊ"

End If

If Option2.Value = True Then



On Error GoTo openErr1:


Set Db = OpenDatabase("\\karimtorky-PC\New folder (2)\Works.mdb", False, False, ";PWD =agcalxieee")

MsgBox "Êã ÇáÑÈØ ãÚ ÇáÔÈßÉ"

Form1.Show

Exit Sub

openErr1:

MsgBox (" åäÇß ãÔßáÉ Ýì ÇáÇÊÕÇá ÈÇáÔÈßÉ Çæ ÇáÌåÇÒ ÇáÓíÑÝíÑ ")


x = MsgBox(" ÅäßäÊ ÊãÊáß ÞÇÚÏì ÇáÈíäÇÊ ÈÌåÇÒß ..Ýåá Êäæì ÇáÇÊÕÇá ÈÞÇÚÏÉ ÇáÈíÇäÇÊ ÈÔßá ãÈÇÔÑ¿ ", vbMsgBoxRtlReading + vbYesNo, "")

If x = vbYes Then

Option1.Value = True

Set Db = OpenDatabase("Works.mdb", False, False, ";PWD =agcalxieee")

MsgBox "Êã ÇáÑÈØ ãÚ ÇáÔÈßÉ"

Form1.Show


End If

End If

End Sub
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] برنامج تنبيه صوتي ويندوز 10 aboezzat84 0 83 07-01-24, 06:46 PM
آخر رد: aboezzat84
  برنامج VB6 النسخة الفرنسية كاملة الخير طهوري 7 11,935 02-01-24, 06:55 PM
آخر رد: الخير19
  [vb6.0] ريد كود طيع التقرير نسختين علماً انني استخدم برنامج Active Report ؟ Microformt 2 358 12-11-23, 05:05 PM
آخر رد: Microformt
  كيف يمكن تشغيل برنامجي على اكثر من جهاز بنفس الوقت princeofislam 1 291 14-10-23, 08:18 PM
آخر رد: princeofislam
  [سؤال] ماهو سبب خروج هذه الرسالة كما في الصورة المرفقة عند تشغيل برنامج الفيجوال بيسك6 وادي العوضي 3 498 24-07-23, 11:50 PM
آخر رد: وادي العوضي
Question [vb6.0] الماذا يظهر البرنامج عن تشغيل بعض الشاشات الكمبيوتر بشكل مصغر ؟ Microformt 5 656 23-07-23, 12:27 PM
آخر رد: ahmedabdelaliem
  [vb6.0] المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة وادي العوضي 6 600 09-07-23, 12:44 AM
آخر رد: وادي العوضي
  [سؤال] كود تشغيل استعلامين معمولين في قاعدة بيانات اكسس من واجهة البرنامج من خلال زر امر وادي العوضي 16 1,449 04-07-23, 03:26 PM
آخر رد: وادي العوضي
  تحول برنامج مبرمج v.b في xp الو وندوز ٧ kanu3342 9 5,067 10-10-22, 12:02 AM
آخر رد: كاظم هاشم البهادلي
Question كيف يمكن تصفير الرسم البياني عند تشغيل البرنامج ؟؟ Microformt 0 702 06-08-22, 05:13 PM
آخر رد: Microformt

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم