Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá pessoal,
Eu tenho um simples formulario de login desenvolvido no VB com acesso ao SQL 7, o problema é que eu não consigo fazer o acesso, toda vez que eu passa valor alfanumerico dá o seguinte erro " Rum Time error 80040e21 Não há suporte para as propriedades solicitadas", e o debug aponta justamente para a consulta SQL selecionada abaixo.
Detalhe se eu passar NUMERO ele encontra os demais valores e continua a execução do programa normalmente.
Se você's puderem me ajudar ficarei muito grato
Obrigado at+
(VIDE CODIGO)
Form load()
Set Rs_Autentica = New ADODB.Recordset
Rs_Autentica.LockType = adLockOptimistic
Rs_Autentica.CursorLocation = adUseServer
Rs_Autentica.ActiveConnection = Cn
End sub
Private Sub CmdOK_Click()
Rs_Autentica.Open "SELECT * FROM TB_AUTENTICACAO_AUT WHERE AUT_USUARIO = " & Text1.Text & " AND AUT_SENHA=" & Text2.Text & ""
If Not Rs_Autentica.EOF Then
FORM1.Show
Rs_Autentica.Close
Else
MsgBox "Informação invalida"
Rs_Autentica.Close
End If
End Sub
SQL
CREATE TABLE TB_AUTENTICACAO_AUT
(AUT_CODIGO INT NOT NULL IDENTITY(1,1) PRIMARY KEY,
AUT_USUARIO VARCHAR (10),
AUT_PERMISAO VARCHAR (5),
AUT_SENHA VARCHAR (10))
INSERT INTO TB_AUTENTICACAO_AUT VALUES ('GERMIS','CT','GERMIS')
INSERT INTO TB_AUTENTICACAO_AUT VALUES ('CONTROLLER','GS','CONTROLLER')
INSERT INTO TB_AUTENTICACAO_AUT VALUES ('CPD','CF','CPD')
INSERT INTO TB_AUTENTICACAO_AUT VALUES ('USUARIO','AT','USUARIO')
SELECT * FROM TB_AUTENTICACAO_AUT WHERE AUT_USUARIO='CPD' AND AUT_SENHA='CPD'Carregando comentários...