Vısual Basıc VB.NET ile ADO Bağlantısı Kurma Rehberi

[Forum Altay]

ADO.NET kullanarak VB.NET'te veritabanı bağlantısı kurmak için aşağıdaki adımları izleyebilirsiniz. Bu örnekte SQL Server bağlantısı gösterilecektir.

Temel ADO.NET Bağlantısı​

Imports System.Data.SqlClient

Public Sub ConnectToDatabase()
    Dim connectionString As String = "Server=serverAdı;Database=veritabanıAdı;User Id=kullanıcıAdı;Password=şifre;"
    Dim connection As New SqlConnection(connectionString)
    
    Try
        connection.Open()
        MessageBox.Show("Bağlantı başarılı!")
        
        ' Burada sorgularınızı çalıştırabilirsiniz
        
    Catch ex As SqlException
        MessageBox.Show("Bağlantı hatası: " & ex.Message)
    Finally
        If connection.State = ConnectionState.Open Then
            connection.Close()
        End If
    End Try
End Sub

Bağlantı Dizesi Örnekleri​

SQL Server Authentication​

"Server=myServerAddress;Database=myDataBase;User Id=myUsername;Password=myPassword;"

Windows Authentication​

"Server=myServerAddress;Database=myDataBase;Trusted_Connection=True;"

Diğer Veritabanları için Bağlantı Dizeleri​

MySQL:

"Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;"

Access:

"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccessFile.accdb;Persist Security Info=False;"

Sorgu Çalıştırma Örneği​

Public Sub GetData()
    Dim connectionString As String = "Server=serverAdı;Database=veritabanıAdı;User Id=kullanıcıAdı;Password=şifre;"
    
    Using connection As New SqlConnection(connectionString)
        Dim query As String = "SELECT * FROM Musteriler"
        Dim command As New SqlCommand(query, connection)
        
        Try
            connection.Open()
            Dim reader As SqlDataReader = command.ExecuteReader()
            
            While reader.Read()
                Console.WriteLine(reader("MusteriAdi").ToString())
            End While
            
            reader.Close()
        Catch ex As Exception
            MessageBox.Show("Hata: " & ex.Message)
        End Try
    End Using ' Using bloğu bağlantının otomatik kapatılmasını sağlar
End Sub

Parametreli Sorgu Örneği​

Public Sub InsertData(adi As String, soyadi As String)
    Dim connectionString As String = "Server=serverAdı;Database=veritabanıAdı;User Id=kullanıcıAdı;Password=şifre;"
    
    Using connection As New SqlConnection(connectionString)
        Dim query As String = "INSERT INTO Musteriler (Adi, Soyadi) VALUES (@Adi, @Soyadi)"
        Dim command As New SqlCommand(query, connection)
        
        command.Parameters.AddWithValue("@Adi", adi)
        command.Parameters.AddWithValue("@Soyadi", soyadi)
        
        Try
            connection.Open()
            Dim affectedRows As Integer = command.ExecuteNonQuery()
            MessageBox.Show(affectedRows & " satır eklendi.")
        Catch ex As Exception
            MessageBox.Show("Hata: " & ex.Message)
        End Try
    End Using
End Sub

Bu örnekler, VB.NET'te ADO.NET kullanarak veritabanı işlemlerini nasıl gerçekleştirebileceğinizi göstermektedir. Güvenlik için bağlantı dizelerini doğrudan kod içinde değil, yapılandırma dosyalarında saklamanız önerilir.