Cara Koneksi Database SQL server Di vb.net

Hamba_Allah November 08, 2019

Membuat database Microsoft SQL Server


Berikut langkah – langkah cara membuat database di SQL server
  • Buka SQL Server 2014 Management Studio
  • Setelah kita buka SQL Server 2014 Management Studio, kita akan di suruh menentukan  server type, server name,Authentication. untuk lebih detail lihat gambar berikut:Untuk tutorial di aritkel ini kita atur secara default . kemudian klik tombol Connect
  • Di bagian Object Explorer pilih Database kemudian klik kanan lalu pilih New Database
  • Buat database dengan nama dbvbnet kemudian  klik tombol OK.
  • Jika berhasil maka akan terdaftar di Object Explorer di bagain Database

Cara koneksi database SQL Server di VB.Net

Membuat project dekstop di VB.net

  • Buka Visual Studio
  • Buat project dekstop baru (Window Forms App) dengan nama koneksidbSQLserver
  • Di Form1 tambahkan toolbox Button

Source code koneksi database SQL Server di VB.net

  • Imports data Imports System.Data.Sql dan Imports System.Data.SqlClient di atas Public Class Form1
    Imports System.Data.Sql
    Imports System.Data.SqlClient
    Public Class Form1

    End Class
  • Klik Button1 kemudian di bagian events Click isikan kode berikut:
    Dim conn As New SqlConnection
    Dim str, namaServer, database As String
    namaServer = "FAUZI-PC"
    database = "dbvbnet"
    str = "data source=" & namaServer & ";initial catalog=" & database & ";integrated security =true"
    conn = New SqlConnection(Str)
        Try
          If conn.State = ConnectionState.Closed Then
             conn.Open()
             MsgBox("Database berhasil terkoneksi")
          End If
       Catch ex As Exception
           MsgBox("Data base gagal koneksi karena " & ex.Message)
       End Try
    untuk namaServer sesuaikan dengan nama server yang ada di laptop/pc anda. Karena secara default Microsoft SQL Server nama server akan mengambil dari nama laptop/pc.
  • Untuk melihat hasilnya silahkan tekan tombol F5 untuk menjalankan porgramnya.
Berikut adalah souce code langkap yang ada di Public Class Form1
Imports System.Data.Sql
Imports System.Data.SqlClient
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim conn As New SqlConnection
        Dim str, namaServer, database As String
        namaServer = "FAUZI-PC"
        database = "dbvbnet"
        str = "data source=" & namaServer & ";initial catalog=" & database & ";integrated security =true"
        conn = New SqlConnection(Str)
        Try
            If conn.State = ConnectionState.Closed Then
                conn.Open()
                MsgBox("Database berhasil terkoneksi")
            End If
        Catch ex As Exception
            MsgBox("Data base gagal koneksi karena " & ex.Message)
        End Try
    End Sub
End Class

       

Sumber
https://www.google.com/amp/ilmukita.org/cara-membuat-koneksi-database-sql-server-di-vb-net/amp/
https://github.com/exercism/meta/issues/79

0 Komentar