Help

[ColT]

Can someone help me make a database/access, and how to make commands. Thanks. Btw: This is in Visual Basic.

[Spht]

Can someone help me make a database/access, and how to make commands. Thanks. Btw: This is in Visual Basic.

You might want to search Google first, to get started.  What you're asking sounds pretty general and non-botdev-specific.  If you have a specific question later on, then feel free to ask.

[ColT]

Ok. Thanks by the way Spht.

[MyndFyre]

a pretty good way to learn about access lists and stuff is to look at other people sources.

Goto this site and look under downloads.  I'm download admin there and there are like 70 sources u can look at.
http://bnetweb.com

No, a good way to learn about access lists is to think about how you want to structure yours, then apply your knowledge into creating one from scratch.  Looking at other's sources is an efficient way of encouraging oneself to copy them and then not understanding them later.

[Michael]

ya, i would suggest something simple,  make a file put name access then make a code that opens the file and checks for user access.
example

Code Select Expand


public access as string
public sub loaddb(user as string)
dim info as string
dim split() as string
open app.path & "/database.txt" for input as #1
input #1, info
split(lcase(info), " ", 1)
if split(0) = lcase(name) then
access = lcase(split(1))
end if
close #1
end sub


[Minux]

ya, i would suggest something simple,  make a file put name access then make a code that opens the file and checks for user access.
example

Code Select Expand


public access as string
public sub loaddb(user as string)
dim info as string
dim split() as string
open app.path & "/database.txt" for input as #1
input #1, info
split(lcase(info), " ", 1)
if split(0) = lcase(name) then
access = lcase(split(1))
end if
close #1
end sub


Nah, use a function with a loop inside. For example

Code Select Expand


Public Function CheckAccess(Username As String, byRef Access As Integer)

Close #1

Dim Temp As String

Access = 0

Open App.Path & "/database.txt" For Input As #1

Do While Not EOF(1)

Input #1, Temp

If LCase(Split(Temp, " ")(0)) = LCase(Username) Then
Access = Split(Temp, " ")(1)
Exit Function
End If

Loop

Close #1

End Function

And when you call the function just do something along these lines.

Code Select Expand


CheckAccess(strUsername As String, strAccess As String)

And strAccess will obtain the value of the user's access if found, otherwise it will be 0.

[Michael]

Whoops forgot the loop he sorry about that. hope i helped tho.