تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] بخصوص جلب جدول والتعديل على محتواه بشرط معين
#1
السلام عليكم ورحمة الله وبركاته

بارك الله في الجميع واسأل الله التوفيق والسداد والرشاد للجميع في الدنيا والآخرة اللهم ءامين.

إخواني لما ءاتي بالبيانات من جدول في قاعدة البيانات ويحتوي على الاسم والرقم (مثلاً)
وكان الاسم الواحد ( الصف ) يحتوي على اسم الشخص كاملاً مثلاُ ( عبد الله محمد عبد الرحمن عبد العزيز ) وأريد إختصار الاسم بشرط معين وهو أن يلغي كل ما هو بعد الفراغ الثالث مثلاً بحيث يكون الأسم ( عبد الله محمد ) فقط ثم أعيد نسخ التعديلات للجدول مره أخرى ( وهو في dataset ) ، كيف يكون هذا.
قال رسول الله صلى الله عليه وسلم ( من قال لا إله إلا الله دخل الجنة ) حديث صحيح.
قال رسول الله صلى الله عليه وسلم ( كلمتان خفيفتان على اللسان ثقيلتان في الميزان حبيبتان للرحمن : سبحان الله وبحمده سبحان الله العظيم ) حديث صحيح.
الرد }}}}
تم الشكر بواسطة:
#2
للرفع ،،، لأني ابحث عن إجابة لمثل هذا السؤال .
قال رسول الله صلى الله عليه وسلم ( من قال لا إله إلا الله دخل الجنة ) حديث صحيح.
قال رسول الله صلى الله عليه وسلم ( كلمتان خفيفتان على اللسان ثقيلتان في الميزان حبيبتان للرحمن : سبحان الله وبحمده سبحان الله العظيم ) حديث صحيح.
الرد }}}}
تم الشكر بواسطة:
#3
ماذاتقصد بالاسم الواحد؟
الصف عدة اعمدة
ام تقصد الاسم الاول والعائلة كلها بعمود واحد؟
اعذرني اخي لم استوعب .. لو ترفع صورة من الجدول حتى اتفهم...
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#4
اضف عدد مربعي نص وزر امر
اكتب بمربع النص الاول اربع اسماء بين كل اسم والاخر مسافة واحدة
واترك مربع النص الاخر لنكتب به الاندكس لموقع الاسم في المصفوفة

اكتب الكود التالي في حدث النقر لزر الامر
كود :
Dim p() As String = TextBox1.Text.Split(" ")
        Try



            Dim t As String = p(Val(TextBox2.Text))
            If Array.IndexOf(p, t) > 2 Then
                MsgBox("هذا الاسم بعد الفراغ الثالث", MsgBoxStyle.Critical, "")
                Exit Sub
            End If

            MsgBox(t)



        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "")

        End Try
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#5
اخي سعود حياك الله ،،،

باختصار ما أريده هو مثلاً لدي جدول وفيه عمود واحد يحتوي على الأسم كاملاً

ويحتوي على 3 صفوف وهي :

عبد الله محمد خالد عبد الله
سعود عبد الرحمن محمد إبراهيم
عمر جاسم علي عثمان

الآن جلبت البيانات من قاعدة البيانات ووضعتها في Dataset ، كيف أعدل على الجدول بحيث أجعل الأسماء على النحو التالي :

عبد الله محمد
سعود عبد الرحمن
عمر جاسم علي

بحيث الشرط حذف لي من كل اسم ما بعد الفراغ الثالث ، المقصد من هذه الطريقه هي تقصير اأسماء في بعض التقارير فقط.
قال رسول الله صلى الله عليه وسلم ( من قال لا إله إلا الله دخل الجنة ) حديث صحيح.
قال رسول الله صلى الله عليه وسلم ( كلمتان خفيفتان على اللسان ثقيلتان في الميزان حبيبتان للرحمن : سبحان الله وبحمده سبحان الله العظيم ) حديث صحيح.
الرد }}}}
تم الشكر بواسطة:
#6
ممتاز لقد خمنت هذا في ردي السابق
http://vb4arb.com/vb/thread-1282-post-10...l#pid10629
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#7
Rainbow 
(09-03-14, 12:04 AM)سعود كتب : اضف عدد مربعي نص وزر امر
اكتب بمربع النص الاول اربع اسماء بين كل اسم والاخر مسافة واحدة
واترك مربع النص الاخر لنكتب به الاندكس لموقع الاسم في المصفوفة
اكتب الكود التالي في حدث النقر لزر الامر
كود :
Dim p() As String = TextBox1.Text.Split(" ")
        Try
            Dim t As String = p(Val(TextBox2.Text))
            If Array.IndexOf(p, t) > 2 Then
                MsgBox("هذا الاسم بعد الفراغ الثالث", MsgBoxStyle.Critical, "")
                Exit Sub
            End If
            MsgBox(t)
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "")
        End Try

