Loginsystem mit Sql oder etwas anderem...

[WhiteShadow]

Hallo

Ich möchte für mein Programm ein Loginsystem machen welches per Internet die Daten von meinem Server abfragt zb: Login:User Passwortass ->sendet anfrage an Server ob es diese Person gibt-> Server hat Person gefunden und bestätigt das Passwort und die Person dem Programm->>Programm zeigt: Login OK . Und öffnet das Hauptprogramm.

Nur weiß ich nicht wie ich mein Loginsystem an eine Datei auf dem Server anpassen muss.
Und ich weiß nicht was gut ist. Entweder ne txt datei mit Name und Passwort oder mdb (wie ich das gerade laufen habe) oder SQL aber bei SQL hab ich keine Ahung wie ich mein Login anpassen muss (Ja ich bin verzweifelt weshalb ich mich fast schon wiederhole) .

Ich hoffe mir kann jemand von euch helfen mit einem laufenden Skript oder wenigsten mit den richtigen Skript für Login fragt Sql und Sql bestätigt. Wär sehr nett wenn mir jemand "ausser der Arzt" helfen kann.

MFG

 

[WhiteShadow]

Hallo


Kann mir keiner helfen!?
Hm

MFG

 

[son gohan]

Naja, ist zwar auf Englisch der folgende Link aber dort wird auch ein Loginscript in MySQL gebaut, schau es dir einfach mal an, vieleicht lernst ja was neues.

http://www.mt-dev.com/2004/02/login-script-in-php-step-by-step-guide/

 

[WhiteShadow]

Hallo

Danke für den Link. Aber der bringt mir nicht viel. Das mit Login in PHP kann ich schon. Aber ich krieg das nicht hin das es auch in VB geht. Ka was ich genau falsch mache, deshalb hab ich ja gefragt ob mir jemand den Anfang dafür schreiben kann.

MFG

 

[son gohan]

Achso VB haste gemeint. Hm, ich denke das mit dem Login ist etwas allgemeines da müsste man schon was machen können.

 

[WhiteShadow]

Hallo

Jo ich merks auch das keiner mir da helfen kann. Und Google hm das kann mir auch nicht helfen. Hab duzende von Foren durchgelesen und am dann bin ich doch wieder am Anfang. Ich verstehe nicht warum es so schwer ist das man n script von mdb auf sql umschreibt. Ich kenn mich da wirklich nicht aus , aber hier müssten doch sehr viele sein die damit schon gearbeitet haben und es schon im schlaf könnten.

Mein mdbscript sieht so aus

Dim DB As ADODB.Connection
Dim RS As ADODB.Recordset
Private Sub Command1_Click()
Set DB = New ADODB.Connection
Set RS = New ADODB.Recordset
DB.CursorLocation = adUseClient
DB.Provider = "Microsoft.Jet.OLEDB.4.0"
DB.Open App.Path & "\datei.mdb" [<<<< da ist die mdb und ich will entweder 1 oder 2 machen]
RS.Open "SELECT * FROM Login where Nickname = '" & Text2.Text & "'", DB, adOpenDynamic, adLockOptimistic

1:
DB.Open = Http://www.meinserveradresse/odnerwodiemdbdannseinsoll/datei.mdb"
oder 2:
statt mdb das ganze mit ner sql Datenbank verbinden.

So das ist meine Vorstellung

MFG

 

[WhiteShadow]

Hallo


Hm nun hab ich n Weg gefunden wie ich das ohne SQl mach aber das Prob ist.

1. Ich weiß nicht wie ich die mdb Datei mit einem Passwort machen soll. Ich weiß schon wie aber ich meine das auch wirklich nimand ausser mein Programm auf die Datei Zugang hat.
Das hab ich derweil so hinbekommen:

Option Explicit
Dim Cn As ADODB.Connection ' ADO-Connectionobjekt für Verbindung
Dim Rs As ADODB.Recordset ' ADO-Recordset für Datenhandling
 
Private Sub Form_Load()
Set Cn = New ADODB.Connection
With Cn
	.CursorLocation = adUseClient
	.mode = adModeShareDenyNone
	' Jet-Provider
	.Provider = "Microsoft.Jet.OLEDB.4.0"
	' Pfad zur eigendlichen DB
	.Properties("Data Source") = App.Path & "\mdb.mdb"
	' Datenbankpasswort
	.Properties("Jet OLEDB:-)atabase Password") = "123456"
	' Pfad zur System- und Securety-MDW
	.Properties("Jet OLEDB:System database") = App.Path & "\Mdw.mdw"
	' UserId für anzumeldenden User
	.Properties("User ID") = "User"
	' Passwort des Users
	.Properties("Password") = "Pass"
	.Open
End With
Set Rs = New ADODB.Recordset
With Rs
	.ActiveConnection = Cn
	.CursorLocation = adUseClient
	.CursorType = adOpenKeyset
	.LockType = adLockOptimistic
	.Source = "SELECT * FROM Tabelle1"
	.Open
End With
' Das Recordset wird
Set Me.DataGrid1.DataSource = Rs
End Sub

PS: Ich habe keine Ahnung wie das MDW funktioniert. Ich hab da keine Verbindung oder so zur MDB oder so gefunden. Hm naja

Jedenfallst dadurch Zeigt der mit meine Tabelle in der mdb an. Aber

Wenn Ich ein Login mache welches auch die gleiche Datenbank zugreifen soll aber in einer anderen Tabelle lesen soll, das will der dann nicht.

Option Explicit
Dim Cn As ADODB.Connection ' ADO-Connectionobjekt für Verbindung
Dim Rs As ADODB.Recordset ' ADO-Recordset für Datenhandling
 
Private Sub Command1_Click()
Set DB = New ADODB.Connection
Set Rs = New ADODB.Recordset
DB.CursorLocation = adUseClient
DB.Provider = "Microsoft.Jet.OLEDB.4.0"
DB.Open App.Path & "\MDB.mdb"
Rs.Open "SELECT * FROM Login where Nickname = '" & Text2.Text & "'", DB, adOpenDynamic, adLockOptimistic
If Rs.RecordCount > 0 Then
If Rs!Passwort = Text1.Text Then
Label1.Caption = ""
Login2.Show
Unload Me
Else
Label1.Caption = "Bitte geben Sie alle Daten richtig ein!"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text2)
End If
Else
Label1.Caption = "Bitte geben Sie alle Daten richtig ein!"
Text2.SetFocus
Text2.SelStart = 0
Text2.SelLength = Len(Text2)
End If
End Sub

Da meckert das Skript das es auf die Datenbank nicht zugreifen kann was ich auch verstehe weil das Skript ja auch das Datenbankpasswort nicht weiß.
Wie kann ich nun in das Zweite Skript (Login) nun noch das Datenbankpasswort eintragen damit der ohne Probleme drauf zugreifen kann.

Ich will ja nicht das jeder Benutzer den ich habe einfach in der MDB das Passwort der Admins oder so nachgucken kann. Will die MDB sicher haben.

MFG