DBMS CLIENT SERVER PROGRAM

CLIENT SERVER PROGRAM

NAME JEKIN . J . TRIVEDI

CLASS : SE - IT ROLL NO : 67



CLIENT CODE

**********************************************************************************************************

Dim strdata As String





Private Sub Command1_Click()

If sock.State = sckClosed Then

sock.RemoteHost = "192.168.10.79"

sock.RemotePort = "50505"

sock.Connect

Else

sock.Close

End If

End Sub





Private Sub sock_Close()

sock.Close

End Sub



Private Sub sock_DataArrival(ByVal bytesTotal As Long)

sock.GetData strdata

Text2.Text = strdata



End Sub



Private Sub sock_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

MsgBox "SOCKET ERROR" & Number & ":" & Description

sock.Close





End Sub



Private Sub Text1_Change()

If sock.State = sckConnected Then

sock.SendData Text1.Text

End If

End Sub



*****************************************************************************************************************



SERVER CODE



Dim strdata As String





Private Sub Form_Load()

sock.Protocol = sckTCPProtocol

sock.LocalPort = "50505"

sock.Listen

End Sub



Private Sub sock_ConnectionRequest(ByVal requestID As Long)

If sock.State = sckListening Then

sock.Close

sock.Accept requestID

MsgBox "CONNECTED WITH" & sock.RemoteHostIP

End If

End Sub



Private Sub sock_DataArrival(ByVal bytesTotal As Long)

sock.GetData strdata

Text2.Text = strdata

End Sub





Private Sub sock_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

MsgBox "SOCKET ERROR" & Number & ":" & Description

sock.Close

sock.Listen

End Sub



Private Sub Text1_Change()

If sock.State = sckConnected Then

sock.SendData Text1.Text

End If

End Sub



************************************************************************************************************************