بعد إذنك اخي سعود
هذا الكود يعتمد علي رقم فهرس المصفوفة الموجود بــ TextBox2 ولن يعيد غير عنصر واحد
ليس هذا ما يريده
هو يريد الرجوع بقيمة الاسم الثلاثي اي بالفهرس 0 و 1 و 2 معا ليس هذا فحسب بل هو يريده لكل السجلات

اخي الكريم عبد الله سوف اعد لك مثال بسيط لجلب البيانات من الجدول وتعديلها والباقي عليك إنتظرني قليلا

تحياتي للجميع
RolleyesRolleyesRolleyes
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}}
تم الشكر بواسطة: سعود
#8
Rainbow 
الفكرة . اني استدعيت البيانات من القاعدة الي DataGridView وتعملت معها برمجيا بإستخدام For
هذه صور للمثال
والمثال بالمرفقات




اتمني ان يكون هذا ما تريده
RolleyesRolleyesRolleyes


الملفات المرفقة
.rar   Genius_Live_ConvertFromFullNameToTripleName.rar (الحجم : 81.65 ك ب / التحميلات : 454)
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}}
تم الشكر بواسطة: Sajad , سعود , عبد الله
#9
السلام عليكم ورحمة الله وبركاته

بارك الله فيك اخي سعود على جهودك وبيض الله وجهك.

شكراً لك أخي جينيوس لايف على جهدك الواضح وبارك الله فيك وغفر الله لنا ولك ولوالدينا وللمسلمين ، فعلاً هذا ما أردت في المثال 100% وقد حولته للعمل على dataset مباشرة والتعديل عليه ، الحمد لله تم الحل.

شكراً للجميع.
قال رسول الله صلى الله عليه وسلم ( من قال لا إله إلا الله دخل الجنة ) حديث صحيح.
قال رسول الله صلى الله عليه وسلم ( كلمتان خفيفتان على اللسان ثقيلتان في الميزان حبيبتان للرحمن : سبحان الله وبحمده سبحان الله العظيم ) حديث صحيح.
الرد }}}}
تم الشكر بواسطة: Sajad


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  نسخ جدول من قاعدة الي اخري مع الوصف atefkhalf2004 2 152 18-02-17, 01:34 AM
آخر رد: atefkhalf2004
  [سؤال] المساعدة في نقل سجلات من جدول الى جدول اخر مهندس حيدر 7 557 13-11-16, 02:16 PM
آخر رد: محمود بكرى
  [سؤال] كيفية اضافة عناصر عمود فى جدول من قاعدة بيانات فى جدول اخر hidn 1 477 04-11-16, 09:25 AM
آخر رد: thevirus
  ازاى بعد اما اعمل سكان بالباركود ويتسجل فى تكست بوكس معين يتنقل اوتوماتيك لتكست اخر araxis 1 298 07-07-16, 12:11 AM
آخر رد: الوادي
  ترحيل البيانات بشرط علي كعبي 11 710 03-06-16, 11:17 PM
آخر رد: علي كعبي
  طلب مساعدة في كود تعديل بيانات جدول لو تكرمتم kofa 10 609 31-05-16, 12:10 AM
آخر رد: kofa
  [سؤال] نقل بيانات من جدول الى اخر shawq 1 437 22-04-16, 04:19 AM
آخر رد: khodor1985
  كيفية التأكد من تعبئة الحقول في جدول بقاعدة البيانات aftfm 6 546 06-04-16, 08:38 PM
آخر رد: aftfm
  نسخ جدول من قاعدة الي اخري atefkhalf2004 8 682 27-02-16, 10:25 PM
آخر رد: atefkhalf2004
  كود التالي والسابق بترتيب معين aftfm 0 403 08-02-16, 11:37 AM
آخر رد: aftfm

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


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