Müasir Korporativ Mühitdə Visual Basic: İnkişaf və Tətbiq Strategiyaları

1234567891011
+-------------------------+-----------------------------------+-----------------------------------+
| Xüsusiyyət              | VB.NET                            | VBA                               |
+-------------------------+-----------------------------------+-----------------------------------+
| Platforma               | .NET Core / .NET Framework        | COM (Component Object Model)      |
| OOP Dəstəyi             | Tam (İnterfeyslər, Varislik və s.)| Məhdud (Yalnız Class modulları)   |
| İcra Mühiti             | CLR (Common Language Runtime)     | Office Host Application           |
| Multithreading          | Var                               | Yoxdur (Single-threaded)          |
| Təhlükəsizlik           | Çox yüksək (Code Access Security) | Orta (Makro təhlükəsizliyinə bağlı)|
| Əsas İstifadə Sahəsi    | Müstəqil korporativ proqramlar    | Ofis tapşırıqlarının avtomatı     |
+-------------------------+-----------------------------------+-----------------------------------+

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566
' Option-ların aktiv edilməsi (Mütləqdir)
Option Explicit On
Option Strict On

Imports System.Data.SqlClient

Public Class CustomerService
    ' Verilənlər bazası qoşulma sətri (Connection String)
    Private ReadOnly _connectionString As String

    ' Konstruktor vasitəsilə asılılığın daxil edilməsi (Dependency Injection)
    Public Sub New(connectionString As String)
        If String.IsNullOrWhiteSpace(connectionString) Then
            Throw New ArgumentException("Qoşulma sətri boş ola bilməz.", NameOf(connectionString))
        End If
        Me._connectionString = connectionString
    End Sub

    ''' 
    ''' Müştəri məlumatını ID-yə görə təhlükəsiz şəkildə gətirir.
    ''' 
    ''' Müştərinin unikal ID-si
    ''' Müştərinin adı və soyadı
    Public Function GetCustomerFullName(customerId As Integer) As String
        Dim fullName As String = String.Empty
        
        ' SQL Injection-ın qarşısını almaq üçün parametrləşdirilmiş sorğu istifadə olunur
        Dim query As String = "SELECT FirstName, LastName FROM Customers WHERE CustomerID = @CustomerID"

        ' "Using" bloku resursların (connection və command) avtomatik olaraq bağlanmasını təmin edir
        Using connection As New SqlConnection(Me._connectionString)
            Using command As New SqlCommand(query, connection)
                
                ' Parametrin təhlükəsiz şəkildə əlavə edilməsi
                command.Parameters.Add("@CustomerID", SqlDbType.Int).Value = customerId

                Try
                    ' Bağlantının açılması
                    connection.Open()

                    ' Məlumatın oxunması
                    Using reader As SqlDataReader = command.ExecuteReader()
                        If reader.Read() Then
                            Dim firstName As String = reader.GetString(0)
                            Dim lastName As String = reader.GetString(1)
                            fullName = $"{firstName} {lastName}"
                        End If
                    End Using

                Catch ex As SqlException
                    ' Xətanın sistem jurnalına (Log) yazılması və təhlükəsiz şəkildə idarə olunması
                    ' Real layihələrdə burada loglama kitabxanalarından istifadə olunmalıdır (məs. NLog, Serilog)
                    Console.WriteLine($"Verilənlər bazası xətası baş verdi: {ex.Message}")
                    Throw New ApplicationException("Məlumatı əldə edərkən xəta baş verdi. Sistem inzibatçısı ilə əlaqə saxlayın.", ex)
                Catch ex As Exception
                    ' Gözlənilməyən digər xətaların tutulması
                    Console.WriteLine($"Gözlənilməyən xəta: {ex.Message}")
                    Throw
                End Try
            End Using
        End Using

        Return fullName
    End Function
End Class

12345678910111213141516171819202122232425262728293031323334353637383940414243444546
Public Sub OptimizeAndProcessData()
    ' Performans optimallaşdırılması üçün dəyişənlərin elan edilməsi
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' Sürətləndirmə sazlamaları
    With Application
        .ScreenUpdating = False ' Ekranın yenilənməsini dayandırır
        .Calculation = xlCalculationManual ' Avtomatik hesablamanı söndürür
        .EnableEvents = False ' Hadisə tetikleyicilerini (events) söndürür
    End With
    
    On Error GoTo ErrorHandler ' Xəta baş verərsə idarəetməni ötürür
    
    ' Aktiv vərəqin təyin edilməsi
    Set ws = ActiveSheet
    
    ' Sonuncu dolu sətrin tapılması (Performans üçün vacibdir)
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' Məlumatların emal edilməsi (Dövr daxilində)
    For i = 2 To lastRow
        ' Əgər A sütunundakı dəyər boş deyilsə, B sütununa hesablama apar
        If Not IsEmpty(ws.Cells(i, 1).Value) Then
            ' Nümunə emal: Mətni böyük hərflərə çevirmək
            ws.Cells(i, 2).Value = UCase(ws.Cells(i, 1).Value)
        End If
    Next i
    
    MsgBox "Əməliyyat uğurla tamamlandı!", vbInformation, "Sistem"

CleanUp:
    ' Sazlamaların əvvəlki vəziyyətinə qaytarılması (Mütləqdir!)
    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
    End With
    Exit Sub

ErrorHandler:
    MsgBox "Xəta baş verdi: " & Err.Description, vbCritical, "Xəta"
    Resume CleanUp
End Sub