ADO - VERIFICAR DB E ADICIONAR DADOS
Opa!
Procurei nas dicas mas não achei algo que pudesse me ajudar.
Fiz esse codigo:
With RSpro
.ActiveConnection = Conexao
.CursorLocation = adUseClient
.LockType = adLockReadOnly
.CursorType = adOpenStatic
.Open "SELECT * FROM users where user like '" & temptext & "%'"
If RSpro.EOF = False And txt_user = RSpro!User Then
MsgBox "Usuário já existe", vbInformation, "Erro"
RSpro.Close
End If
End With
Exit Sub
RSadd.Open SQLString, Conexao, 3, 3
With RSadd
.AddNew
RSadd!User = txt_user.Text
RSadd!senha = txt_senha.Text
RSadd!auth = cb_auth.Text
RSadd.Update
RSadd.Close
Conexao.Close
End With
MsgBox "Usuário Cadastrado com sucesso!", vbExclamation, "Sucesso"
txt_user.Text = ""
txt_senha.Text = ""
cb_auth.Text = ""
txt_user.SetFocus
End If
End Sub
Diz que BOF ou EOF são verdadeiros... não entendi mto :/
se alguem puder me ajudar, agradeço e se me explicar melhor ainda :P
Procurei nas dicas mas não achei algo que pudesse me ajudar.
Fiz esse codigo:
With RSpro
.ActiveConnection = Conexao
.CursorLocation = adUseClient
.LockType = adLockReadOnly
.CursorType = adOpenStatic
.Open "SELECT * FROM users where user like '" & temptext & "%'"
If RSpro.EOF = False And txt_user = RSpro!User Then
MsgBox "Usuário já existe", vbInformation, "Erro"
RSpro.Close
End If
End With
Exit Sub
RSadd.Open SQLString, Conexao, 3, 3
With RSadd
.AddNew
RSadd!User = txt_user.Text
RSadd!senha = txt_senha.Text
RSadd!auth = cb_auth.Text
RSadd.Update
RSadd.Close
Conexao.Close
End With
MsgBox "Usuário Cadastrado com sucesso!", vbExclamation, "Sucesso"
txt_user.Text = ""
txt_senha.Text = ""
cb_auth.Text = ""
txt_user.SetFocus
End If
End Sub
Diz que BOF ou EOF são verdadeiros... não entendi mto :/
se alguem puder me ajudar, agradeço e se me explicar melhor ainda :P
BOF (Begin Of File): Inicio do Arquivo
EOF (Enf Of File): Final de Arquivo
Quando BOF e EOF são verdadeiros isso indica que você tem um recordset vazio, ou seja, sua consulta não deve estar retornando nada.
EOF (Enf Of File): Final de Arquivo
Quando BOF e EOF são verdadeiros isso indica que você tem um recordset vazio, ou seja, sua consulta não deve estar retornando nada.
Tópico encerrado , respostas não são mais permitidas