[kslawy]

كود ملء المصفوفة :

كود :

Dim PCs() As String = Nothing
    Private Sub FillList()
        Dim da As New OleDbDataAdapter("Select PCaddrs from PCs", Con)
        Dim dset As New DataSet
        dset.Clear()
        OpenDB(Con)
        da.Fill(dset, "PCs")
        CloseDB(Con)
        Dim PCount As Integer
        If dset.Tables("PCs").Rows.Count > 0 Then
            PCount = dset.Tables("PCs").Rows.Count
            ReDim PCs(PCount - 1) ' هنا تم تحجيم المصفوفة لتأخذ عدد العناوين الموجودة بقاعدة البيانات
            For i As Integer = 0 To PCount - 1
                Dim s As DataRow = dset.Tables("PCs").Rows(i)
                PCs(i) = s.Item(0).ToString
            Next
        End If
    End Sub

*****
****
***
**
*