Adding to DB

[Insecure]

[EDIT] RESOLVED!

[DarkMinion]

IMO, it's bad to store flags as a string...

[Insecure]

IMO, it's bad to store flags as a string...

imo? and what do you sugest?

[Eibro]

IMO, it's bad to store flags as a string...

imo? and what do you sugest?

A bitfield is best. I'm not sure how you'd implement such in VB, but it's something like this in C/C++.

Code Select Expand

union Flags
{
   DWORD dwFlags;
   struct {
        unsigned flag1 : 1; // name this whatever
        unsigned flag2 : 1;
   };
};

// ...
Flag myFlags;
myFlags.flag1 = TRUE;
if ( myFlags.flag2 ) // flag2 is set
   // dosomething


[Insecure]

I need something in vb:(!

[DarkMinion]

Eibro's way is the hard way btw, if you ever switch to C++

[Insecure]

RESOLVED:)!

[DarkMinion]

This is what I do in C++...if you get proficient enough with VB you might be able to port it

This struct will store a user:

Code Select Expand


struct User{
   char szMask[32];
   unsigned long dwFlags;
};


Then using my list class I will construct a list of users, which will be my database:

Code Select Expand


List<User *> Database;


I use these functions to manipulate flags:

Code Select Expand


bool CheckFlag(unsigned long dwMask, char bFlag)
{
   if(bFlag < 'A' || bFlag > 'Z')
      return false;
   return !!(dwMask & (1 << (bFlag - 'A')));
}

int GetAllFlags(unsigned long dwMask, char *lpszBuffer)
{
   int iCount = 0;
   for(int i = 'A'; i <= 'Z'; i++){
      if(CheckFlag(dwMask, (char)i)){
         lpszBuffer[iCount++] = i;
      }
   }
   lpszBuffer[iCount] = 0;
   return iCount;
}

void SetFlag(unsigned long *dwMask, char bFlag)
{
   if(bFlag < 'A' || bFlag > 'Z')
      return;
   *dwMask |= (1 << (bFlag - 'A'));
}

void RemoveFlag(unsigned long *dwMask, char bFlag)
{
   if(bFlag < 'A' || bFlag > 'Z')
      return;
   *dwMask &= ~(1 << (bFlag - 'A'));
}


I add items to my db like so:

Code Select Expand


User *p = new User;
strcpy(p->szMask, "whatever");
SetFlag(p->dwFlags, 'A'); //or whatever
Database.Add(p);


You *can* port this to VB if you know what you're doing, I'll leave that up to you.

[MyndFyre]

RESOLVED:)!

How about leaving your question up so that future people might benefit from your wisdom?

[CrAz3D]

RESOLVED:)!

How about leaving your question up so that future people might benefit from your wisdom?

Not to forget the answer

[Insecure]

ok;)

[ChR0NiC]

[EDIT] RESOLVED!

I remembering doing this and as a result, I got a lecture and such from the Admins.

*awaits Admin lecture*

[Spht]

[EDIT] RESOLVED!

Don't do that.

[BinaryzL]

Called a user type in vb

Code Select Expand

Public UserDB() As db ' Dynamic Array '

Private Type db
   strUsername As String
   strFlags as String ' Or whatever you want '
End Type

Ex.
UserDB(intIndex).strUsername = "Binary[zL]"