Access + SQL

[thiago.serra 0]

Para utilizar SQL em um diretório, o que devo configurar???

[Salgado 4]

Explique melhor isso. Utilizar SQL em um diretório?

[thiago.serra 0]

+/- isso: eu baixei um código para manipulação de banco de dados em Access, que utiliza comandos de SQL (pelo q eu entendi, SQL é uma interface entre o Script e o banco, não?). O problema é que operações de gravação não estão funcionando, e eu dei as permissões necessárias do IIS. O que fazer?

[adtv 0]

Cara Sql é um Sistema Gerenciador de Banco de Dados da Microsoft, ou seja, tipo um access so q mais robusto e com mais funções certo.E qto a sua isntrução de inclusao estar com erro, seria legal se você postasse aki o erro ai da pra gente ajudar.

[thiago.serra 0]

HTTP 500.100 - Servidor interno Erro - erro do ASPInternet Information Services--------------------------------------------------------------------------------Informações técnicas (para a equipe de suporte)Tipo de erro:Microsoft JET Database Engine (0x80040E07)Tipo de dados imcompatível na expressão de critério./asp/esta/AdminTable.asp, line 280

[BigPaul 0]

o que está na linha 280?

[asp.net 0]

+/- isso: eu baixei um código para manipulação de banco de dados em Access, que utiliza comandos de SQL (pelo q eu entendi, SQL é uma interface entre o Script e o banco, não?). O problema é que operações de gravação não estão funcionando, e eu dei as permissões necessárias do IIS. O que fazer?

Adtv, neste caso o SQL que ele está se referindo é a linguagem SQL.

[thiago.serra 0]

Set MyRs=MyConn.Execute(MySQL)

[Salgado 4]

Poste a sua SQL, o erro é nela. Você deve estar tentando inserir numero num campo texto ou coisa parecida.

[thiago.serra 0]

ASP [/tr][tr]'**************************************

'Edit existing Item

'**************************************

Sub EditItem()

 

Response.write ("<h2>Edit Record in " & strTable & "</h2>")

 

which=request("which")

 

if isNumeric(which) then

MySQL="SELECT * FROM " & strTable & " Where " & strKey & " = " & which

else

MySQL="SELECT * FROM " & strTable & " Where " & strKey & " = '" & which & "'"

end if

Set MyRs=MyConn.Execute(MySQL)

 

Response.write ("<FORM ACTION=""" & strFile & "?mode=EditItemAction"" METHOD=POST>")

Response.write ("<input name=""ID"" type=""hidden"" value=""" & MyRs(strKey) & """>")

Response.write ("<table>")

 

howmanyfields=MyRs.fields.count -1

 

for i=0 to howmanyfields

 

if Not MyRs(i).name = "ID" then

ThisRecord = MyRs(i)

ThisRecordName = MyRs(i).name

If IsNull(ThisRecord) or ThisRecord = "" Then

ThisRecord = " "

end if

Response.write ("<tr>")

Response.write ("<td align=""right"">" & ThisRecordName & ": </td>")

Response.write ("<td> <input name=""" & ThisRecordName & """ type=""text"" value=""" & MyRs(i) & """></td>")

Response.write ("</tr>")

end if

next

 

Response.write ("<tr>")

Response.write ("<td align=""right""><INPUT NAME=""Submit"" TYPE=Submit Value=""Update""></td>")

Response.write ("<td><INPUT NAME=""Reset"" TYPE=Reset Value=""Reset""></td>")

Response.write ("</tr>")

Response.write ("</table>")

Response.write ("</FORM>")

 

Response.write ("<a href=""" & strFile & """>Back to list</a>")

 

MyRs.close

Set MyRs= Nothing

 

End Sub

[/tr]

[Salgado 4]

Esse bloco que você postou só monta uma tabela para se editar, Procure uma Sub chamada "EditItemAction"

[thiago.serra 0]

ASP [/tr][tr]'**************************************

'Edit existing Item Action

'**************************************

Sub EditItemAction()

 

which = Request(strKey)

 

if isNumeric(which) then

MySQL="SELECT * FROM " & strTable & " Where " & strKey & " = " & which

else

MySQL="SELECT * FROM " & strTable & " Where " & strKey & " = '" & which & "'"

end if

 

'MySQL="Select * from " & strTable

Set MyRs=MyConn.Execute(MySQL)

 

howmanyfields=MyRs.fields.count -1

 

for i=0 to howmanyfields

if Not MyRs(i).name = "ID" then

str = MyRs(i).name

strNames = Request(str)

if not i = howmanyfields then

str1 = str1 & "[" & str & ] = '" & strNames & "', "

else

str1 = str1 & "[" & str & ] = '" & strNames & "'"

end if

end if

next

 

if isNumeric(which) then

MySQL1="UPDATE " & strTable & " SET " & str1 & " Where " & strKey & " = " & which

else

MySQL1="UPDATE " & strTable & " SET " & str1 & " Where " & strKey & " = '" & which & "'"

end if

 

'MySQL1="UPDATE " & strTable & " SET " & str1 & " Where ID=" & which

 

Set MyRs1=MyConn.Execute(MySQL1)

 

MyConn.Close

set MyConn=nothing

 

Response.Redirect strFile

 

End Sub

[/tr]

[thiago.serra 0]

ninguém sabe onde está o erro???

[Patricia 0]

Thiago este erro é porque você tá tentando inserir o valor de um tipo (ex. texto) em um campo do bd que aceita somente outro tipo (ex. numero)então é aí que você tem que tentar, tira as aspas simples, ve se o erro muda, enfim, sabendo o que é erro agora vai testando outros modosfalowwww