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:
im betting they just look at it and just say it works, so no problems mate ;)
wut codez would i need 2 hak t3h planet
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