Public Sub CheckSkills(ByVal usr As User)
Dim ID As String = FrmSever.PlayersTableAdapter.GetData.Item(usr.UserRow).ID
If FindSkillRowByOwner(usr.UserName) = -1 Then
If FindSkillRowByID(ID) = -1 Then
Dim NewSkill As Server.serverdataDataSet.SkillsRow = FrmSever.ServerdataDataSet.Skills.NewSkillsRow
NewSkill.ID = ID
NewSkill.Owner = usr.UserName
FrmSever.ServerdataDataSet.Skills.AddSkillsRow(NewSkill)
FrmSever.SkillsTableAdapter.Update(FrmSever.ServerdataDataSet.Skills)
End If
End If
Dim Row As Integer
Row = FindSkillRowByID(ID)
If FrmSever.ServerdataDataSet.Skills.Item(Row).MaxStr = Nothing Or FrmSever.ServerdataDataSet.Skills.Item(Row).MaxStr >= 0 Then
FrmSever.ServerdataDataSet.Skills.Item(Row).MaxStr = ClassData(GetPlayerClass(usr)).BaseStr
FrmSever.ServerdataDataSet.Skills.Item(Row).Str = ClassData(GetPlayerClass(usr)).BaseStr
ElseIf FrmSever.ServerdataDataSet.Skills.Item(Row).MaxDef = Nothing Or FrmSever.ServerdataDataSet.Skills.Item(Row).MaxDef >= 0 Then
FrmSever.ServerdataDataSet.Skills.Item(Row).Def = ClassData(GetPlayerClass(usr)).BaseStr
FrmSever.ServerdataDataSet.Skills.Item(Row).MaxDef = ClassData(GetPlayerClass(usr)).BaseStr
End If
End Sub
That is supposed to check that when a person logs on to the server that all their database information is set up. When I try to log into an account who doesn't have a skills row setup it works fine with the FindSkillsRowByOwner(usr.username) = -1. That works by going through all the rows in the database and seeing if the user owns one of them, and if the user doesn't then i makes it a row. So the row is there but my problem area is this line
FrmSever.ServerdataDataSet.Skills.Item(Row).MaxStr = Nothing
because it is saying that is DBNull. I made the database in access and it is an integer and I set it to have a default value of 0. When I view the database in access it shows the 0's but when I look at my datagrid on the server interface it shows them as empty. So I am not sure on what to do to fix this, any suggestions would be great.