Problem - Printable Version

Code:

Sub LoadNpcs()

Dim I As Long

Dim J As Long

Dim cCount As Long

Dim RS As ADODB.Recordset



'Call CheckNpcs



'Setup database stuff

Set RS = New ADODB.Recordset

RS.Open "SELECT * FROM npcs;", Conn_Server, adOpenStatic, adLockReadOnly



If RS.EOF Then Exit Sub



RS.MoveFirst

For I = 1 To MAX_NPCS

    With Npc(RS("FKey"))

        .FKey = CLng(RS("FKey"))

        .Name = Trim$(CStr(RS("Name")))

        .AttackSay = Trim$(CStr(RS("AttackSay")))

        If CLng(RS("Big")) = 1 Then

            .Big = True

        Else

            .Big = False

        End If

        .Sprite = CLng(RS("Sprite"))

        .SpawnSecs = CLng(RS("SpawnSecs"))

        .Behavior = CLng(RS("Behavior"))

        .Range = CLng(RS("Range"))

        For J = 1 To 10

            .DropChance(J) = CLng(RS("Drop" & J & "Chance"))

            .DropItem(J) = CLng(RS("DropItem" & J))

            .DropItemValue(J) = CLng(RS("DropItem" & J & "Value"))

        Next J

        .STR = CLng(RS("STR"))

        .DEF = CLng(RS("DEF"))

        .SPEED = CLng(RS("SPEED"))

        .MAGI = CLng(RS("MAGI"))

        .DEX = CLng(RS("DEX"))

        .AGI = CLng(RS("AGI"))

        .StartHP = CLng(RS("StartHP"))

        .ExpGiven = CLng(RS("ExpGiven"))

        .QuestID = CLng(RS("QuestID"))

        .QuestIDFinish = CLng(RS("QuestIDFinish"))

        .Attack_with_Poison = Trim$(CStr(RS("Attack_With_Poison")))

        .Poison_Length = CLng(RS("Poison_Length"))

        .Poison_Vital = CLng(RS("Poison_Vital"))

        .Poison_Chance = CLng(RS("Poison_Chance"))

        .CanBePoisoned = Trim$(CStr(RS("CanBePoisoned")))

        .Shop = CLng(RS("Shop"))

    End With

    DoEvents

    If I  MAX_NPCS Then

        RS.MoveNext

    End If

Next I

RS.Close

Set RS = Nothing

End Sub

Code:

Public Sub CheckNpcs()

'Check to see if max items is how many items there are in the database.

Dim RecCount As Long

Dim I As Long

Dim OffSet As Long

Dim RS As ADODB.Recordset



RecCount = GetRecordCount("Npcs")

OffSet = MAX_NPCS - RecCount

If OffSet = 0 Then Exit Sub

Set RS = New ADODB.Recordset

RS.Open "SELECT * FROM Npcs;", Conn_Client, adOpenStatic, adLockOptimistic



If RS.EOF = True Then Exit Sub



RS.MoveFirst

For I = MAX_NPCS - OffSet + 1 To MAX_NPCS

    'thingstoupdate

    RS.Update

Next I

RS.Close

Set RS = Nothing

End Sub

Code:

Public Function GetRecordCount(dbTable As String, Optional WH As String = "0") As Long

'Setup database stuff

Dim RS As ADODB.Recordset

Dim I As Long

Dim SQL As String

    Set RS = New ADODB.Recordset

    If WH = "0" Then

        SQL = "SELECT * FROM " & dbTable & ";"

    Else

        SQL = "SELECT * FROM " & dbTable & " WHERE " & WH & ";"

    End If

    

    RS.Open SQL, Conn_Client, adOpenStatic, adLockReadOnly

    RS.MoveFirst

    I = RS.RecordCount

    

    RS.Close

    Set RS = Nothing

    GetRecordCount = I

End Function