USUARIO E SENHA ONLINE
Estou tentando fazer uma conecção em um Server com access database, contedo 2 tabelas com usuario e senha, a um cliente. utilizando o winsock, so que não estou conseguindo enviar uma data com o usuario e senha. para o server.
se alguem me ajudar eu fico muito grato!
se alguem me ajudar eu fico muito grato!
Cara,
Poderia melhorar sua pergunta..
Está bastante confuso!
Grato
tipow assim, ja criei a conecção entre o server e o cliente. ja criei uma conecção do server com o access.
no cliente eu coloquei 2 Text box um com usuario e outro com senha
e eu quero mandar para o server as informaçoes com usuario e senha, para acessar o access com o cliente
ja tentei fazer assim usando o winsock para enviar o usuario ao server
-----Cliente----
Dim usuario, senha as String
usuario = txtusuario.text
senha = txtsenha.text
winsock1.senddata usuario [ô]enviar usuario para o server
------Server-----
Dim Con as new ADOB.Conection
Dim Abrir as new ADOB.Recordset
Dim data as String
Dim sql as String
winsock1.getdata data
Sql = [Ô]Select * from conta where usuario=[ô][Ô] & usuario &[Ô][ô][Ô]
abrir.open Sql, con
if abrir.EOF then
winsock1.senddata [Ô]Usuario ou Senha incorreta[Ô]
else
winsock1.senddata [Ô]Bem vindo [Ô] & abrir.fields(0)
end if
--- o cliente pega a informaçao do server ----
Dim data as String
lblinfo.caption = winsock1.getdata data
no caso se o usuario se conectar aparece Bem vindo usuario, e se errar ele fala que ta senha incorreta
Eu so consegui enviar o usuario... quero enviar a senha e o usuario para o server.
no cliente eu coloquei 2 Text box um com usuario e outro com senha
e eu quero mandar para o server as informaçoes com usuario e senha, para acessar o access com o cliente
ja tentei fazer assim usando o winsock para enviar o usuario ao server
-----Cliente----
Dim usuario, senha as String
usuario = txtusuario.text
senha = txtsenha.text
winsock1.senddata usuario [ô]enviar usuario para o server
------Server-----
Dim Con as new ADOB.Conection
Dim Abrir as new ADOB.Recordset
Dim data as String
Dim sql as String
winsock1.getdata data
Sql = [Ô]Select * from conta where usuario=[ô][Ô] & usuario &[Ô][ô][Ô]
abrir.open Sql, con
if abrir.EOF then
winsock1.senddata [Ô]Usuario ou Senha incorreta[Ô]
else
winsock1.senddata [Ô]Bem vindo [Ô] & abrir.fields(0)
end if
--- o cliente pega a informaçao do server ----
Dim data as String
lblinfo.caption = winsock1.getdata data
no caso se o usuario se conectar aparece Bem vindo usuario, e se errar ele fala que ta senha incorreta
Eu so consegui enviar o usuario... quero enviar a senha e o usuario para o server.
ANDERSON, tenta enviar junto: Usuario & Senha
Quando chegar, vc faz a separação (ex. Split) para verificar individual...
Ainda nao fiz nada usando operação remota mas creio q é por aÃ..
abrass
Quando chegar, vc faz a separação (ex. Split) para verificar individual...
Ainda nao fiz nada usando operação remota mas creio q é por aÃ..
abrass
Cliente
Servidor
winsock1.senddata [Ô]LOGIN%[Ô] & txtLogin.Text & [Ô]%[Ô] & txtSenha.Text
Private Sub winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
[ô]Recebimento de dados
Dim DADOS As String
winsock1.GetData DADOS
RECEBI() = Split(DADOS, [Ô]%[Ô])
If RECEBI(0) = [Ô]LOGINOK[Ô] Then
MsgBox [Ô]Bem Vindo [Ô] & RECEBI(1)
Exit Sub
End If
If RECEBI(0) = [Ô]LOGINNO[Ô] Then
MsgBox [Ô]Úsuario/Senha Invalido ![Ô], , [Ô]Login[Ô]
Exit Sub
End If
Servidor
Private Sub winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
[ô]Recebimento de dados
Dim DADOS As String
winsock1.GetData DADOS
RECEBI() = Split(DADOS, [Ô]%[Ô])
[ô]Login
If RECEBI(0) = [Ô]LOGIN[Ô] Then
Set rsLogin = New ADODB.Recordset
User = RECEBI(1)
senha = RECEBI(2)
rsLogin.Open [Ô]SELECT User FROM conta Where usuario= [ô][Ô] & User & [Ô][ô] and senha = [ô][Ô] & senha & [Ô][ô];[Ô], con, adOpenKeyset, adLockOptimistic
If rsLogin.EOF Then
SERVIDOR(Index).SendData [Ô]LOGINNO%[Ô]
rsLogin.Close
Exit Sub
Else
SERVIDOR(Index).SendData [Ô]LOGINOK%[Ô] & rs!usuario
rsLogin.Close
Exit Sub
End If
End If
Vlw todos que tentaram me ajudar...
Agora so da para entrar amanha... amanha eu falo se funcionou
----Edit
Funcionou!! brigadaum voces ^^
Brigadão
Agora so da para entrar amanha... amanha eu falo se funcionou
----Edit
Funcionou!! brigadaum voces ^^
Brigadão
Tópico encerrado , respostas não são mais permitidas