المشاركات : 304
المواضيع 58
الإنتساب : Sep 2012
السمعة :
9
الشكر: 1722
تم شكره 599 مرات في 61 مشاركات
لدي جدول يوجد فيه ارقام اكثر من سجل كتالي
9665555555555
9665222222222
9685555555555
احتاج كود يجلب لي السجلات داخل تكست ويضيف فاصلة بين كل رقم كتالي
9665555555555,9665222222222,9685555555555
ارجو المساعدة
تحياتي
المشاركات : 304
المواضيع 58
الإنتساب : Sep 2012
السمعة :
9
الشكر: 1722
تم شكره 599 مرات في 61 مشاركات
16-11-16, 02:34 AM
(آخر تعديل لهذه المشاركة : 16-11-16, 02:34 AM {2} بواسطة VB.NET.)
اخي الكريم ما فهمت شي من الكود
انا احتاج جلب كافة البيانات من الجدول ووضعها في تكست
قاعدة البيانات اكسس
المشاركات : 57
المواضيع 0
الإنتساب : Nov 2016
السمعة :
4
الشكر: 0
تم شكره 55 مرات في 31 مشاركات
اخوي، ما عرفنا انت تستخدم الربط بالمعالج ولا بالكود
اخي استفد من الاكواد بتعديلها بما يحقق مطلبك
المشاركات : 1,486
المواضيع 101
الإنتساب : Sep 2012
السمعة :
127
الشكر: 71
تم شكره 6155 مرات في 1035 مشاركات
يا أخي الفاضل معالج أو غير معالج عليك أن تتعلم كيف تتعامل مع المصفوفات و من السهل جدا قراءة عمود عندك في الداتا ست او في Datatable و تحويله الي مصفوفة ثم تتعامل معه كيفما شئت بدلا من استخدام أوامر الاتا بيز
المشاركات : 1,379
المواضيع 83
الإنتساب : Sep 2012
السمعة :
217
الشكر: 10451
تم شكره 17812 مرات في 844 مشاركات
بما ان تجيد الاتصال بالكود
انشيء داتا تيبل وحمل فيها نتسجة جملة الاستعلام من الجدول بأرقام الجوالات
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
موفق
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات