Koneksi VB.NET ke SQL Server 2017

Tulisan ini adalah catatan mengenai koneksi VB.NET ke SQL Server 2017. Koneksi dibuat dalam sebuah kode ketika tombol diklik. Kode yang dibuat masih sederhana, tidak melibatkan adapter macem-macem. Berikut adalah kode programnya : 

Dim conn As SqlConnection = New SqlConnection("Data Source=KOMPI\SQLEXPRESS; Database=dbku; integrated security = true")
Dim command As New SqlCommand()
Dim sqlReader As SqlDataReader
Dim result As String

command = conn.CreateCommand
command.CommandText = "SELECT * FROM Tabel_Login"
conn.Open()
sqlReader = command.ExecuteReader()
Do While sqlReader.Read()
    'menampilkan kolom kedua menggunakan message box
    MessageBox.Show(sqlReader.GetString(1))
Loop

— End of Note —

Leave a Reply

Your email address will not be published.