The "Insert" and "Delete" forms are interacting with the data from the MySQL database table. Except The form manager-registry that has the "Change" registry function:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="pt-br">
<%
'Dados para a conexão com o banco de dados
driver = "{MySQL ODBC 3.51 Driver}" ' Driver para conexão ODBC
servidor = "localhost" ' Nome DNS ou do seu servido HTTP
usuario = "root" ' Nome de usuário para acesso ao MySQL
senha = "admin" ' Senha de acesso
banco = "integracao" ' Nome do banco de dados
'Cria um objeto de conexão com banco de dados
Set cnnDB = Server.CreateObject("ADODB.Connection")
'Cria a string de conexão
connStr = "driver=" + driver + "; uid=" + usuario + "; "
connStr = connStr + "pwd=" + senha + "; database=" + banco
'Seta a string de conexão, e realiza a conexão
cnnDB.ConnectionString = connStr
cnnDB.Open
'Caso ocorra um erro, prossiga até o tratamento de erro
On error resume next
'Verifica se o arquivo foi chamado a partir de um formulário
If Request.QueryString("acao") = "adicionar" then
sql = " INSERT INTO LIVROS (LIVRO, AUTOR, EDITORA) VALUES ( "
sql = sql & "'" & Request.Form("FormNomeLivro") & "', "
sql = sql & "'" & Request.Form("FormNomeAutor") & "', "
sql = sql & "'" & Request.Form("FormNomeEditora") & "' "
sql = sql & ")"
'Executa a expressão SQL no servidor
cnnDB.Execute sql
'Verifica o sucesso da operação, baseada ma variável 'err'
If err.number = 0 then
Response.Write("Operação realizada com sucesso")
Else
Response.Write("Erro: " + err.description)
End if
'Executa a alteração do registro, se solicitada
Elseif Request.QueryString("acao") = "editar" then
sql = "UPDATE LIVROS SET "
sql = sql & "LIVRO = '" & Request.Form("FormNomeLivro") & "', "
sql = sql & "AUTOR = '" & Request.Form("FormNomeAutor") & "', "
sql = sql & "EDITORA = '" & Request.Form("FormNomeEditora") & "' "
sql = sql & "WHERE ID = " & Request.Form("FormCodigoLivro")
'Executa a expressão SQL no servidor
cnnDB.Execute sql
'Response.Write "Query = " & sql
' Verifica o sucesso da operação, baseada na variável 'err'
If err.number = 0 then
Response.Write("Operação realizada com sucesso")
Else
Response.Write("Erro: " + err.description)
End if
' Execute a exclusão do registro, se solicitada
Elseif Request.QueryString("acao") = "excluir" then
sql = " DELETE FROM LIVROS WHERE ID = "
sql = sql & Request.QueryString("buscacodigo")
' Ececuta a expressão SQL no servidor
cnnDB.Execute sql
'Verifica o sucesso da operação, baseada na variável 'err'
If err.number = 0 then
Response.Write("Operação realizada com sucesso")
Else
Response.Write("Erro: " + err.description)
End if
End if
%>
<br /><a href="inserir.asp">Clique aqui para inserir um novo registro.</a>
<br /><a href="lista.asp">Clique aqui para visualizar os registros.</a>
</body>
</html>
When you run a change in a log shows.
Error: [MySQL] [ODBC 3.51 Driver] [mysqld-5.7.13-log] You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1