[ASK] Login Client Server VB6 ke SQL Server 2000 (Master VB6 Masuk)

[Permenkaret]

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...

http://static.kaskus.us/images/smilies/iloveindonesias.gifhttp://static.kaskus.us/images/smilies/iloveindonesias.gifhttp://static.kaskus.us/images/smilies/iloveindonesias.gif

</div>