kawan kawan semua numpang tanya. untuk membuat login page yang terintegrasi dengan database ms sql server itu gimana ya mengkoneksikannya? daftar username dan password ada pada table di database sql server. terima kasih..
kawan kawan semua numpang tanya. untuk membuat login page yang terintegrasi dengan database ms sql server itu gimana ya mengkoneksikannya? daftar username dan password ada pada table di database sql server. terima kasih..
@manweljs_ mungkin @Masdad atau mas @Caton bisa menyempatkan waktu untuk memberikan solusi mengenai masalah ini. silahkan ;)
mas @manweljs_ mungkin juga bisa menyempatkan waktu untuk memberi sarannya hehehe
@faizal mas @manweljs_ mungkin juga bisa menyempatkan waktu untuk memberi sarannya hehehe
teorinya sih saya sedikit paham, namun saya tidak terbiasa dengan SQL, beliau2 yang saya sebutkan diatas dan juga @faizal menurut saya jauh lebih paham dan terbiasa dengan SQL ;)
semoga video ini bisa membantu
How to connect excel to sql server by VBA Code, fix ADODB
Sub subCheckUser() Dim strSQL As String, sSqlSvr As String, sDtBase As String, sSqlUser As String, sSqlPsw As String Dim sUID As String, sPwd As String sSqlSvr = "nama_server" sDtBase = "DB_SISWA" sSqlUser = "admin" sSqlPsw = "admin" sUID = "user01" sPwd = "1234" 'Declare variables' Set objMyConn = CreateObject("ADODB.Connection") Set objMyRecordset = CreateObject("ADODB.Recordset") Set objCmd = CreateObject("ADODB.Command") 'Open Connection' objMyConn.ConnectionString = _ "Provider=SQLOLEDB;Data Source=" & sSqlSvr & ";Initial Catalog=" & sDtBase & ";User ID=" & sSqlUser & ";Password=" & sSqlPsw & ";" objMyConn.Open strSQL = "Select user_id from tbl_m_user where user_id = '" & sUID & "' and password = '" & sPwd & "'" Set objMyRecordset.ActiveConnection = objMyConn objMyRecordset.Open strSQL vIsExist = 0 'Cek data hasil query Do While objMyRecordset.EOF = False 'untuk cek field user_id apakah null atau tidak For Each field In objMyRecordset.Fields If field.Name = "user_id" Then vIsExist = 1 Exit For Else vIsExist = 0 End If Next objMyRecordset.MoveNext Loop If vIsExist = 0 Then MsgBox "user tidak terdaftar atau pwd salah" End If End Sub
semoga bermanfaat