[VB.NET]

لدي جدول يوجد فيه ارقام اكثر من سجل كتالي

9665555555555
9665222222222
9685555555555


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

9665555555555,9665222222222,9685555555555


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

تحياتي

[silverlight]

PHP كود :

 Public Function AggregateStrings(strings As IEnumerable(Of String), separator As String) As String
        Return strings.Aggregate("", Function(txt As String, current As String)
                                         If Not String.IsNullOrEmpty(txt) Then
                                             Return String.Format("{0}{1}{2}", txt, separator , current)
                                         End If
                                         Return String.Format("{0}", current)
                                     End Function)

    End Function 


الإستخدام

PHP كود :

Dim values As List(Of String) = New List(Of String) From {"100", "200", "300"}
        Dim result As String = AggregateStrings(values, ","c) 


[VB.NET]

اخي الكريم ما فهمت شي من الكود
انا احتاج جلب كافة البيانات من الجدول ووضعها في تكست

---

قاعدة البيانات اكسس

[السرور]

اخوي، ما عرفنا انت تستخدم الربط بالمعالج ولا بالكود

[VB.NET]

الربط بالكود

[السرور]

هذا مثال

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(x As DataRow) x("col1").ToString).ToArray

TextBox1.Text = String.Join(",", arr) 


[silverlight]

يا أخي الفاضل معالج أو غير معالج عليك أن تتعلم كيف تتعامل مع المصفوفات و من السهل جدا قراءة عمود عندك في الداتا ست او في Datatable و تحويله الي مصفوفة ثم تتعامل معه كيفما شئت بدلا من استخدام أوامر الاتا بيز

[أبو عمر]

بما ان تجيد الاتصال بالكود
انشيء داتا تيبل وحمل فيها نتسجة جملة الاستعلام من الجدول بأرقام الجوالات
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

موفق