[Lathe1]

السلام عليكم عندى حقل داخل قاعدة بيانات سيكول سيرفر يحتوى على عدة ارقام وهى كالاتى1702, 145, 202, 195, 195, 195, 1000, 1802, 1400, 326, 1204, 310, 802, 1407
 
موجود فى المرفقات الكود اريد استبدال المصفوفة الثابتة وهى {1702, 145, 202, 195, 195, 195, 1000, 1802, 1400, 326, 1204, 310, 802, 1407}
 الى مصفوفة تقرا من قاعدة البيانات وتضع نفس الارقام بنفس الشكل ولكن من قاعدة البانات

[عبدالله الدوسري]

وعليكم السلام ورحمة الله وبركاته

PHP كود :

   'Dim ValueFromDatabase As String = "ضع قيمة الحقل من قاعدة البيانات هنا"
    Dim ValueFromDatabase As String = "1702, 145, 202, 195, 195, 195, 1000, 1802, 1400, 326, 1204, 310, 802, 1407"

    Dim DesiredLengths As List(Of Single) = ValueFromDatabase.Split(","c).[Select](AddressOf Single.Parse).ToList() 


[Lathe1]

هل الموضوع مش واضح للنقاش اتمنى الافادة

[عبدالله الدوسري]

(29-05-23, 09:08 AM)Lathe1 كتب : هل الموضوع مش واضح للنقاش اتمنى الافادة

اخي ليث 

أنت وضعت جميع الأسئلة في مشاركة واحدة، والغريب في الموضوع انك قمت بتصوير ورقة الأسئلة ووضعتها كما هي وهذة أول مرة أرى فيها شخص يقوم بهذا الأمر ؟؟!!!!!!

قم بتجزئة الأسئلة، ضع كل سؤال في مشاركة مستقلة ، اكتب السؤال كتابة ولا تضع صورة حتى نستطيع أن نقراء السؤال

اكتب السؤال بشكل واضح ، مصحوباً بالأكواد التي تستخدمها والطرق التي جربتها، 
أكتب اسم قاعدة البيانات ونوعها
اكتب اسماء الحقول

ضع الكود الذي تحاول تنفيذة
اكتب الفكرة التي تريد تنفيذها بشكل واضح




لا تتوقع من احد أن يقوم بالنظر إلى الصورة ، ويحلل ، ويستنتج ، ويفكر ، ويسأل نفسة هل يقصد كذا أم يقصد كذا، 
ثم يفتح ملف الكود المرفق ويبداء بتحليل الأمور حتى يفهم الكود ولماذا كتب بهذا الشكل وما الناتج من هذا الكود 
ويكتب اسماء الحقول ، وينشيء قاعدة بيانات وهمية ليجرب ، ثم يستخلص النتيجة الصحيحة ، ثم يضع لك الكود هنا.


((((    هذااااااااااااااااا لـــــــــــــــــــــــن يــــــــــــــــــحـــــــــــــــــدث    ))))



اهم نقطة لا تضع كل أسئلتك في مشاركة واحدة.


بالتوفيق...

[fouadhdfouad]

كود :

Imports System.Data.SqlClient

Module Module1
   Sub Main()
       Dim connectionString As String = "Data Source=اسم_الخادم;Initial Catalog=اسم_قاعدة_البيانات;User ID=اسم_المستخدم;Password=كلمة_المرور"
       Dim query As String = "SELECT * FROM اسم_الجدول"
       
       ' قم بإنشاء اتصال بقاعدة البيانات
       Using connection As New SqlConnection(connectionString)
           ' قم بفتح الاتصال
           connection.Open()

           ' قم بإنشاء كائن Command وتعيين الاستعلام والاتصال
           Using command As New SqlCommand(query, connection)
               ' قم بتنفيذ الاستعلام واسترداد البيانات في كائن SqlDataReader
               Using reader As SqlDataReader = command.ExecuteReader()
                   ' تحقق من وجود بيانات
                   If reader.HasRows Then
                       ' قم بإنشاء مصفوفة لتخزين البيانات
                       Dim dataArray As New List(Of String())

                       ' قم بقراءة البيانات وإضافتها إلى المصفوفة
                       While reader.Read()
                           ' قم بقراءة القيم من العمود وإضافتها إلى مصفوفة فرعية
                           Dim rowArray As String() = New String(reader.FieldCount - 1) {}
                           For i As Integer = 0 To reader.FieldCount - 1
                               rowArray(i) = reader.GetValue(i).ToString()
                           Next

                           ' أضف مصفوفة الصف الفرعية إلى المصفوفة الرئيسية
                           dataArray.Add(rowArray)
                       End While

                       ' قم بطباعة المصفوفة
                       For Each row As String() In dataArray
                           For Each value As String In row
                               Console.Write(value & " ")
                           Next
                           Console.WriteLine()
                       Next
                   Else
                       Console.WriteLine("لا توجد بيانات.")
                   End If
               End Using
           End Using
       End Using
   End Sub
End Module