تشغيل برنامج علي الشبكة - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4) +--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18) +---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28) +---- الموضوع : تشغيل برنامج علي الشبكة (/showthread.php?tid=2706) |
تشغيل برنامج علي الشبكة - arabe - 29-04-14 انا عندي مشكلة عندي برنامج حطيته علي الشبكة وشغلته علي الاجهزة المتوصلة علي الشبكة المشكلة ان البرنامج قاري قواعد البيانات وكله تمام لاكن لما اجي اضيف شي يظهر رسالة لم تقم بتفعيل التعديل والاستعلام ولم يحفظ البيانات ولاكن يظهر البيانات المسجلة مسبقة RE: تشغيل برنامج علي الشبكة - arabe - 29-04-14 Adodc1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=a.accdb.;Persist Security Info=False" هل الكود ده ليه علاقة بالموضوع RE: تشغيل برنامج علي الشبكة - مصمم الدوادمي - 15-08-14 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 |