سلام عليكم
اريد عمل استعلام من جدول in وعمود Data
بحيث اعرف عدد الحروف الموجودة فى كل حقل كما فى الشكل الاتى وهذا من استعلام على اكسس
الحقل به adbbacdd
نتيجة الاستعلام
a b c d
3 1 2 2
وهذا هو الاستعلام الذى استعمله فى الاكسس
Len([data])-Len(Replace([data],"A",""))
اريد تنفيذه او الكود الاستعلام المناسب
جزاكم الله خير
SELECT table1.data,
Len(data) - Len(Replace(data, 'a', '')) AS a,
Len(data) - Len(Replace(data, 'b', '')) AS b,
Len(data) - Len(Replace(data, 'c', '')) AS c,
Len(data) - Len(Replace(data, 'd', '')) AS d
FROM table1;استاذ سمير تظهر هذه الرسالة
الرجاء النظر لو تكرمت
قاعدة البيانات مرفقة
اريد ان اعمل استعلام لكى يضيف فى قاعدة البيانات كم حرف فى كل حقل مع كل عمليه ادخال
يوجد تكست واحد يدخل به البيانات التى تذهب الى عمود Data
اريد مع امر زر الاضافة عمل استعلام ليضيف فى عمود a كم حرف وفى عمود b كم حرف وهكذا
ارجو ان تكون الفكرة وضحت وارجو ان تساعدونى لتنفيذها
جزاكم الله خيرا
وشكرا لاستاذى العزيز سمير
المشكلة ان REPLACE هي internal access command وليست من ضمن اوامر SQL ولا تقبل فى VB
سوف تحل اذا استعملنا ADODB بدل OLEDB
خليني شوف كيف بتزبط
ربنا يخليك لينا يا استاذ سمير
لقد ضيعت بالاسم. انها DAO وليست ADODB
Add refrence to : Microsoft.Office.Interop.Access.Dao
Dim AccessEngine As New Microsoft.Office.Interop.Access.Dao.DBEngine
Dim db As Microsoft.Office.Interop.Access.Dao.Database = AccessEngine.OpenDatabase("your_access_path")
Dim update_sql = <SQL>
UPDATE P_N
SET P_N.a = Len([data])-Len(Replace([data],'a','')),
P_N.b = Len([data])-Len(Replace([data],'b','')),
P_N.c = Len([data])-Len(Replace([data],'c','')),
P_N.d = Len([data])-Len(Replace([data],'d',''));</SQL>.Value
db.Execute(update_sql)تم تعديل هذه المشاركة بواسطة samir ibrahim في 21 سبتمبر 2013 في 11:05
الله ينور يا استاذ سمير
جارى التجربة على الكود الجديد
استاذ سمير انا اسف لحضرتك
بس فى حاجة عندى مش ظابطة اكيد فى حاجة انا مش فاهمها
استسمحك تطبق الكود ده عملى على قاعدة البيانات المرفقة
جزاك الله خير لتعبك ومجهودك معانا
Microsoft.Office.Interop.Access.Dao.DBEngine
كيف اضيفها Add refrence
غير موجودة يا استاذ سمير فى Add refrence
Add Refrence
Search for : Microsoft Office 14.0 Object Library
او
Microsoft Office 12.0 Object Library
حسب نسخة ال office اللى عندك
delete ds_chrcount and datein.mdb from the project then clean project then build project
جزاك الله خير استاذ سمير ويجازيك على تعبك معانا
لكن مازالت المشكلة مستمرة ولا اعرف السبب
Warning 1 A custom tool 'MSDataSetGenerator' is associated with file 'ds_chrcount.xsd', but the output of the custom tool was not found in the project. You may try re-running the custom tool by right-clicking on the file in the Solution Explorer and choosing Run Custom Tool.
Error 2 Unable to open module file 'J:\project No 1\ملفات المشروع\New Folder (2)\update_counts\ds_chrcount.Designer.vb': System Error &H80070002& J:\project No 1\ملفات المشروع\New Folder (2)\update_counts\ds_chrcount.Designer.vb 1 1 update_counts_DAO
سطرين جملى والله يا استاذ سمير
يظهر هذا الخطاء
{"Undefined function 'Replace' in expression."}
رجاء لا تفقد صبرك معى...............
الاخطاء التى تظهر بتصوير حى فى المرفقات
هل ممكن ان بجرب احد اخر البرنامج الذي ارفقته؟
هل هناك اخطاء؟
خالد : remove the reference and add it again, maybe you have different version of office
انا جربته على جهازين
ياريت حد يجرب على جهازه ويرد علينا
الاستاذ سمير قرب يضربنا صبر علينا كتير
جزاه الله خير
السلام عليكم
طيب حل للمشكلة هل يمكن ان يقرىء الفيجوال نت الاستعلامات من اكسيس مثل الجداول
الرجاء اذا كان ممكن ان تشرح الطريقة
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…