|
|
Postada em 16/07/2005 16:58 hs
Meu Access está de pirraça comigo ou só insere quando quer. O fato é que não estou conseguindo inserir dados em nenhuma tabela. O pior: tenho q entregar esse projeto SEGUNDA-FEIRA!!!!
Vejam o código:
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/Aluno/retrocine/BD/bd_programação.mdb"
desc = Request.Form("descricao")
ano = Request.Form("ano")
if (ano >=1960) and (ano<=1985) then
cod_sala=1
else
if (ano >=1986) and (ano<=1990) then
cod_sala=2
else
if (ano >=1991) and (ano<=1995) then
cod_sala=3
else
if (ano >=1996) and (ano<=2000) then
cod_sala=4
else
cod_sala=5
end if
end if
end if
end if
hora = Request.Form("horario")
'response.Write("<br> SQL: " & "insert into tb_lista_filme(Filme,Ano,Horario,Cod_sala) values('" & desc & "'," & ano & ",'" & hora & "'," & cod_sala & ")")
Conexao.Open
Conexao.Execute "insert into tb_lista_filme(Filme,Ano,Horario,Cod_sala) values('" & desc & "'," & ano & ",'" & hora & "'," & cod_sala & ")"
Conexao.Close
Set Conexao = Nothing
Há algo de errado com ele? Ou seria pirraça do Access mesmo???
Aguardo a ajuda dos programadores de plantão.
|
|
|
|
|
|
Martini
|
PAROBÉ
RS - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 18/07/2005 12:38 hs
eu faço assim .... <%
Dim Nome, SQL, rst
Nome = trim(Request("Nome"))
Nome = ucase(Nome)
if Nome <> "" then
SQL = "Select * From Categorias Where [Nome da categoria] = '"&Nome&"'"
Set rst = server.createobject("adodb.recordset")
rst.open SQL, vgdb, 2, 2
if rst.eof then
rst.addnew
rst("Nome da categoria") = Nome
rst.update
rst.close
set rst = nothing
Response.Redirect("Default.asp")
else
rst.close
set rst = nothing
Response.Redirect("Inserir_Categoria_Erro.asp?Categoria="&Nome)
end if
else
Response.Redirect("Inserir_Categoria_Erro.asp?Categoria="&Nome)
end if
%> |
|
|
|
|
|
|
|
