omg C++

dj_de · Post by **dj_de** » Mon Oct 18, 2004 9:20 pm

ps: it's only getting rounded seconds, uhhhhh hopefully your teacher wont notice (it will still say 3000ms, but never like 3029 ms)

lunix :darkstar:

<{POST_SNAPBACK}>

im betting they just look at it and just say it works, so no problems mate ;)

dubey · Post by **dubey** » Tue Oct 19, 2004 4:04 am

wut codez would i need 2 hak t3h planet

MikeJ · Post by **MikeJ** » Tue Oct 19, 2004 1:33 pm

Public Sub ReportStatus(channel As String)
On Error Resume Next

Dim myconn As New ADODB.Connection
Dim myrs As New Recordset
Dim mySQL As String
Dim myrows As Long
Dim myData As String



myconn.Open "DSN=rocko"
mySQL = "SELECT * FROM words"
myrs.Source = mySQL
Set myrs.ActiveConnection = myconn
myrs.CursorLocation = adUseClient
myrs.Open
myrows = myrs.RecordCount
myData = myrs.GetString(, , "{-", "{-")

myData = Replace(myData, strWord & "{-", "")

Send ("PRIVMSG " & strChannel & " :I am Rocko, a learning computer.  My Neural Network is currently consuming " & Len(myData) & " bytes of data.  My SQL database is referencing " & myrs.RecordCount & " words.  I was created by MikeJ.")

myrs.Close
myconn.Close
End Sub