Agan agan sekalian...
saya mau tanya nie..
lagi buat proyek Visual basic di form login yang dta loginnya di relasikan smaa database di SQL Server 2000..
ane udah buat tapi eror2 terus y gan..
bingung juga jadinya...
Spoiler for
Form Login:
Scriptnya gan
Spoiler for
Script Login:
Public dbDAO As ADODB.Connection
Dim rec As ADODB.Recordset
Dim SQLStr As String
Dim Hitung As Integer
Dim Ket As String, Fokus As String, Status As String
Dim SuksesUser, SuksesPassword As Boolean
Private Sub cmdCancel_Click()
'set the global var to false
'to denote a failed login
'LoginSucceeded = False
'Me.Hide
End Sub
Private Sub cmdbatal_Click()
Me.Hide
End Sub
Private Sub cmdOK_Click()
Dim UsrID As String, Pasw As String, mnama As String
Dim akses As String, sapa As String
Dim i As Integer, Mulai As Integer, Akhir As Integer
lbljam.Caption = Format(Time, "hh:mm:ss")
'Periksa jam sistem utk keperluan sapaan waktu
If LTrim(Val(lbljam.Caption)) >= 0 And LTrim(Val(lbljam.Caption)) < 11 Then
sapa = "Selamat pagi"
ElseIf LTrim(Val(lbljam.Caption)) >= 11 And LTrim(Val(lbljam.Caption)) < 15 Then
sapa = "Selamat siang"
ElseIf LTrim(Val(lbljam.Caption)) >= 15 And LTrim(Val(lbljam.Caption)) < 18 Then
sapa = "Selamat sore"
ElseIf LTrim(Str(Val(lbljam.Caption))) >= 18 And LTrim(Str(Val(lbljam.Caption)))
20th November 2011
ASK LOGIN VB6 dengan SQ server 2000
