acesso a dados asp access

Jr - Santos · Outubro 13, 2009

qual é o banco que você utiliza? e qual a conexão?

Novembro 16, 2009

bom dia!

agora tentando excluir dados dessa minha tabela da o seguinte erro:

Erro de sintaxe na instrução DELETE.

então eu tiro o on erro resume next e ele me informa o erro na linha 17 que contém:

StrInsert = "DELETE INTO fontes ( idfonte ) VALUES ('"&nomejornal&"')"


Set Rs = Cn.Execute(StrInsert)

obrigado

Novembro 16, 2009

Pessoas, quando eu utilizo assim:

StrInsert = "DELETE FROM fontes nomejornal WHERE ('"&nomejornal&"')"

ele deleta tudo menos a fonte selecionada... queria fazer o contrario, so excluir a fonte que foi selecionada.

obrigado, um dia chego la....

xanburzum · Novembro 16, 2009

tenta assim:

SQLdel="DELETE FROM fontes WHERE codigo='"&nomejornal&"'"

Novembro 16, 2009

Grande xanburzum

estou quaseee lá.. rs

tentei assim:

StrInsert ="DELETE FROM fontes WHERE codigo='"&nomejornal&"'"

e deu erro:

Tipo de erro:

Microsoft JET Database Engine (0x80040E10)

Nenhum valor foi fornecido para um ou mais parâmetros necessários.

/datasafe/WEB/noticias/admin/deletarfontes2.asp, line 18

então mudei pra:

StrInsert ="DELETE FROM fontes WHERE idfonte='"&nomejornal&"'"

e deu erro:

Tipo de erro:

Microsoft JET Database Engine (0x80040E07)

Tipo de dados imcompatível na expressão de critério.

/datasafe/WEB/noticias/admin/deletarfontes2.asp, line 18

xanburzum · Novembro 16, 2009

dá um response.write na sua string SQL para ver o k esta sendo passado, e certifique-se k o tipo do campo esteja correto

Novembro 17, 2009

acho que não fiz certo, mas o resultado é esse:

DELETE FROM fontes (idfonte,fonte) VALUES ('','')

Patrique · Novembro 17, 2009

Esta faltando os valores no value

DELETE FROM fontes (idfonte,fonte) VALUES ('','')

O certo seria mais ou menos assim

DELETE FROM fontes (idfonte,fonte) VALUES ('1','arial')

Poste o code de como esta ae cara.

[]'s

Novembro 17, 2009

segue as paginas, desde já agradeço.

mas tem um monte de "gatos" ai, fui pegando explicações de varias pessoas, e fui juntando tudo, ta uma zona... mas chego lá

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim Cn, Rs, nomejornal, StrSql

Set Cn = Server.CreateObject("ADODB.Connection")
StrCon ="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Site\datasafe\Web\Dados\noticias.mdb;"
Cn.Open(StrCon)

Set Rs = Server.CreateObject("ADODB.RecordSet")

idfontes = Trim(Request.QueryString("idfontes"))
fontes = Trim(Request.QueryString("fontes"))


StrSql = "Select fonte, idfonte from fontes where fonte = '"&fontes&"' ORDER BY fonte ASC "

'StrSql = "Select fonte, from fontes where fonte = "&njornal&" " 
'Rs.open(StrSql)
%>
<html>
<head>
<title>Alterar Noticias</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<!--#include file="estilo.css" -->

</head>
<!-- teste de atualização de fontes -->
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td>
	 <table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
 	    <tr> 
          <td>Atualizando as fontes de Noticias :<br></td>
        </tr>
      </table>
	</td>
  </tr>
  <tr> 
    <td height="0" valign="top"> 
      <form method="post" name="form" >
          
        <table width="96%" border="0" align="center" cellpadding="5" cellspacing="2">
          <tr> 
            <td height="25" colspan="4" align="left">Fontes adicionadas:               <br><br>   <select name="njornal" size="20" onChange="javascript: teste2();">
                <option id="vl" name="vl"> </option>
                <%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = cn
'rs.Source = "SELECT DISTINCT idfonte as Nome FROM fontes Order By idfonte ASC"
rs.Source = "SELECT DISTINCT fonte as Nome FROM fontes Order By fonte ASC"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
rs_numRows = 0
if not rs.Eof then
	do while not rs.eof
%>
                <option value="<% =Rs("Nome") %>"> <%=Rs("Nome")%></option>
                <%
	rs.movenext
	loop
end if
Rs.Close()
Set Rs = Nothing
%>
              </select><br><br><br><br>
              
             
              
              
              Nome do Jornal: <input name="nomejornal" type="text" id="nomejornal" size="70" maxlength="100" onFocus="javascript: teste();"></td>
              
			  <script language="javascript1.2">
			function teste2(){
				document.form.nomejornal.value=""
				document.form.nomejornal.value = document.form.njornal.value
				
				
				}
            
          			  
			  function teste(){
				testee = document.form.njornal.value ;
				
				if (testee.length == 0){
					document.form.nomejornal.value = "Digite ou escolha uma fonte na caixa"
					}
					else {
					document.form.nomejornal.value = testee
					}
				  }
				  
				  function zerar(){
				  
				  }
			  
			  </script>
              
          </tr>
          <tr> 
            <td height="25" colspan="4">   </td>
          </tr>
          <tr>
            <td width="20%"><input type="hidden" name="html">
              <input name="ok" type="submit" value="Adicionar" onClick="javascript: Adicionar()">
            <script language="JavaScript">
					function Adicionar() {
						 window.location.href("InserirFontes.asp") 
					}
			
			
			
					function Salvar() {
						 window.location.href("Atualizarfontes.asp") 
					}
					
					</script>
