Provider=SQLOLEDB;Server=YourServerName;Database=YourDatabaseName;UID=YourUsername;PWD=YourPassword;

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Path\To\Your\Database.accdb;Persist Security Info=False;

Driver={ODBC Driver 17 for SQL Server};Server=YourServerName;Database=YourDatabaseName;UID=YourUsername;PWD=YourPassword;

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection

On Error GoTo ErrorHandler

conn.Open "Provider=SQLOLEDB;Server=localhost;Database=TestDB;UID=sa;PWD=YourPassword;"
MsgBox "Veritabanı bağlantısı başarıyla kuruldu!"

Exit Sub

ErrorHandler:
MsgBox "Bağlantı hatası: " & Err.Description

End Sub

Sub CloseConnection()
    If Not conn Is Nothing Then
        If conn.State = adStateOpen Then
            conn.Close
            MsgBox "Bağlantı kapatıldı."
        End If
        Set conn = Nothing
    End If
End Sub

Sub InsertData()
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    conn.Open "Provider=SQLOLEDB;Server=localhost;Database=TestDB;UID=sa;PWD=YourPassword;"

    Dim sql As String
    sql = "INSERT INTO Customers (CustomerName, City) VALUES ('Ahmet Yılmaz', 'İstanbul')"

    On Error GoTo ErrorHandler
    conn.Execute sql
    MsgBox "Müşteri başarıyla eklendi."

    conn.Close
    Set conn = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "Veri ekleme hatası: " & Err.Description
    If Not conn Is Nothing Then If conn.State = adStateOpen Then conn.Close
    Set conn = Nothing
End Sub

Sub UpdateData()
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    conn.Open "Provider=SQLOLEDB;Server=localhost;Database=TestDB;UID=sa;PWD=YourPassword;"

    Dim sql As String
    sql = "UPDATE Customers SET City = 'Ankara' WHERE CustomerName = 'Ahmet Yılmaz'"

    On Error GoTo ErrorHandler
    conn.Execute sql
    MsgBox "Müşteri bilgisi başarıyla güncellendi."

    conn.Close
    Set conn = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "Veri güncelleme hatası: " & Err.Description
    If Not conn Is Nothing Then If conn.State = adStateOpen Then conn.Close
    Set conn = Nothing
End Sub

Sub DeleteData()
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    conn.Open "Provider=SQLOLEDB;Server=localhost;Database=TestDB;UID=sa;PWD=YourPassword;"

    Dim sql As String
    sql = "DELETE FROM Customers WHERE CustomerName = 'Ahmet Yılmaz'"

    On Error GoTo ErrorHandler
    conn.Execute sql
    MsgBox "Müşteri başarıyla silindi."

    conn.Close
    Set conn = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "Veri silme hatası: " & Err.Description
    If Not conn Is Nothing Then If conn.State = adStateOpen Then conn.Close
    Set conn = Nothing
End Sub

Sub SelectData()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sql As String

    Set conn = New ADODB.Connection
    conn.Open "Provider=SQLOLEDB;Server=localhost;Database=TestDB;UID=sa;PWD=YourPassword;"

    Set rs = New ADODB.Recordset
    sql = "SELECT CustomerID, CustomerName, City FROM Customers"

    On Error GoTo ErrorHandler

    rs.Open sql, conn, adOpenStatic, adLockOptimistic

    If Not rs.EOF Then 'Kayıt varsa
        rs.MoveFirst
        Do While Not rs.EOF
            Debug.Print "ID: " & rs.Fields("CustomerID").Value & _
                        ", Ad: " & rs.Fields("CustomerName").Value & _
                        ", Şehir: " & rs.Fields("City").Value
            rs.MoveNext
        Loop
    Else
        MsgBox "Hiç kayıt bulunamadı."
    End If

    rs.Close
    Set rs = Nothing

    conn.Close
    Set conn = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "Veri çekme hatası: " & Err.Description
    If Not rs Is Nothing Then If rs.State = adStateOpen Then rs.Close
    Set rs = Nothing
    If Not conn Is Nothing Then If conn.State = adStateOpen Then conn.Close
    Set conn = Nothing
End Sub

Sub InsertDataWithParameters()
    Dim conn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim paramName As ADODB.Parameter
    Dim paramCity As ADODB.Parameter

    Set conn = New ADODB.Connection
    conn.Open "Provider=SQLOLEDB;Server=localhost;Database=TestDB;UID=sa;PWD=YourPassword;"

    Set cmd = New ADODB.Command
    Set cmd.ActiveConnection = conn
    cmd.CommandText = "INSERT INTO Customers (CustomerName, City) VALUES (?, ?)"
    cmd.CommandType = adCmdText ' veya adCmdStoredProc eğer prosedür kullanıyorsanız

    ' Parametreleri oluşturma ve değer atama
    Set paramName = cmd.CreateParameter("CustomerNameParam", adVarChar, adParamInput, 255, "Ayşe Demir")
    Set paramCity = cmd.CreateParameter("CityParam", adVarChar, adParamInput, 255, "İzmir")

    ' Parametreleri komuta ekleme
    cmd.Parameters.Append paramName
    cmd.Parameters.Append paramCity

    On Error GoTo ErrorHandler
    cmd.Execute
    MsgBox "Müşteri (parametreli) başarıyla eklendi."

    conn.Close
    Set conn = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "Parametreli veri ekleme hatası: " & Err.Description
    If Not conn Is Nothing Then If conn.State = adStateOpen Then conn.Close
    Set conn = Nothing
End Sub

Sub TransactionExample()
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection

    On Error GoTo ErrorHandler

    conn.Open "Provider=SQLOLEDB;Server=localhost;Database=TestDB;UID=sa;PWD=YourPassword;"

    conn.BeginTrans ' İşlemi başlat

    ' İlk SQL komutu
    conn.Execute "INSERT INTO Orders (CustomerID, OrderDate) VALUES (1, GETDATE())"

    ' İkinci SQL komutu (Örnek hata durumu için, gerçekte hata olmazsa çalışır)
    ' conn.Execute "INSERT INTO OrderItems (OrderID, ProductID, Quantity) VALUES (SCOPE_IDENTITY(), 101, 2)"
    ' Hata simülasyonu için geçersiz bir tablo adı kullanalım:
    conn.Execute "INSERT INTO InvalidTable (Col1) VALUES ('test')" ' Bu satır hata verecek

    conn.CommitTrans ' İşlemi tamamla (eğer buraya gelirse)
    MsgBox "İşlem başarıyla tamamlandı."

    conn.Close
    Set conn = Nothing
    Exit Sub

ErrorHandler:
    conn.RollbackTrans ' Hata durumunda işlemi geri al
    MsgBox "İşlem hatası oluştu, değişiklikler geri alındı: " & Err.Description
    If Not conn Is Nothing Then If conn.State = adStateOpen Then conn.Close
    Set conn = Nothing
End Sub