|
|
Postada em 08/08/2010 22:31 hs
oi pessoal esta dando um erro em minha aplicaçao e nao faço a minima ideia de como resolver se alguem souber agradeço muito Private Sub cmdvalidaregistro_Click()
SET BANCO=BANCODEDADOS.OPENRECORDSET("SELECT NOME FROM FUNCIONARIO WHERE REGISTRO='" & TXTNUMEROREGISTRO.TEXT & "'")
If banco.RecordCount = 0 Then
MsgBox "registro nao encontrado", vbInformation + vbOKOnly, "..:relogio ponto by andre"
Exit Sub
End If
txtnome.Text = banco("nome")
End Sub
o erro esta acontecendo na linha que esta em maiusculo na rotina se alguem puder me ajudar agradecerei muito.
0brigado a todos...
|
|
|
|
|
|
gerarda
|
MONTE SIAO
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 09/08/2010 09:53 hs
é que o formato de TXTNUMEROREGISTRO.TEXT é diferente do banco de dados
tenta formatar como double cdbl(TXTNUMEROREGISTRO.TEXT)
SET BANCO=BANCODEDADOS.OPENRECORDSET("SELECT NOME FROM FUNCIONARIO WHERE REGISTRO='" & cdbl(TXTNUMEROREGISTRO.TEXT) & "'")
|
|
|
|
|
|
Postada em 09/08/2010 17:21 hs
mesmo como double continua dando o mesmo erro.
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 09/08/2010 20:56 hs
Se for String, sua consulta está certa, se for numeric tire as aspas simples. Veja abaixo se for numeric. SET BANCO=BANCODEDADOS.OPENRECORDSET("SELECT NOME FROM FUNCIONARIO WHERE REGISTRO=" & cdbl(TXTNUMEROREGISTRO.TEXT) |
|
|
|
Fausto
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 09/08/2010 22:41 hs
André qual windows esta usando. Cara fiz um teste com win7 e deu o mesmo erro na qual comentou. Porém,peguei um sistema feito não lembro muito se foi com win98 ou Xp, por incrivél que pareça este não da erro "13".Peguei os mesmos codigos do 98 ou xp e coloquei num formulário criado no win7; deu erro "13".Porque o sistema criado no Win98 ou Xp não da erro e no win7 da este erro. Até eu estou querendo saber porque apresenta esta "danado". Espero que alguém responda. |
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 10/08/2010 10:01 hs
Para o Win7 mude o CDBL para Val(TXTNUMEROREGISTRO.TEXT) VLU// |
|
|
|
