Contoh Program

Private Sub Form_Load()
With TCPDBClient1
.UseEncryption = False
.RemoteIP = "10.11.12.2"
.RemotePort = "9998"
.Connect
End With
End Sub

Private Sub TCPDBClient1_OnConnected()
'Exec SELECT * FROM tblKategori
TCPDBClient1.SendData "", "10000001"
End Sub

Private Sub TCPDBClient1_OnDataIn(sckResponse As String, sckData As String, sckDataLen As Long)
Select Case sckResponse
Case "10000002"
TCPDBClient1.FillListBox List1, sckData
Case Else
'Error
End Select
End Sub

TCP DB Server

VB Programmer...

TCP DB Server adalah aplikasi Server yang dilengkapi dengan ActiveX (ocx) yang dirancang sedemikian rupa untuk membangun aplikasi dengan basis client/server dengan mudah dan cepat.


Fitur TCP DB Server :
- Multi Aplikasi
- Multi User
- Multi Koneksi
- Multi Database
- Data Encryption


Jaminan 100% kemudahan yang akan anda dapatkan dalam membangun aplikasi client/server.

Price : Rp. 100.000,- / app license

Bug report dapat disampaikan melalui email : email_saya@telkom.net