koneksi vb – sql server

koneksi vb 6 ke database sql server dibawah ini dengan membuat file setting.ini untuk menyimpan

nama user, password dan server

langkah-langkah sebagai berikut : 

buat sebuah project baru

buat sebuah modul lalu masukan kode dibawah ini

————————————————-

Public strServer  As String, strUser As String, strPwd As String, strCatalog As String

Public cn As ADODB.Connection

Public Declare Function GetPrivateProfileString Lib “kernel32″ _

Alias “GetPrivateProfileStringA” (ByVal lpApplicationName As String, _

ByVal lpKeyname As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, _

ByVal nSize As Long, ByVal lpFileName As String) As Long

 

Public Declare Function WritePrivateProfileString Lib “kernel32″ Alias “WritePrivateProfileStringA” _

(ByVal lpApplicationName As String, ByVal lpKeyname As Any, ByVal lpString As Any, ByVal lpFileName As String) _

As Long

Sub Main()

    Dim StrCn As String

    Dim strFileIni As String

    LogOut = False

    strFileIni = App.Path & “\settings.ini”

    CekFile (strFileIni)

 

    strServer = ReadIni(“database”, “server”, strFileIni)

    strUser = ReadIni(“database”, “User”, strFileIni)

    strPwd = ReadIni(“database”, “Pwd”, strFileIni)

    strCatalog = ReadIni(“database”, “Catalog”, strFileIni)

 

    StrCn = “Provider=SQLOLEDB.1;Persist Security Info=False;User ID=” & strUser & “;pwd=” & strPwd & “;Initial Catalog=” & strCatalog & “;Data Source=” & strServer & “”

    Set cn = New ADODB.Connection

    cn.Open StrCn

    cn.CursorLocation = adUseClient

 

    frmLogin.Show

End Sub

 

Sub CekFile(LokasiFile As String)

    Dim fso As New Scripting.FileSystemObject

    Dim Kode As String, servers As String, username As String, userpwd As String

 

    Set Folder = fso.GetFolder(App.Path)

    If fso.FileExists(LokasiFile) = False Then

        Kode = InputBox(“Masukin Nama Database :”, “Setting Database”)

        servers = InputBox(“Masukin server :”, “Setting Database”)

        username = InputBox(“Masukin user :”, “Setting login database”)

        userpwd = InputBox(“Masukin password user :”, “Setting login database”)

        Open App.Path & “\settings.ini” For Output As #1

            Print #1, “[Database]“

            Print #1, “Server=” & servers

            Print #1, “User=” & username

            Print #1, “Pwd=” & userpwd

            Print #1, “Catalog=” & Kode

        Close #1

    End If

End Sub

 

Function ReadIni(strSection As String, strVarName As String, strFile As String) As String

    Dim strRet As String

    strRet = String$(100, Chr(0))

    ReadIni = Left$(strRet, GetPrivateProfileString(strSection, ByVal strVarName, vbNullString, strRet, Len(strRet), strFile))

End Function

————————————————-

jadikan prosedure Main() sebagai Starup Object 

caranya dari Menu Vb pilih Project – [nama project] properties – startup object – pilih Sub Main – Ok 

setelah itu tentukan form apa yang akan muncul jika koneksi ke database berhasil

pada script di atas form yg akan muncul setelah koneksi berhasil adalah frmLogin 

silahkan ubah sesuai dengan yg kamu butuh kan ok !

dah ah segitu aja moga2 berguna