تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو المساعدة في كود
#1
لدي جدول يوجد فيه ارقام اكثر من سجل كتالي

9665555555555
9665222222222
9685555555555


احتاج كود يجلب لي السجلات داخل تكست ويضيف فاصلة بين كل رقم كتالي 

9665555555555,9665222222222,9685555555555


ارجو المساعدة 

تحياتي
الرد }}}}
تم الشكر بواسطة:
#2
PHP كود :
 Public Function AggregateStrings(strings As IEnumerable(Of String), separator As String) As String
        Return strings
.Aggregate("", Function(txt As Stringcurrent As String)
 
                                        If Not String.IsNullOrEmpty(txtThen
                                             
Return String.Format("{0}{1}{2}"txtseparator current)
 
                                        End If
 
                                        Return String.Format("{0}"current)
 
                                    End Function)

 
   End Function 

الإستخدام


PHP كود :
Dim values As List(Of String) = New List(Of StringFrom {"100""200""300"}
 
       Dim result As String AggregateStrings(values","c
الرد }}}}
تم الشكر بواسطة:
#3
اخي الكريم ما فهمت شي من الكود
انا احتاج جلب كافة البيانات من الجدول ووضعها في تكست

قاعدة البيانات اكسس
الرد }}}}
تم الشكر بواسطة:
#4
اخوي، ما عرفنا انت تستخدم الربط بالمعالج ولا بالكود
اخي استفد من الاكواد بتعديلها بما يحقق مطلبك
الرد }}}}
تم الشكر بواسطة:
#5
الربط بالكود
الرد }}}}
تم الشكر بواسطة:
#6
هذا مثال
PHP كود :
Dim da As New SqlDataAdapter("SELECT col1 FROM table1"sqlconnstring)
Dim dt As New DataTable
da
.Fill(dt)
Dim arr dt.Rows.Cast(Of DataRow).Select(Function(As DataRowx("col1").ToString).ToArray

TextBox1
.Text String.Join(","arr
اخي استفد من الاكواد بتعديلها بما يحقق مطلبك
الرد }}}}
تم الشكر بواسطة:
#7
يا أخي الفاضل معالج أو غير معالج عليك أن تتعلم كيف تتعامل مع المصفوفات و من السهل جدا قراءة عمود عندك في الداتا ست او في Datatable و تحويله الي مصفوفة ثم تتعامل معه كيفما شئت بدلا من استخدام أوامر الاتا بيز
الرد }}}}
تم الشكر بواسطة:
#8
بما ان تجيد الاتصال بالكود
انشيء داتا تيبل وحمل فيها نتسجة جملة الاستعلام من الجدول بأرقام الجوالات
dt.Load(cmd.ExecuteReader)
الان نأتي ل Textbox1 اجعل الخاصية ملتي لاين بدل سينجل لاين
ضع جملة for لقراءة البيانات من الداتا تيبل

For i = 0 To dt.Rows.Count - 1

If Not i = dt.Rows.Count - 1 Then
TextBox1.Text = TextBox1.Text & dt.Rows(i)(0) & ","
Else
TextBox1.Text = TextBox1.Text & dt.Rows(i)(0)

End If
Next
وفي حال اردت حفظ محتوى ال التكست بوكس لملف خارجي
Using sw As StreamWriter = New StreamWriter("c:\cellphone.txt")
sw.Write(TextBox1.text)
End Using

موفق
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] السلام عليكم ارجوا المساعدة في التكست بوكس محمد بوقزاحة 2 61 منذ 3 ساعة مضت
آخر رد: محمد بوقزاحة
  ارجو المساعده للانتهاء من مرحله كبيره فى البرنامج نبيل كونكت 1 102 أمس, 05:56 PM
آخر رد: محمود صالح
  يرجى المساعدة طلب كود hikmat 1 64 23-09-17, 07:35 PM
آخر رد: khodor1985
  [VB.NET] لكل خبير ارجو الحل Engmtamous 8 155 21-09-17, 07:52 PM
آخر رد: alsouf
  برجاء المساعدة في سورس كود اله حاسبة scientific calculator khaled12345 3 125 20-09-17, 12:11 AM
آخر رد: ابوثامر الحربي
  [VB.NET] المساعدة - في اظهار تقرير بناء على سطور يتم تحديدها امل عوض 6 97 19-09-17, 01:49 PM
آخر رد: أبو نوره
  [VB.NET] الرجاء المساعدة cheurfa 1 80 13-09-17, 05:41 PM
آخر رد: Rabeea Qbaha
  المساعدة في عمل برنامج حساب مجموع عدد حدود من السلسلة بإدخالها عن طريق لوحة المفاتيح Amjad 0 47 08-09-17, 04:02 PM
آخر رد: Amjad
  [VB.NET] المساعدة في بعض الاشياء البسيط في مشروعي هذا 0theghost0 4 174 06-09-17, 09:34 AM
آخر رد: 0theghost0
  [سؤال] الى الاساتذة الكرام ارجو المساعدة(تعديل كود) gharib 5 164 06-09-17, 08:32 AM
آخر رد: gharib

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


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