Hej!!!
Några frågor..
först hur öppnar man en .mdb databas som ligger på en webserver...
Sen så har jag gjort en sak och lyckats lite men har ett problem.
jag öppnar databasen som ligger i app.path.
sen så loopar den igenom table som heter members.
och gämför med en textbox som heter username och en som heter password
och om username och uname i databasen är lika så connect men den vill inte.
lite kod om hur det är..
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "/members.mdb;uid=;pwd=lösenordet"
SQL = "Select * From members"
'Set RecSet = Connect.Execute(SQL)
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
Do Until RecSet.EOF
If Usernames.Text = RecSet!Username And Passwords.Text = RecSet!losen Then
RecSet!Status = "online"
RecSet.Update
Nicks = RecSet!Username
Statuss = RecSet!Status
Text1.Text = "Välkommen " & Nicks & "!" & vbnewline & "Din Status är " & statuss
RecSet.Close
Connect.Close
Set RecSet = Nothing
Set Connect = Nothing
Usernames1 = ""
Password1 = ""
RecSet.Close
Connect.Close
Set RecSet = Nothing
Set Connect = Nothing
Exit Sub
End If
List1.additem RecSet!Username
Usernames1.text = ""
Password1.text = ""
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = Nothing
Set Connect = Nothing
Dim Medelande
Medelande = "Wrong Username or Password! Please try again"
MsgBox Medelande
frmMain.Show
'Unload Me
Exit Sub
ErrHandler: 'Felhanteringen
MsgBox Err.Description 'Ger meddelande om vad det är för fel
varför vill den inte skriva i text1.text men den addar alla username i databasen till list1..