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

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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استعلام يرجع اسماء الاعمدة و نوع البيانات في جدول معين بسام محمدغانم 0 964 23-10-21, 01:43 AM
آخر رد: بسام محمدغانم
  [سؤال] نقل البيانات من جدول إلى أخر SQL Server 2008 semsemalex 7 14,784 19-04-20, 12:00 AM
آخر رد: essamprog2020
  كود حذف صورة من جدول اكسس samira20 1 1,788 05-07-19, 07:50 PM
آخر رد: elgokr
Information [سؤال] انشاء قاعدة بيانات access واضافة جدول وحقول بكود vb.net fefooo29 4 7,943 10-06-19, 09:31 PM
آخر رد: sherf
  استدعاء بيانات من اكثر من جدول المتألق9 1 2,430 04-06-19, 10:29 PM
آخر رد: احمد نعمة السلامي
Photo سؤال بخصوص ميزان مراجعه faysal13_13@hotmail.com 5 2,369 12-05-19, 05:00 PM
آخر رد: elgokr
  عرض اسم عميلين في جدول العملاء بشرط ارقامهم بجدول اخر يونس علي 1 1,601 26-04-19, 03:16 AM
آخر رد: محمد كريّم
  كود تصفير عمود في جدول اكسس samira20 1 2,481 31-03-19, 09:02 PM
آخر رد: بدري
  كود حذف سجل من جدول مرتبط مع جدول آخر samira20 3 3,009 28-03-19, 01:45 PM
آخر رد: Amir_Alzubidy
  ازاى بعد اما اعمل سكان بالباركود ويتسجل فى تكست بوكس معين يتنقل اوتوماتيك لتكست اخر araxis 2 2,528 25-03-19, 04:07 AM
آخر رد: wessam.demerdash

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


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