Gan, ada yang mau share caranya login dari client ke database server pake VB6... Databasenya pake SQL Server 2000...
Kalo servernya dah bisa konek ke clientnya tapi buat login masih belum bisa..
Ane dah pake winsock buat koneksi client servernya
Scriptnya Data Arrival di form login :
Spoiler for
Script Data Arrival winsock:
Private Sub Socket_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
Socket.GetData Data, vbString
If Data = "sendid" Then
'If Data(0) = " & txtUser.text & " And Data(1) = " & txtPassword.text & " And Data(2) = "CBBagian.text" Then
Start_Login
Else
If Data = "sendpw" Then
Send_Password
Else
If Data = "wronglogin" Then
frmLogin.Caption = "Login Status:Wrong Id/Password/id Number"
Else
If Data = "rightname" Then
frmLogin.Caption = "Login Status:Right Name Sending Password"
Send_Password
Else
If Data = "getbagian" Then
Socket.SendData "idbagian" & CBBagian
Else
If Data = "login" Then
frmLogin.Caption = "Login Status:Loged Into Server Getting Data"
MsgBox "Server Has Been Shutdown By Forced Connections", vbCritical, "Disconnected"
frmUtama.Show
'Play_Wave "loged.wav"
Else
If Data = "dis" Then
frmLogin.Caption = "Status:Not Connected"
'ls2 = "Login Status:Not Loged In"
MsgBox "Server Has Been Shutdown By Forced Connections", vbCritical, "Disconnected"
Else
'txtLoged.SelStart = Len(txtLoged.Text)
'txtLoged.SelColor = vbBlue
'txtLoged.SelFontName = "arial"
frmLogin.Caption = Data
End If
End If
End If
End If
End If
End If
End If
End Sub
Gimana y??? Ada yang bisa kasih pencerahan???
THANKS Buat Bantuannya...
