تقييم الموضوع :
  • 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 ك ب / التحميلات : 421)
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] المساعدة في نقل سجلات من جدول الى جدول اخر مهندس حيدر 7 266 13-11-16, 02:16 PM
آخر رد: محمود بكرى
  [سؤال] كيفية اضافة عناصر عمود فى جدول من قاعدة بيانات فى جدول اخر hidn 1 163 04-11-16, 09:25 AM
آخر رد: thevirus
  ازاى بعد اما اعمل سكان بالباركود ويتسجل فى تكست بوكس معين يتنقل اوتوماتيك لتكست اخر araxis 1 155 07-07-16, 12:11 AM
آخر رد: الوادي
  ترحيل البيانات بشرط علي كعبي 11 315 03-06-16, 11:17 PM
آخر رد: علي كعبي
  طلب مساعدة في كود تعديل بيانات جدول لو تكرمتم kofa 10 335 31-05-16, 12:10 AM
آخر رد: kofa
  [سؤال] نقل بيانات من جدول الى اخر shawq 1 240 22-04-16, 04:19 AM
آخر رد: khodor1985
  كيفية التأكد من تعبئة الحقول في جدول بقاعدة البيانات aftfm 6 321 06-04-16, 08:38 PM
آخر رد: aftfm
  نسخ جدول من قاعدة الي اخري atefkhalf2004 8 472 27-02-16, 10:25 PM
آخر رد: atefkhalf2004
  كود التالي والسابق بترتيب معين aftfm 0 213 08-02-16, 11:37 AM
آخر رد: aftfm
  تركية جملة sql لإستدعاء قيمة من جدول بقاعدة بيانات access ahmed_elwerfalli 3 376 30-12-15, 03:23 AM
آخر رد: sami2015

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


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