"&titulo_site&"

Bem pessoal, ** A ideia é a seguinte: **Em uma empresa que faz manutenção em equipamentos de informatica, é necessário fazer um acompanhamento das maquinas que já foram "verificadas". Então fiz um formulário para listar todas as maquinas ativas do cliente, listando os seguintes campos: - Código do cliente - Código do equipamento Esses campos são lidos do BD em MySQL e listados um em baixo do outro, junto dos campos para preenchimento do usuário: - Campo Checkbox -> Para o técnico marcar se esse equipamento já passou pela verificação - Campo Ocorrencia **Agora o problema:** Se eu selecionar 1 equipamento da lista(Selecionando o Checkbox), preencher as informações de ocorrência e salvar, sem problemas os dados são salvos no BD. Porem se eu marcar mais de um equipamento, recebo o seguinte erro: Microsoft OLE DB Provider for ODBC Drivers erro '80040e21' O driver ODBC não oferece suporte para as propriedades solicitadas. /workstation/os/preventiva/salva_preventiva_nova.asp, linha 36 **Código do formulário:** ``` <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> ``` <% 'recupera codigo do cliente cod_cli = session("cod_cli") 'Conexão MYSQL - Cadastro de Inventario Set Conex = Server.CreateObject("ADODB.Connection") Conex.ConnectionString = "DSN=inv_cli" Conex.Open 'Conexão MYSQL - Cadastro de OS Set Conex2 = Server.CreateObject("ADODB.Connection") Conex2.ConnectionString = "DSN=os" Conex2.Open 'Abro conexão com a base e tabelas alvo sql = "select * from inventario where codigo = "&cod_cli&" and situacao_equip = 'Ativo'" Set mostra = Server.CreateObject("ADODB.Recordset") mostra.CursorLocation = 3 mostra.open sql, conex, 3,3 'Salva no Banco de Dados sql2 = "select * from reg_preventiva" Set salva = Server.CreateObject("ADODB.Recordset") salva.open sql2, conex2, 3,3 'Contamos quantos registros foram selecionados Inventario = mostra.Recordcount %> ```

- Equipamentos Encontrados: <%=inventario%>
- Selecione os equipamentos que a rotina está sendo realizada
________________________________________________________________

``` **Código da pagina que salva os dados:** <% '--------------------------------------------------------------------------------------------- 'recupera codigo do cliente cod_cli = session("cod_cli") '--------------------------------------------------------------------------------------------- 'Conexão MYSQL - Cadastro de Inventario Set Conex = Server.CreateObject("ADODB.Connection") Conex.ConnectionString = "DSN=inv_cli" Conex.Open 'Conexão MYSQL - Cadastro de OS Set Conex2 = Server.CreateObject("ADODB.Connection") Conex2.ConnectionString = "DSN=os" Conex2.Open 'Conexão MYSQL - Cadastro de clientes Set Conex3 = Server.CreateObject("ADODB.Connection") Conex3.ConnectionString = "DSN=cad_cli" Conex3.Open '--------------------------------------------------------------------------------------------- 'Define o momento de abertura data_inclusao = date() hora_inclusao = time() 'Define Responsavel pela preventiva responsavel = session("login_work1") '--------------------------------------------------------------------------------------------- 'Recupera estado do Checkbox preventiva = request("preventiva" & id) IF preventiva <> "" THEN 'Abro conexão com a base e tabelas de inventario sql = "select ID from inventario where id = "&id Set mostra = Server.CreateObject("ADODB.Recordset") mostra.open sql, conex, 3,3 '--------------------------------------------------------------------------------------------- 'Rotina de repetição While Not mostra.EOF id = mostra("id") cod_cli = Request("cod_cli" & id) equipamento = Request("equipamento" & id) ocorrencia = request("ocorrencia" & id) '--------------------------------------------------------------------------------------------- 'Salva no Banco de Dados sql2 = "select * from reg_preventiva" Set salva = Server.CreateObject("ADODB.Recordset") salva.open sql2, conex2, 3,3 salva("preventiva") = "S" salva("cod_cli") = cod_cli salva("equipamento") = equipamento salva("ocorrencia") = ocorrencia salva("data") = data_inclusao salva("hora") = hora_inclusao salva("contador") = "1" salva("responsavel") = responsavel salva.update salva.close set salva = nothing mostra.MoveNext Wend END IF '--------------------------------------------------------------------------------------------- 'Salva o respectivo numero cotnador no cadastro do cliente, para consulta e atualização 'Salva contador sql3 = "select * from cad_cli_p1 where codigo = "&cod_cli&"" Set salva2 = Server.CreateObject("ADODB.Recordset") salva2.open sql3, conex3, 3,3 salva2("cont_preventivas") = "1" salva2.update salva2.close set salva2 = nothing '--------------------------------------------------------------------------------------------- 'Redireciona para uma pagina de agradecimento e confirmação response.Write(""&titulo_site&"

Manutenções preventivas selecionadas foram salvas!!

Fechar

") 'Finaliza conexão com Banco de Dados conex.close conex2.close conex3.close %>

Everton Viana

Salvando vários registros de uma só vez

ASP+MySQL (Porque?)