Koneksi Visual Basic 2008 dengan SQL Server 2008R2

Question

Dear Master,

Mohon bimbingannya cara paling efektif untuk membuat koneksi Visual Basic 2008 ke database SQL Server 2008R2, dengan membuat Modul, agar bisa di panggil ke form-form.

atas perhatian dan kerjasamanya saya ucapkan banyak terimakasih

Answer 1

Hi Koben,

versi basis data apa yang kamu gunakan jika menggunakan Express local DB maka bisa menggunakan

Tutorial berikut https://msdn.microsoft.com/en-us/library/jj943772(v=vs.110).aspx

Jika kamu sudah paham menggunakan SQL Server dan mengenai connection string kamu bisa mengikuti tutorial ADO.NET berikut https://msdn.microsoft.com/en-us/library/e80y5yhx(v=vs.110).aspx

---

Agile and ALM blog at http://ridilabs.net :)

Answer 2

Hai Benjamin apa kabar.

Coba gunakan kode berikut ini.

Imports System.Data
Imports System.Data.SqlClient
Imports System.Collections
Imports System.Collections.Generic
Module Connect2DB
    Public Function Connect(ByVal dataBaseName As String, ByVal alamatServer As String, _
                            Optional ByVal userName As String = "Administrator", _
                            Optional ByVal passwordDatabase As String = "123456") As List(Of DataRow)
        Dim dataContainer As List(Of DataRow) = New List(Of DataRow)

        Dim conString As String = "Driver={SQL Server Native Client 10.0};Server=" & alamatServer & ";" & _
                                  "Database=" & dataBaseName & ";Uid=" & _
                                  userName & ";Pwd=" & passwordDatabase & ";"
        Dim dbQuery As String = "SELECT * FROM Table1"

        Dim con As New SqlConnection(conString)
        Dim cmd As New SqlCommand(dbQuery, con)
        con.Open()

        Dim dataReader As SqlDataReader
        dataReader = cmd.ExecuteReader()

        For Each DataRow As DataRow In dataReader
            dataContainer.Add(DataRow)
        Next

        dataReader.Close()
        con.Close()

        dataReader = Nothing
        cmd = Nothing
        con = Nothing

        Return dataContainer
    End Function
End Module

Semoga bermanfaat bagi anda.

Catatan tambahan : Pada kode di atas saya mengasumsikan anda menggunakan SQL Server Native Client 10.0 ODBC Driver. Jika anda menggukan driver yang lain, maka connection string berbeda.

Referensi connections string : https://www.connectionstrings.com/sql-server-2008/