[مبرمج VB]

السلام عليكم

لدي سجلات في قاعدة البيانات ولدي عدد 1 تكست بوكس    
اريد جلب كافة السجلات وهي عبارة عن ارقام تلفونات 
ووصعها في التكست بوكس مثال 

 اول سجل :    9665511111111
ثاني سجل :   9665500000000

اريد احظار كل الارقام في التكست بوكس بهذا الشكل

9665511111111,966550000000

يعني يضهر كل السجلات في التكست بوكس وما بين كل سجل فاصل  ,

ارفقت مثال ليتم التعديل عليه
  data.rar (الحجم : 21.57 ك ب / التحميلات : 63)
  data.rar (الحجم : 21.57 ك ب / التحميلات : 63)

[WAEL ABED]

PHP كود :

Private Sub Command1_Click()
If RS.State = 1 Then RS.Close
RS.Open "select * from Ph_Number", DB, adOpenStatic, adLockPessimistic
Do While Not RS.EOF
Text1.Text = Text1.Text & RS!Number & ","
RS.MoveNext
Loop

End Sub 


[السيد الغالي]

السلام عليكم
في المرفق تجد ما طلبته
تحياتي لك