+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ارجو المساعدة في كود (/showthread.php?tid=18038)
ارجو المساعدة في كود - VB.NET - 16-11-16
لدي جدول يوجد فيه ارقام اكثر من سجل كتالي
9665555555555
9665222222222
9685555555555
احتاج كود يجلب لي السجلات داخل تكست ويضيف فاصلة بين كل رقم كتالي
9665555555555,9665222222222,9685555555555
ارجو المساعدة
تحياتي
RE: ارجو المساعدة في كود - silverlight - 16-11-16
PHP كود :
Public Function AggregateStrings(strings As IEnumerable(Of String), separator As String) As String
Return strings.Aggregate("", Function(txt As String, current As String)
If Not String.IsNullOrEmpty(txt) Then
Return String.Format("{0}{1}{2}", txt, separator , current)
End If
Return String.Format("{0}", current)
End Function)
End Function
الإستخدام
PHP كود :
Dim values As List(Of String) = New List(Of String) From {"100", "200", "300"}
Dim result As String = AggregateStrings(values, ","c)
RE: ارجو المساعدة في كود - VB.NET - 16-11-16
اخي الكريم ما فهمت شي من الكود
انا احتاج جلب كافة البيانات من الجدول ووضعها في تكست
قاعدة البيانات اكسس
RE: ارجو المساعدة في كود - السرور - 16-11-16
اخوي، ما عرفنا انت تستخدم الربط بالمعالج ولا بالكود
RE: ارجو المساعدة في كود - VB.NET - 16-11-16
الربط بالكود
RE: ارجو المساعدة في كود - السرور - 16-11-16
هذا مثال
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(x As DataRow) x("col1").ToString).ToArray
TextBox1.Text = String.Join(",", arr)
RE: ارجو المساعدة في كود - silverlight - 16-11-16
يا أخي الفاضل معالج أو غير معالج عليك أن تتعلم كيف تتعامل مع المصفوفات و من السهل جدا قراءة عمود عندك في الداتا ست او في Datatable و تحويله الي مصفوفة ثم تتعامل معه كيفما شئت بدلا من استخدام أوامر الاتا بيز
RE: ارجو المساعدة في كود - أبو عمر - 16-11-16
بما ان تجيد الاتصال بالكود
انشيء داتا تيبل وحمل فيها نتسجة جملة الاستعلام من الجدول بأرقام الجوالات
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
موفق