</td>
            <td width="25%"><input type="submit" name="atualizfont" onClick="javascript: Salvar()" value="Atualizar"></td>
            <td width="25%"><input type="button" name="excluirfont" onClick="javascript: teste12()" value="Excluir"> 
             
            <script language="javascript1.2">
			function teste12(){
				comb = document.form.njornal.value
				tex = document.form.nomejornal.value
				if
				(comb == tex){ 
				alert("A fonte "+tex+" será excluida")
				window.location.href("deletarfontes2.asp")
			    <!-- document.form.submit("deletarfontes2.asp") -->
				
				}
				
				else if (comb != tex){
				alert('fonte diferente da selecionada')
				}
				else {
				alert( 'Selecione a fonte que deseja excluir ou digite uma')
				}
				}
                </script>
            </td> 
            <td width="25%"><a href="default.asp"><img src="imagens/lupa.gif" width="16" height="16" border="0"> 
              voltar para noticias</a></td>
          </tr>
        </table>
	</form>
	</td>
  </tr>
</table>

<%
function ArrumaData(Strdata) 
	dia = day(Strdata)
	mes = month(Strdata)
	ano = year(Strdata)
	if len(dia)=1 then
	dia = "0"&dia
	end if
	if len(mes)=1 then
	mes = "0"&mes
	end if
	ArrumaData = dia&"/"&mes&"/"&ano
end function
%>
</body>
</html>

Agora segue a a pagina deletarfontes2.asp

<%
Session.LCID = 1046
%>
<!--#include file="Connections/Cn.asp" -->
<%
Dim Cn , StrInsert , Rs, nomejornal

nomejornal = request.Form("nomejornal")
idfonte = request.Form("idfonte")

Set Cn =  Server.CreateObject("ADODB.Connection")
Cn.Open (MM_Cn_STRING)

'StrInsert = "DELETE INTO fontes (nomejornal) VALUES ('"&nomejornal&"')"
'StrInsert = "DELETE FROM fontes nomejornal WHERE ('"&nomejornal&"')"
'StrInsert = "DELETE FROM fontes WHERE idfonte='"&nomejornal&"'"
 StrInsert = "DELETE FROM fontes (idfonte,fonte) VALUES ('"&idfonte&"','"&nomejornal&"')"

 Set Rs = Cn.Execute(StrInsert)

'response.Write(strinsert)
	
Cn.close
	
Set Rs = Nothing
Set Cn = Nothing

if err = 0 Then
	response.redirect "fonteEditar.asp"
else
response.Write (Err.description)
Response.Write("<br><br>" & Corpo)
Response.End()
end if
%>

to apanhando ba garai..

xanburzum · Novembro 17, 2009

ele gera o mesmo erro !?!?!

Novembro 17, 2009

gera esse:

Erro de sintaxe na cláusula FROM.

bem aqui:

StrInsert = "DELETE FROM fontes (idfonte,fonte) VALUES ('"&idfonte&"','"&nomejornal&"')" Set Rs = Cn.Execute(StrInsert)

Mário Monteiro · Novembro 26, 2009

voce está usando um DELETE com a sintaxe de um INSERT?

xanburzum · Novembro 26, 2009

para usa DELETE:

		SQLdel="DELETE FROM login WHERE codigo="&varcodigo&""

INSERT :

SQLinsert="INSERT INTO login(login,senha,email) values('"&varlogin&"','"&varsenha&"','"&varemail&"')"

amaury caldeira · Novembro 27, 2009

prezados,

estou tentando acessar um banco de dados em acess, mais esta dado um erro de String.

Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.SelectedIndexChanged

Dim ConEditora As String

Dim RsLivros As String

Const concaminho = "C:\Documents and Settings\amaury caldeira\Desktop\banco de dados\editora.mdb"

ConEditora = Server.CreateObject("ADODB.Connection")

RsLivros = Server.CreateObject("ADODB.Connection")

ConEditora.open("driver={microsoft acess driver (*.mdb)};dbq = " & concaminho)

RsLivros.open("livros", ConEditora)

Response.Write("codigo:" & RsLivros.fields("codlivros") & "<br>" & " titulo do livro: " & RsLivros.fields("titulo"))

RsLivros.close()

ConEditora.close()

End Sub

xanburzum · Novembro 27, 2009

você esta usando o ASP.Net

Arquivado

acesso a dados asp access

Recommended Posts

Jr - Santos 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

00001 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

00001 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

00001 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

00001 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

00001 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

00001 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

amaury caldeira 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Javascript - Calcular Valores Monetário em Tempo Real

Fóruns

Tempo Real

Informação importante