rlinop
|
PORTO ALEGRE
RS - BRASIL
|
|
Postada em 17/09/2004 11:50 hs
Gente é o seguinte, estou tentando aprender a trabalhar com uma conexão ADO, agora estou tentando fazer uma consulta por codigo, tá o que acontece é o seguinte eu tenho um botão que chama um input box aonde eu informo o código de quem estou procurando, até ai tudo bem mas neste input box estou passando como parâmetro para a minha função de consulta o número que foi digitado quando debugo acontece o seguinte:
Public Function Consultar(ByVal IntCodigo As Integer) As Variant
Set Rs = CreateObject("ADODB.Recordset")
With Rs
.Open "select * from Pessoal where Codigo = " & IntCodigo & "", Cnn, adOpenKeyset, adLockOptimistic
Quando chega no .Open acontece e seguinte mensagem:
"The connection cannot be used to perform this operation. It is either closed or invalid in this context."
Alguém sabe me dizer o que está acontecendo??
Muito agradecido.
Rafael Portal |
|
|
|
|
|
|
|
Postada em 17/09/2004 12:01 hs
With Rs
.Open "select * from Pessoal ", Cnn, adOpenKeyset, adLockOptimistic .Filter = "Codigo = "& IntCodigo
Denis de L Felix msn - dennysfelix_senac@hotmail.com
|
|
|
|
|
|
Postada em 17/09/2004 13:09 hs
Ou melhor faz o seguinte: dim codigo as integer voltar: codigo = inputbox(" Digite o código ! ") if rs.bof or rs.eof then msgbox " Código não encontrado ! ", vbinformation goto voltar: end if with Rs .open "select * from Pessoal where = '" + codigo + "'", cnn, adopendynamic end with T+
João Carlos Junior Administrador de Redes - Windows 2003 Srv, Linux Desenvolvedor Visual Basic 6.0 com Access, SQL Server, VB .Net e Crystal Reports X Iniciante em C# e ASP .NET
|
|
|
|
rlinop
|
PORTO ALEGRE
RS - BRASIL
|
|
Postada em 17/09/2004 13:21 hs
Valeu gente obrigado pelas dicas! |
|
|
|
|
