mysql errors - Printable Version

Code:

Dim RS As ADODB.Recordset

        Set RS = New ADODB.Recordset

        RS.Open "QUERY", Conn_Client, adOpenStatic, adLockOptimistic ' now this are a lot of params, google them and you will know what them all do.

        

        RS.MoveFirst

        Variable = RS.Fields("FKey") ' blablabla

        

        RS.Close

    Set RS = Nothing

Code:

For I = 1 To MAX_MAPS

    Call SetStatus("Loading Map " & I & "/" & MAX_MAPS)

    With Map(I)

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

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

        .Revision = CLng(RS("Revision"))

        .Moral = CByte(RS("Moral"))

        .Up = CInt(RS("Up"))

        .Down = CInt(RS("Down"))

        .Left = CInt(RS("mLeft"))

        .Right = CInt(RS("mRight"))

        .Music = CByte(RS("Music"))

        .BootMap = CInt(RS("BootMap"))

        .BootX = CByte(RS("BootX"))

        .BootY = CByte(RS("BootY"))

        .Shop = CByte(RS("Shop"))

        .Indoors = CByte(RS("Indoors"))

        'Load Tiles

        Tiles = Split(Trim(CStr(RS("Tiles"))), "|")

        Q = 0

        For X = 0 To MAX_MAPX

            For Y = 0 To MAX_MAPY

                TileSet() = Split(Tiles(Q), "-")

                .Tile(X, Y).Ground = CInt(TileSet(0))

                .Tile(X, Y).Mask = CInt(TileSet(1))

                .Tile(X, Y).Anim = CInt(TileSet(2))

                .Tile(X, Y).Fringe = CInt(TileSet(3))

                .Tile(X, Y).Type = CInt(TileSet(4))

                .Tile(X, Y).Data1 = CInt(TileSet(5))

                .Tile(X, Y).Data2 = CInt(TileSet(6))

                .Tile(X, Y).Data3 = CInt(TileSet(7))

                Q = Q + 1

            Next Y

        Next X

        

        'Load NPCs

        NPCs = Split(Trim(CStr(RS.Fields("NPCS"))), "-")

        For Q = LBound(NPCs) To UBound(NPCs)

            .Npc(Q + 1) = CByte(NPCs(Q))

        Next Q

        

    End With

    DoEvents

    If I  MAX_MAPS Then

        RS.MoveNext

    End If

Next I

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



Public Sub CheckItems()

'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("Items")

OffSet = MAX_ITEMS - RecCount

If OffSet = 0 Then Exit Sub

Set RS = New ADODB.Recordset

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



If RS.EOF = True Then Exit Sub



RS.MoveFirst

For i = MAX_ITEMS - OffSet + 1 To MAX_ITEMS

    RS.AddNew

    

    RS!FKey = i

    RS!Name = "   "

    RS!Descricao = "   "

    RS!Pic = 0

    RS!Type = 0

    RS!ClassReq = 0

    RS!Data1 = 0

    RS!Data2 = 0

    RS!Data3 = 0

    RS!TwoHanded = 0

    RS!GuildReq = 0

    RS!Poison_Length = 0

    RS!Poisons = False

    RS!Poison_Vital = 0

    RS!IsRangeWeapon = 0

    RS!RangeAmmo = 0

    

    RS.Update

Next i

RS.Close

Set RS = Nothing

End Sub