Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Nenhum valor foi fornecido para um ou mais parâmetros nece


Rafael R

Pergunta

Olá pessoal

Bomm eu estou com um problema muito serio, acho que tem algo errado, não comigo e sim com o computador, com o banco de dados de um olhada e vê o q vocês acham. Olha q doidera. Eu estou com o seguinte código no site

<%
codigo = request.querystring("codigo")
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(".../lva.mdb") & ";"
sql = "SELECT * FROM  usuarios WHERE codigo=" & codigo & ""
rs.open sql,cn
%>

<%= rs("nome")%>

Bom até aii tudo bem + se eu inverter a coluna onde ele vai fazer a procura, mudar de código para nome, ele não faz a procura da erro

Tipo de erro:

Microsoft JET Database Engine (0x80040E10)

Nenhum valor foi fornecido para um ou mais parâmetros necessários.

/lva/usuario/index.asp, line 7

Eu percebi q o erro so se da quando ele faz uma procura no banco de dados onde a coluna é definida como “MEMORANDO” se for “NUMERAÇÃO AUTOMATICA” ele faz a procura corretamente. Não sei se o erro esta relacionado com isso....

Q q vocês achamm

Grato Rafael Rocha

Editado por andreia_sp
Utilize tags para código, facilitam a visualização. Andreia_Sp
Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0
Tipo de erro:

Microsoft JET Database Engine (0x80040E10)

Nenhum valor foi fornecido para um ou mais parâmetros necessários.

/lva/usuario/index.asp, line 7

esse erro ocorre quando o nome de algum campo digitado na consulta não existe na tabela.

você diz q o outro campo é do tipo memorando, mas você ta pondo os valores entre aspas??

tem q ser tipo isso:

sql = "SELECT * FROM usuarios WHERE nome = '" & nome & "'"

Link para o comentário
Compartilhar em outros sites

  • 0

Podem me explicar porque o meu tá dando esse mesmo erro?

Detalhe: se eu colocar a informação 1 no lugar de IDLISTBOX, o codigo funciona.

rs.Open "Select * from movestoque where id = '" & IDLISTBOX & "'", db, 3, 3

OBS: a vatiável IDLISTBOX está trazendo a informação 1 normalmente do listbox.

 

 

Sub saldo(ID)
Dim Soma_Dh As Double
Dim volentrada
Dim volsai
Dim IDLISTBOX
Dim calculovol


IDLISTBOX = UserForm_estoque.ListBoxProdutos.Value

conectarbanco
rs.Open "Select * from movestoque where id = '" & IDLISTBOX & "'", db, 3, 3


        While Not rs.EOF
                       Soma_Dh = Soma_Dh + rs!volent.Value
                    rs.MoveNext
                Wend
        volentrada = Soma_Dh
        
        
        While Not rs.EOF
                       Soma_Dh = Soma_Dh + rs!volsai.Value
                    rs.MoveNext
                Wend
        volsai = Soma_Dh
        
          
calculovol = volentrada - volsai
        
rs.Close
db.Close
FechaDB

conectarbanco
rs.Open SQL1, db, adOpenKeyset, adLockOptimistic

rs!volume = calculovol
rs.Update
rs.Close
db.Close
FechaDB

End Sub
 

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...