Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

anabon

erro na tela login

Recommended Posts

Olá boa tarde!!!!! Tenho que pedir ajuda de vocês mais uma vez Imagem Postada

Tenho em meu sistema uma form simples para cadastro de usuarios, com 2 text box operador e senha, conectei eles no banco através de um objeto adodc, até ai tudo bem .... O problema ta na hora de logar, no form login tenho 2 text box (username e password), 2 botão de comando (Ok e Canecelar), os codigos q estou usando são os seguintes:

 

[

code]

Private Sub Form_Load()

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Arquivos de programasbdgerenciador.mdb;Persist Security Info=False"

cn.Open

 

 

 

 

 

 

 

 

Private Sub cmdOk_Click()

 

SQL = "select * from usuario where usuario =" & txtUserName.Text

SQL = SQL & " and password=" & txtPassword.Text

RS.Open conn, SQL, adOpenDynamic

If RS.EOF Then

MsgBox ("Usuário não cadastrado no banco de dados!")

txtUserName.SetFocus

Exit Sub

End If

If Not RS.EOF Then

frmprincipal.Show

End If

 

End Sub

 

 

e declaro as seguintes variaveis:

 

 

 

 

 

 

 

Option Explicit

Public tbl As Recordset

Public bd As Database

Dim cn As New ADODB.Connection

Dim RS As New ADODB.Recordset

Dim SQL As String

Dim conn As String

Dim db As New ADODB.Connection

 

 

tenho duas duvidas 1°

 

ta dando o seguinte erro qndo clico no botão ok:

 

Run-Time'2147467259 (80004005)': (Microsoft][ODBC Drive Manager] nome da fonte de dados não encontrado e nenhum drive padrão especificado

 

a linha q a cusa o erro é essa:

RS.Open conn, SQL, adOpenDynamic

Depois que conseguir resolver esse problema eu gostari de boquiar alguns form dependendo do login.

Tipo o administrador pode tudo e o funcionario só o necesserio....

 

Se alguém pode me ajudar, eu agradeceria mto!!!!

 

Forte Abraço!!!! Imagem Postada

Compartilhar este post


Link para o post
Compartilhar em outros sites

Acredito que mudando a ConnectionString vá funcionar.

 

 

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""C:\Arquivos de programas\bd\gerenciador.mdb"";Persist Security Info=False"
Percebeu as "aspas" no meio da ConnectionString? Elas devem permanecer.

 

Experimente isso, se não funcionar diga.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Infelismente não deu certo ainda continua o mesmo erro, e apontando para a mesma linha

RS.Open conn, SQL, adOpenDynamic

, se eu estiver falando besteiras me perdoe pois como já dissi em outro topica sou nova em vb, mas nessa linha é onde abre a tabela. Certo? Mas eu não consigo ver aonde ta o erro....

Forte Abraço!!!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Esse arquivo existe C:\Arquivos de programas\bd\gerenciador.mdb?

 

Pera,

 

Em vez de

RS.Open conn, SQL, adOpenDynamic

Tente

RS.Open SQL, cn, adOpenDynamic

Compartilhar este post


Link para o post
Compartilhar em outros sites

Legal troquei a linha, só que infelismente agora ta dando outro erro: Run-TimeError: 3001: Os Argumnentos são incorretos, estão fora do intervalo ....

Compartilhar este post


Link para o post
Compartilhar em outros sites

o erro que ta dando agora é: Run-Time '2147217904 (80040e10)': Nenhum valor foi fornecido para um ou mais parametro necessario.

o erro que ta dando agora é: Run-Time '2147217904 (80040e10)': Nenhum valor foi fornecido para um ou mais parametro necessario.

Esse erro consegui corrigir era só erro de escrita:

 

Como tava:

RS.Open SQL, cn, adOpenDynami, 1, 1

Como coloquei:

RS.Open SQL, con, adOpenDynamic, 1, 1

Mas o problema que agora ta dando outro erro: Run-Time '3709': A conexão não pode ser usada para realizar esta operação. Ela esta fechada ou é invalida neste contexto!!!!

 

Já tentei

 

RS.Open

 

RS.Open SQL, con, adOpenDynamic, 1, 1

Mas Também não da certo.....

 

Oque to fazendo de errado? Imagem Postada

 

Obs: O Erro ta apontando na mesma linha:

 

RS.Open SQL, con, adOpenDynamic, 1, 1

Forte Abraço!!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

É "con.Open", não RS.Open

Compartilhar este post


Link para o post
Compartilhar em outros sites

É "con.Open", não RS.Open

 

eu to usando isso no começo da codificação

 

con.Open

RS.Open SQL, con, adOpenDynamic, 1, 1

SQL = "select * from usuario where usuario =" & txtUsername.Text

SQL = SQL & " and password=" & txtPassword.Text

If RS.EOF Then

MsgBox ("Usuário não cadastrado no banco de dados!")

txtUsername.SetFocus

Exit Sub

End If

If Not RS.EOF Then

frmprincipal.Show

End If

Este é o código completo q estou usando no botão ok

 

 

Forte Abraço!!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.