Duvida com acesso a banco de dados - usuario e senha

[Julie sistemas]

Bom gente eu to com uma duvida aqui:

eu o fazendo um programa onde só se pode acessá-lo se tiver usuario e senha. Só que tá dando uns erros onde grifei no código abaixo. Não sei porque está errado.

Private Sub Txt1usuario_Change()
Dim cok As Boolean
  cok = True

  

  If Trim(Txt1usuario.Text) <> "" Then
     Set rSusua = New ADODB.Recordset
        [u][b] rSusua.Open "Select * from usuarios  = " & Txt1usuario.Text, Data, adOpenKeyset, adLockOptimistic[/b]
         
         If rSusua.RecordCount = 0 Then
            lblusu.Caption = ""
            cok = False
         End If
         
         If cok = True And rSusua.RecordCount <> 0 Then
            rSusua.MoveFirst
            Do While Not rSusua.EOF
               lblusu.Caption = rSusua.Fields("usuario")
               rSusua.MoveNext
            Loop
         
         End If
  End If

End Sub

Vlw

Editado Março 12, 2008 por kuroi
Arrumar Tag CODE

[kuroi]

cara poste sempre a descricao do erro.

mas o select ta errado. se for pra filtrar tem q ser com where e se o campo é texto tem q ser entre aspa. tipo assim:

rs.Open "Select * from tabela where campo  = '" & Txt1usuario.Text & "'", Data, adOpenKeyset, adLockOptimistic

só altere o codigo acima com os nomes corretos dos seus campos, tabelas, objetos, etc.

[Julie sistemas]

Mas e no data. Eu não entendo muito bem esta parte. Tipo, não tem uma parte para colocar o endereço do banco de dados?

[kuroi]

no data você tem q passar uma conexao aberta. veja aqui: http://www.macoratti.net/con_ado.htm

por exemplo, se for access, use esse:

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=\teste\teste.mdb;" & _
                   "User Id=admin;" & _
                   "Password=;"[/code]

[Julie sistemas]

Bom gente o data1 é bem complicado viu... Pegando carona na pergunta do meu colega abaixo...

Eu to usando o access... e não estou conseguindo selecionar nem a tabela e nem o elementos da tabela. Eu to precisando acessar ao sistema com o usuario e asenha só que o data1 não está localizando... Gostaria de saber como funciona o data1 com access?

Vlw...

[webdeveloper]

Neste caso acho melhor usar o ADO Data Control (ADODC).

[Julie sistemas]

Substituir o data1??

[webdeveloper]

Exato.

[kuroi]

como os dois topicos tem o mesmo assunto, mesclei os dois.

realmente, como o webdeveloper disse, é melhor usar o ADODC em vez do objeto Data. um exemplo disso tem aqui: http://www.macoratti.net/ado_dc.htm#adodc

mas na verdade, eu recomendo q você não use nem o Data e nem o ADODC e sim o objeto Connection, pois ele é muito melhor do q usar controles vinculados, por motivos q você pode ler aqui: http://www.macoratti.net/vbc_vinc.htm

pra usar o objeto Connection, adicione a referencia Microsoft ActiveX Data Objects 2.X Library e siga os exemplos q são dados aqui: http://www.macoratti.net/ado.htm#adoexemp

ai qualquer duvida, poste ai

[webdeveloper]

...mas na verdade, eu recomendo q você não use nem o Data e nem o ADODC e sim o objeto Connection...

Eu também, tanto que não uso Data nem ADODC.

[Julie sistemas]

É eu não tava querendo ficar usando só botoes mesmo não...

Mas alguns desses links que você mandou estão me ajudando bastante...

Vlw...

Abraços... Ahh e eu não sou cara... Sou mulher...

[kuroi]

Abraços... Ahh e eu não sou cara... Sou mulher...

a é q pensei q Julie sistemas fosse nome de empresa ou coisa do tipo. as vezes tem uns caras q poem no nick o nome da empresa dele.

e quando eu te chamei de cara você não tinha ainda setado no seu perfil q era mulher hahahaah

