PureBasic and mySQL

[silveran]

всем доброго времени суток
возникла задача написать клиент серверное приложение, добрые любди подсказали ПБ язык, стал учить

взял за основу клиент сервер
вот основа клиента

;


If InitNetwork() = 0
MessageRequester("Error", "Can't initialize the network !", 0)
End
EndIf

Port = 6832

ConnectionID = OpenNetworkConnection("127.0.0.1", Port)
If ConnectionID
MessageRequester("PureBasic - Client", "Client connected to server...", 0)

; Окно с полем для ввода текста.
String.s = InputRequester("Заголовок","Текст в окне","Текст в поле")
; Отображаем что ввели.
MessageRequester("Вы ввели",String)

SendNetworkString(ConnectionID, String)

MessageRequester("PureBasic - Client", "A string has been sent to the server, please check it before quit...", 0)

CloseNetworkConnection(ConnectionID )
Else
MessageRequester("PureBasic - Client", "Can't find the server (Is it launched ?).", 0)
EndIf

End

а это основа сервера

;


If InitNetwork() = 0
MessageRequester("Error", "Can't initialize the network !", 0)
End
EndIf

Port = 6832
*Buffer = AllocateMemory(1000)

If CreateNetworkServer(0, Port)

MessageRequester("PureBasic - Server", "Server created (Port "+Str(Port)+").", 0)

Repeat

SEvent = NetworkServerEvent()

If SEvent

ClientID = EventClient()

Select SEvent

Case #PB_NetworkEvent_Connect
MessageRequester("PureBasic - Server", "A new client has connected !", 0)

Case #PB_NetworkEvent_Data
MessageRequester("PureBasic - Server", "Client "+Str(ClientID)+" has send a packet !", 0)
ReceiveNetworkData(ClientID, *Buffer, 1000)
MessageRequester("Info", "String: "+PeekS(*Buffer), 0)

Case #PB_NetworkEvent_File
MessageRequester("PureBasic - Server", "Client "+Str(ClientID)+" has send a file via the network !", 0)
ReceiveNetworkFile(ClientID, "C:\TEST_Network.ftp3")

Case #PB_NetworkEvent_Disconnect
MessageRequester("PureBasic - Server", "Client "+Str(ClientID)+" has closed the connection...", 0)
Quit = 1

EndSelect
EndIf

Until Quit = 1

MessageRequester("PureBasic - Server", "Click to quit the server.", 0)

CloseNetworkServer(0)
Else
MessageRequester("Error", "Can't create the server (port in use ?).", 0)
EndIf


End

так вот дальше незнаю как реализовать задачу

в клиенте вписываешь скажем логин Vasya

это отсылается на сервер каждые 45 секунд

сервер же принял Vasya конектится к базе данных на 127.0.0.1 порт 3306 логин root, пасс testpass, база test таблица acaunt
в таблице акаунт 2 поля, login и onlain, находит в поле логин скроку где Vasya и напротив него с поле онлаин ставит значение 1. если же в течении минуты не принял снова сигнал от клиентской части то возвращает значение поля онлаин на 0 для Vasya.. хоть тресни ненащёл как работать с базой данных,

гуру выручайте))
С Уважением Сильверан