تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في فورم ادخال البيانات الى الاكسس
#1
السلام عليكم ورحمة الله وبركاته,,,
السطرهذا لا يعمل بشكل صحيح 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
الرد }}}
تم الشكر بواسطة:
#2
[COLOR="#000080"]السلام عليكم ورحمه الله وبركاته

ارفع المثال وسأعدله لك [/COLOR]
الرد }}}
تم الشكر بواسطة:
#3
ينقل للقسم المناسب
متغيب
الرد }}}
تم الشكر بواسطة:
#4
استادي الملف رفعته على المرفقات


الملفات المرفقة
.rar   abc.rar (الحجم : 4.34 ك ب / التحميلات : 55)
الرد }}}
تم الشكر بواسطة:
#5
رفعت الملف الان
Mr_MGM كتب :[COLOR="#000080"]السلام عليكم ورحمه الله وبركاته

ارفع المثال وسأعدله لك [/COLOR]
الرد }}}
تم الشكر بواسطة:
#6
بعد إذن الاستاذ [b]Mr_MGM
التعديل بالمرفقات

[/b]


الملفات المرفقة
.rar   تعديل.rar (الحجم : 7.63 ك ب / التحميلات : 52)
سبحان الله وبحمده سبحان الله العظيم
آللهم لگ آلحمد حتى ترضى .. ولگ آلحمد إذا رضيِت .. ولگ آلحمد بعد آلرضآ
الرد }}}
تم الشكر بواسطة:
#7
hago كتب :بعد إذن الاستاذ [b]Mr_MGM
التعديل بالمرفقات

[/b]



لقد قمت بحذف علامتي التنصيص المفردة فقط من الكود الأتي وأشتغل بدون أية مشاكل:
كود :
SQLs = "select * from emp where empno='" & Text5 & "'"
وأصبح الكود كالأتي وهو كما عدلته أنت ولكن من غير أية تعديلات أخري:
كود :
SQLs = "select * from emp where empno=" & Text5 & ""

[b]فما ضرورة التعديلات الباقية التي أجريتها علي الملف؟؟ [/b]

ولكن سؤالي هنا كيف أستخدم نفس الكود في البحث عن أول الكلمة أو أي موضع منها.

لأني رأيت أنه يخنتلف بذلك الحذف الذي أشرت أنا أليه عن كود الأداة DATA1
الرد }}}
تم الشكر بواسطة:
#8
عبدالله الصافي كتب :وأصبح الكود كالأتي وهو كما عدلته أنت ولكن من غير أية تعديلات أخري:
كود :
SQLs = "select * from emp where empno=" & Text5 & ""
تمام اخى عبد الله 100%
عبدالله الصافي كتب :[b]فما ضرورة التعديلات الباقية التي أجريتها علي الملف؟؟ [/b]
اى مبرمج له طريقة معينة فى كتابة الاكواد فمثلاً انا احب الطريقة السهلة والثلثة ليفهما الاخرون

عبدالله الصافي كتب :ولكن سؤالي هنا كيف أستخدم نفس الكود في البحث عن أول الكلمة أو أي موضع منها.
للبحث باول الحرف من الكلمة :
PHP كود :
SQLs "select * from emp where empno like '%" Text1.Text "%'" 
لاحظ الفرق البيسط
تقبل تحياتى
سبحان الله وبحمده سبحان الله العظيم
آللهم لگ آلحمد حتى ترضى .. ولگ آلحمد إذا رضيِت .. ولگ آلحمد بعد آلرضآ
الرد }}}
تم الشكر بواسطة:
#9
جزاكم الله خيرا وبارك الله فيكم
عبدالله الصافي كتب :لقد قمت بحذف علامتي التنصيص المفردة فقط من الكود الأتي وأشتغل بدون أية مشاكل:
كود :
SQLs = "select * from emp where empno='" & Text5 & "'"
وأصبح الكود كالأتي وهو كما عدلته أنت ولكن من غير أية تعديلات أخري:
كود :
SQLs = "select * from emp where empno=" & Text5 & ""

[b]فما ضرورة التعديلات الباقية التي أجريتها علي الملف؟؟ [/b]

ولكن سؤالي هنا كيف أستخدم نفس الكود في البحث عن أول الكلمة أو أي موضع منها.

لأني رأيت أنه يخنتلف بذلك الحذف الذي أشرت أنا أليه عن كود الأداة DATA1
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة التعامل مع قاعدة البيانات وربطها بالفيجوال بيسك 6 ENG.MPROG 11 22,046 21-02-24, 08:29 PM
آخر رد: Nasa_use
  مساعدة بمشكلة الاكسس الاستعلام معقد جدا نيمو 0 266 18-07-23, 01:22 AM
آخر رد: نيمو
  ربط قاعدة البيانات بالانترنت abu jana 7 3,460 26-03-23, 04:17 PM
آخر رد: sanyor77
  عروض أعمدة ال datagrid تلقائيآ حسب البيانات المكتوبة فيها اسلام الكبابى 2 2,569 27-02-23, 03:55 PM
آخر رد: tighrmte
  رفع قواعد البيانات أكسس على الانترنت فيجوال بيسيك 2 3,582 27-02-23, 03:44 PM
آخر رد: tighrmte
  كيفية منع تكرار التاريخ فى قاعدة البيانات ؟ gedo 7 5,691 19-06-21, 09:31 PM
آخر رد: khaled201349
  طلب طريقة نقل البيانات من جدول الي جدول اخر في قاعدة بيانات اخر ahmed201 2 2,340 01-03-21, 12:14 AM
آخر رد: ahmed201
  فورم vb6 لنقل بيانات من جدول لآخر بنفس قاعدة بيانات اكسيس محمد تريكه 5 3,712 24-02-21, 08:10 PM
آخر رد: ahmed201
  [سؤال] البرنامج لا يقرأ من قاعدة البيانات بعد تنصيب البرنامج على ويندوز 10 aboezzat84 4 2,208 03-01-21, 02:58 AM
آخر رد: aboezzat84
  [ سؤال ] للخبراء كيفية عرض جميع اسماء قواعد البيانات في mysql server ابوبدر 3 2 2,537 30-08-20, 12:16 AM
آخر رد: diggitalk2017@gmail.com

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


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