parametro

[eduardo alberto 0]

Bom dia a todos !!! estou criando uma pagina em ASP e a mesma esta dando erro de parametro segue o erro

Tipo de erro:Microsoft JET Database Engine (0x80040E10)O parâmetro ?_1 não tem valor padrão./summersoft/web/src/cadastros/fase_processo.asp, line 84

detalhe: eu já alterei o parametro umas cinco vezes e não adiantou, já inserir adInteger,adLongVarChar e outro a variavel que esta no banco e um inteiro longo se poderem me ajudar agradeço at+

[jrcardozo 4]

o que tem na linha 84?

[eduardo alberto 0]

objcm.Execute

[jrcardozo 4]

amigo, poste mais informações, só com isso não tem como ter ideia. Se possivel coloque uma parte do código próximo a linha 84 para vermos o que é feito antesSó adiantando, se esse objeto é uma conexão, verifique se você está passando a instrução Sql correta

[eduardo alberto 0]

Foi mau ai esta o codigo todo

ASP

<%

 

 

 

 

 

 

 

 

 

        ' Variaveis de conexão com o banco

 

 

 

        Dim objconn

 

        Dim objrs

 

        Dim objparam

 

        Dim rsconsulta

 

        Dim dc_fase_processo

 

        Dim cd_usuario_atualizacao

 

        Dim dt_ultima_atualizacao

 

        Dim sql    

 

       

 

           

 

       

 

    ' Vai servi para indentificar os imput type'

 

    cd_usuario_atualizacao = request("cd_usuario_atualizacao")

 

    dc_fase_processo =request("dc_fase_processo")

 

 

 

 

 

 

 

   

 

  ' Caminho do banco de Dados

 

    strProvider = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=C:InetpubwwwrootSummerSoftDadossummer_2000.mdb;"

 

 

 

    'Isto cria uma instância de um objeto Connection do ADO.

 

    'Há outros quatro objetos ADO disponíveis, cada um com diferentes métodos e

 

    'propriedades que permitem fazer praticamente tudo com os dados do banco de dados.

 

    Set objConn = Server.CreateObject("ADODB.Connection")

 

   

 

    'O método Open do objeto Connection usa a seqüência de conexão para

 

    ' criar uma conexão ao banco de dados.

 

    objconn.ConnectionString = strProvider

 

    objConn.Open

 

     

 

    Set objcm = Server.CreateObject("ADODB.Command")

 

   

 

    'A propriedade ActiveConnection permite anexar a uma conexão Open.

 

    'É como o objeto Connection é vinculado ao objeto Command.

 

    set objcm.ActiveConnection = objConn

 

   

 

   

 

    'Definir a consulta.

 

    'Há muitos tipos de consultas, permitindo que você adicione, remova ou obtenha dados.

 

    'Esta consulta irá adicionar seus dados ao banco de dados, usando as palavras-chave INSERT INTO..

 

    'Como estamos usando o objeto Command, precisamos colocar nossa consulta na propriedade

 

    ' CommandText.

 

    'Aqui, empresa é o nome da tabela.

 

    strcommandstring = "INSERT INTO fase_processo(cd_usuario_atualizacao,dc_fase_processo)VALUES(?,?)"

 

   

 

 

 

    'É aqui que você vê o poder do objeto Command.

 

    'Colocando pontos de interrogação na seqüência acima, podemos usar a coleção Parameters

 

    ' para que o ADO substitua o ? pelos parâmetros detalhados abaixo.

 

    'cm.CreateParameter formata o parâmetro para você.

 

    'cm.Parameters.Append anexa o parâmetro à coleção.

 

    'Certifique-se de que estejam na mesma ordem que (cd_empresa,dc_nome_empresa,dc_cgc_cpf).

 

 

 

    'instanciar o objeto command  set objcomd As new ADODB.Comand

 

   ' set objcomd = new ADODB.Command

 

 

 

    'definindo a stored Procedure

 

    objcm.commandtype = adcmdtext

 

    objcm.CommandText = strcommandstring

 

                                       

 

 

 

    'paramentros de conexão com o banco de dados Access

 

    Set objparam = objcm.CreateParameter("cd_usuario_atualizacao",adLongVarBinary,adParamInput,10)

 

    objparam.value = cd_usuario_atualizacao

 

    objcm.Parameters.Append objparam

 

 

 

    Set objparam = objcm.CreateParameter("dc_fase_processo",adVarChar,adParamInput,200)

 

    objparam.value = dc_fase_processo

 

    objcm.Parameters.Append objparam

 

    objcm.Execute

 

   

 

    response.write ("Dados Cadastrados com Sucesso!")    

 

 

 

 

 

%>