[Julie sistemas]

Tava só zuando...

Mas aqui... surgiu outra dúvida eu não to conseguindo gravar. Tipo vi alguns exemplos no link que você mandou e tentei fazer parecido. Veja abaixo:

Erro 3265

Private Sub grava_rec()
   [b]rs.Fields(0) = "" & txtempresa.Text
   rs.Fields(1) = "" & txtnomefantasia.Text[/b]
  
End Sub

Não sei o que ta errado. Sera que é o zero e o um entre perenteses?

[kuroi]

qual a mensagem do erro?? pelo numero não da pra saber.

talvez o RecordSet, não esteja aberto e/ou declarado certinho, ou você esteja trocando os tipos de dados.

[Julie sistemas]

A mensagem é a seguinte:

Erro '3265'

O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.

Aí eu mando debuga e aparece a faixa amarela na linha abaixo:

Private Sub grava_rec()
   [b]rs.Fields(0) = "" & txtempresa.Text[/b]
   rs.Fields(1) = "" & txtnomefantasia.Text
  
End Sub

O zero e o 1 significa a posição da tabela não é?

[kuroi]

O zero e o 1 significa a posição da tabela não é?

é sim.

por acaso você setou o Option Base 1?? nesse caso o indice deve comecar no 1 e não no 0.

mas o RecordSet esta mesmo aberto com um select?? posta o codigo de onde você abre pra gente ver se ta certo.

[Julie sistemas]

Bom a minha dúvida agora é como faço pra colocar os asterisco * no campo de senha... sem que apareça a senha.

exemplo:

usuario: gerente

senha:******

Bom essa é minha dúvida.

Vlw...

[webdeveloper]

Tem uma propriedade no TextBox chama PasswordChar, coloque o caracter que quiser e veja o que acontece.

[Julie sistemas]

Deu certo... Vlw...

[webdeveloper]

Que bom!!!

:D

[Julie sistemas]

Bom pessoal eu to com mais uma dúvida: To querendo saber se o código do usuario é válido... Só que o meu código tá dando erro na conexão ao banco. Grifei onde aparece o erro... Vlw

Private Sub Txt1usuario_LostFocus()
    Dim cod As Long
    Dim cnnComandos As New ADODB.Command
    Dim rsSelecao As New ADODB.Recordset
    cod = Val(Txt1usuario.Text)
    If cod = 0 Then Exit Sub
    Screen.MousePointer = vbHourglass
    With cnnComandos
    [b].ActiveConnection = cnnusu[/b]
    .CommandType = adCmdText
    .CommandText = "SELECT * FROM usuarios WHERE Código = " & cod & ";"
    Set rsSelecao = .Execute
    End With
    
    With rsSelecao
    If .EOF And .BOF Then
    'Se não encontrou o livro, deixa o título do livro em branco:
    Labelusu.Caption = Empty
    Else
    'Se encontrou, exibe o título do livro em lblTitulo:
    Labelusu.Caption = !nome
    End If
    Set rsSelecao = Nothing
    'Set cnnComandos = Nothing
    Screen.MousePointer = vbDefault
    End With
End Sub

[webdeveloper]

Onde você abre a conexão cnnusu?

[Guest --jrdesing --]

A mensagem é a seguinte:

Erro '3265'

O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.

Aí eu mando debuga e aparece a faixa amarela na linha abaixo:

Private Sub grava_rec()
   [b]rs.Fields(0) = "" & txtempresa.Text[/b]
   rs.Fields(1) = "" & txtnomefantasia.Text
  
End Sub

O zero e o 1 significa a posição da tabela não é?

[webdeveloper]

Você fez o rs.AddNew antes?

A mensagem é a seguinte:

Erro '3265'

O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.

Aí eu mando debuga e aparece a faixa amarela na linha abaixo:

CODE

Private Sub grava_rec()

rs.Fields(0) = "" & txtempresa.Text

rs.Fields(1) = "" & txtnomefantasia.Text

End Sub

O zero e o 1 significa a posição da tabela não é?