تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Smile [سؤال] مميزات الـ SQL Server واي اصدار استخدم رجاء المساعدة Mahmoud Nasser 1 21 منذ 5 ساعة مضت
آخر رد: elgokr
Exclamation [كود] المساعدة - حول فكرة الاصدارات YousefOkasha 7 164 23-05-18, 03:00 AM
آخر رد: elgokr
  ارجو المساعدة فى حل بعض الاخطاء atef_020 15 261 11-05-18, 11:19 AM
آخر رد: atef_020
  [VB.NET] أرجو المساعدة khaaleed2006 2 57 10-05-18, 06:02 PM
آخر رد: khaaleed2006
  [سؤال] ارجو الرد للاهمية احمد خطاب خطاب 2 134 09-05-18, 06:40 PM
آخر رد: احمد خطاب خطاب
  المساعدة - حول نقل البيانات بين جدولين blida02 6 172 05-05-18, 09:01 AM
آخر رد: blida02
Exclamation [سؤال] ارجو الحل السريع Abdalrhman 1 67 29-04-18, 09:02 AM
آخر رد: سعود
  [VB.NET] شباب انا جديد هنا احتاج المساعدة في الفيجوال ادرس في المانيا informatikkaufmann ٍSaeid 2 110 27-04-18, 04:50 AM
آخر رد: عبدالله الدوسري
  ارجو المساعده فى تعديل كود SELECT نبيل فتحى 4 176 20-04-18, 07:22 PM
آخر رد: محمد كريّم
Smile [كود] مطلوب كود قصير لكن مهم ارجو ان تفيدونى elmezo 5 469 20-04-18, 12:30 PM
آخر رد: elmezo

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


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