مشكلة في فورم ادخال البيانات الى الاكسس - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40) +--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72) +--- الموضوع : مشكلة في فورم ادخال البيانات الى الاكسس (/showthread.php?tid=7177) |
مشكلة في فورم ادخال البيانات الى الاكسس - سالمة - 29-11-12 السلام عليكم ورحمة الله وبركاته,,, السطرهذا لا يعمل بشكل صحيح RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic وهذا الكود كامل Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" End Sub Private Sub Command2_Click() If Text1 = "" Then MsgBox "ÚÝæÇ íÌÈ ßÊÇÈÉ ÇáÇÓã", vbCritical + vbMsgBoxRight, "ÎØÃ" Exit Sub End If If Text2 = "" Then MsgBox "ÚÝæÇ íÌÈ ßÊÇÈÉ ÇÓã ÇáÇÈ", vbCritical + vbMsgBoxRight, "ÎØÃ" Exit Sub End If If Text3 = "" Then MsgBox "ÚÝæÇ íÌÈ ßÊÇÈÉ ÇÓã ÇáÌÏ", vbCritical + vbMsgBoxRight, "ÎØÃ" Exit Sub End If If Text4 = "" Then MsgBox "ÚÝæÇ íÌÈ ßÊÇÈÉ ÇááÞÈ", vbCritical + vbMsgBoxRight, "ÎØÃ" Exit Sub End If If Text5 = "" Then MsgBox "ÚÝæÇ íÌÈ ßÊÇÈÉ ÑÞã ÇáãæÙÝ", vbCritical + vbMsgBoxRight, "ÎØÃ" Exit Sub End If If Text6 = "" Then MsgBox "ÚÝæÇ íÌÈ ßÊÇÈÉ ÇáæÙíÝÉ", vbCritical + vbMsgBoxRight, "ÎØÃ" Exit Sub End If SQLs = "select * from emp where empno='" & Text5 & "'" If RS.State = adStateOpen Then RS.Close RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic If RS.EOF Then GoTo okaddnew: Else MsgBox "ÚÝæÇ ÑÞã ÇáãæÙÝ ãæÌæÏ ãÓÈÞÇ", vbCritical + vbMsgBoxRight, "ÎØÃ" Exit Sub End If okaddnew: RS.AddNew If Not Text1 = "" Then RS![firstname] = Text1 If Not Text2 = "" Then RS![fathername] = Text2 If Not Text3 = "" Then RS![grandname] = Text3 If Not Text4 = "" Then RS![famliyname] = Text4 If Not Text5 = "" Then RS![empno] = Text5 If Not Text6 = "" Then RS![job] = Text6 RS.Update MsgBox "The information has been saved", vbInformation + vbMsgBoxRight, "Save" End Sub Private Sub Form_Load() poolconnection SQLs = "select * from emp" If RS.State = adStateOpen Then RS.Close RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic End Sub مشكلة في فورم ادخال البيانات الى الاكسس - mr_mgm - 29-11-12 [COLOR="#000080"]السلام عليكم ورحمه الله وبركاته ارفع المثال وسأعدله لك [/COLOR] مشكلة في فورم ادخال البيانات الى الاكسس - Ahmad Jawad - 29-11-12 ينقل للقسم المناسب مشكلة في فورم ادخال البيانات الى الاكسس - سالمة - 30-11-12 استادي الملف رفعته على المرفقات مشكلة في فورم ادخال البيانات الى الاكسس - سالمة - 30-11-12 رفعت الملف الان Mr_MGM كتب :[COLOR="#000080"]السلام عليكم ورحمه الله وبركاته مشكلة في فورم ادخال البيانات الى الاكسس - hago - 30-11-12 بعد إذن الاستاذ [b]Mr_MGM التعديل بالمرفقات [/b] مشكلة في فورم ادخال البيانات الى الاكسس - عبدالله الصافي - 01-12-12 hago كتب :بعد إذن الاستاذ [b]Mr_MGM لقد قمت بحذف علامتي التنصيص المفردة فقط من الكود الأتي وأشتغل بدون أية مشاكل: كود : SQLs = "select * from emp where empno='" & Text5 & "'" كود : SQLs = "select * from emp where empno=" & Text5 & "" [b]فما ضرورة التعديلات الباقية التي أجريتها علي الملف؟؟ [/b] ولكن سؤالي هنا كيف أستخدم نفس الكود في البحث عن أول الكلمة أو أي موضع منها. لأني رأيت أنه يخنتلف بذلك الحذف الذي أشرت أنا أليه عن كود الأداة DATA1 مشكلة في فورم ادخال البيانات الى الاكسس - hago - 01-12-12 عبدالله الصافي كتب :وأصبح الكود كالأتي وهو كما عدلته أنت ولكن من غير أية تعديلات أخري:تمام اخى عبد الله 100% عبدالله الصافي كتب :[b]فما ضرورة التعديلات الباقية التي أجريتها علي الملف؟؟ [/b]اى مبرمج له طريقة معينة فى كتابة الاكواد فمثلاً انا احب الطريقة السهلة والثلثة ليفهما الاخرون عبدالله الصافي كتب :ولكن سؤالي هنا كيف أستخدم نفس الكود في البحث عن أول الكلمة أو أي موضع منها.للبحث باول الحرف من الكلمة : PHP كود : SQLs = "select * from emp where empno like '%" & Text1.Text & "%'" تقبل تحياتى مشكلة في فورم ادخال البيانات الى الاكسس - سالمة - 02-12-12 جزاكم الله خيرا وبارك الله فيكم عبدالله الصافي كتب :لقد قمت بحذف علامتي التنصيص المفردة فقط من الكود الأتي وأشتغل بدون أية مشاكل: |