+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [مثال] ارجو المساعده (/showthread.php?tid=10914)
ارجو المساعده - مبرمج VB - 14-12-14
السلام عليكم
لدي سجلات في قاعدة البيانات ولدي عدد 1 تكست بوكس
اريد جلب كافة السجلات وهي عبارة عن ارقام تلفونات
ووصعها في التكست بوكس مثال
اول سجل : 9665511111111
ثاني سجل : 9665500000000
اريد احظار كل الارقام في التكست بوكس بهذا الشكل
9665511111111,966550000000
يعني يضهر كل السجلات في التكست بوكس وما بين كل سجل فاصل ,
ارفقت مثال ليتم التعديل عليه[attachment=6232][attachment=6232]
RE: ارجو المساعده - WAEL ABED - 14-12-14
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
RE: ارجو المساعده - السيد الغالي - 15-12-14
السلام عليكم
في المرفق تجد ما طلبته
تحياتي لك