منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ارجو المساعدة في كود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
لدي جدول يوجد فيه ارقام اكثر من سجل كتالي

9665555555555
9665222222222
9685555555555


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

9665555555555,9665222222222,9685555555555


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

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

قاعدة البيانات اكسس
اخوي، ما عرفنا انت تستخدم الربط بالمعالج ولا بالكود
الربط بالكود
هذا مثال
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
يا أخي الفاضل معالج أو غير معالج عليك أن تتعلم كيف تتعامل مع المصفوفات و من السهل جدا قراءة عمود عندك في الداتا ست او في 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

موفق