تقييم الموضوع :
  • 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] برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) الماجيك مسعد 9 87 منذ 7 ساعة مضت
آخر رد: سعود
  مشروع صغير لبيانات الموظفين ارجو التعديل علية a.baomar 5 169 23-05-17, 04:58 AM
آخر رد: a.baomar
  برجاء المساعدة فى اصلاح هذا المشروع mohamed haroon 0 70 21-05-17, 01:18 AM
آخر رد: mohamed haroon
  ارجو المساعدة لو تكرمتم rabeh.ram 4 89 20-05-17, 02:48 AM
آخر رد: rabeh.ram
  مشكلة في كود البحث فرجاء المساعدة khaled12345 5 94 19-05-17, 03:50 PM
آخر رد: khaled12345
  [VB.NET] ارجو المساعدة بخصوص Chart vb.net2017 0theghost0 2 58 17-05-17, 05:14 PM
آخر رد: 0theghost0
  ارجو المساعدة حفظكم الله rabeh.ram 2 94 16-05-17, 10:16 PM
آخر رد: rabeh.ram
  ارجو المساعدة في تصحيح الخطا rabeh.ram 5 95 13-05-17, 01:11 AM
آخر رد: rabeh.ram
  [VB.NET] ارجو المساعدة في زر موقع من متصفح كروم webkit A-R 3 74 03-05-17, 06:41 PM
آخر رد: A-R
  [VB.NET] أرجو المساعدة في تصحيح الاكواد محمود البكري 2 77 01-05-17, 04:45 PM
آخر رد: محمود البكري

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


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