[aftfm]

هذا كود جلب البيانات من قاعدة البيانات الى المتغير

كود :

Using MYDataAdapter As New OleDbDataAdapter("SELECT DISTINCT Tar FROM DB_Info ", Con)
            Call MYDataAdapter.Fill(DataSet2, "TarTable")

            For Each MYRow As DataRow In DataSet2.Tables("TarTable").Rows
                Dim a As String = MYRow.Item("Tar")
                If String.IsNullOrEmpty(a) = Nothing Then
                    ListTar = a.ToArray
                    MsgBox(ListTar )
                End If
            Next
        End Using