Ola pessoal Sou novo aki no Forum e Gostaria de Agradecer aos Criadores do VBWEB pelo site q me ajudou muito com a Linguagem VB6 a minha duvida é a seguinte

 

tenho um Função q Atualiza meus dados em uma Tabela no MSSQL 2000 e essa função utiliza de Parametros

 

eX:

 

Private Function Editar()
Dim SQL As String

 

SQL = "UPDATE USUARIO SET(Nome=?,Cargo=?,Setor=?) WHERE ID=? VALUES(?,?,?,?)"

    With Comando
        .ActiveConnection = strConection
        .CommandType = adCmdText
        .CommandText = SQL
        .Execute , Array(txtuser(0).Text, txtuser(1).Text, txtuser(2).Text, ID)
    End With

Set Comando = Nothing

End Function

 

e ele da erro de Nenhum Valor foi Fornecido para um ou mais parametros

Entao Rapaz era isso mesmo muito Obrigado estava confundindo com a de Incluir mas eu procurei tanto q acabei descobrindo outras formas de Alterar tmb mas essa com Array é mais curta e rapida vai as duas formas

 

com Arrays

 

SQL = "UPDATE USUARIO SET Nome=?,Cargo=?,Setor=? WHERE ID=? "

    With Comando
        .ActiveConnection = strConection
        .CommandType = adCmdText
        .CommandText = SQL
        .Execute , Array(txtuser(0).Text, txtuser(1).Text, txtuser(2).Text, ID)
    End With

Set Comando = Nothing

End Function

 

Com parametros

 

With Comando
        .ActiveConnection = strConection
        .CommandType = adCmdText
        .Prepared = True
        .CommandText = SQL
        .Parameters.Append Comando.CreateParameter("Nome", adVarChar, adParamInput, 35)
        .Parameters.Append Comando.CreateParameter("Cargo", adVarChar, adParamInput, 35)
        .Parameters.Append Comando.CreateParameter("Setor", adVarChar, adParamInput, 35)
        .Parameters("Nome") = txtuser(0).Text
        .Parameters("Cargo") = txtuser(1).Text
        .Parameters("Setor") = txtuser(2).Text
        .Execute
    End With

 

Valeuuuu