ورود

View Full Version : سوال: خواندن رکوردها از دیتابیس و جدا کردن آنها با <br/>



zibaaa
شنبه 28 بهمن 1391, 12:38 عصر
سلام دوستان

کسی اطلاع داره که چطوری میشه رکوردهای یک جدول رو ازدیتابیس خوند با دستور do while و اونها رو با Enter یا <br/> از هم جدا کرد و توی یک textbox نمایش داد؟من کد خودم رو اینجا قرار میدم:

Dim strcon As String = ConfigurationManager.ConnectionStrings("strcon").ConnectionString.ToString
Dim conn As New OleDbConnection(strcon)
Dim strsql As String = "select * from tbmob order by id desc "
Dim comm As New OleDbCommand(strsql, conn)
conn.Open()
Dim dr As OleDbDataReader = comm.ExecuteReader()
Do While dr.Read
txtsms.Text += dr("mob") & "<br/>" 'مشکل من اینجاست
Loop
dr.Close()
conn.Close()

میخوام نتیجه اش به این صورت باشه که توی یک textbox چند سطری، شماره موبایل ها خونده بشن و هر کدوم با یک Enter یا br از هم جدا بشن.

tolid123456789
یک شنبه 13 اسفند 1391, 14:01 عصر
سلام دوست عزيز
به جاي خط شماره 8 كدتون كد زير رو جايگزين كنيد

txtsms.Text = txtsms.Text.Trim & ControlChars.CrLf & dr.Item(0).ToString.Trim

البته در كد بالا بنده به جاي فراخواني mob از ايندكس استفاده كردم
شما در جدولتون بايد نگاه كنيد ببينيد موايل ايندكس چند داره در كدي كه نوشتم فرض شده كه ستون موبايل ايندكس صفر داره

موفق باشيد
اگر سئوالي بود در خدمتم