Oque esta dandoerrado aqui?

[fabiosc80 0]

porque esse Insert naoesta funcionando na minha página ASPé ACCESS... Set ConexaoCat = Server.CreateObject("ADODB.RecordSet") SQL = "INSERT INTO tbCategoria (codigo, categoria, p)" SQL = SQL & " VALUES (" & codigo & ",'" & categoria & "','S')" ConexaoCat.Open SQL, ConexaoME ajudem Por Favor

[Salgado 4]

Tente fazer assim:

SQL = "INSERT INTO tbCategoria (codigo, categoria, p)"

SQL = SQL & " VALUES (" & codigo & ",'" & categoria & "','S')"

Conexao.Execute(SQL)

[/tr]

E nesse seu código, está dando algum erro?

[Mário Monteiro 179]

dá algum erro?

[fabiosc80 0]

Tente fazer assim:

ASP [/tr][tr]SQL = "INSERT INTO tbCategoria (codigo, categoria, p)"

SQL = SQL & " VALUES (" & codigo & ",'" & categoria & "','S')"

Conexao.Execute(SQL)

[/tr]

E nesse seu código, está dando algum erro?

Não pode ser com execute.

 

Fala que o insert esta incorreto.

[Mário Monteiro 179]

escreve a sql

[fabiosc80 0]

escreve a sql

Set ConexaoCat = Server.CreateObject("ADODB.RecordSet") SQL = "" SQL = SQL & "INSERT INTO tbCategoria (codigo, categoria, p)" SQL = SQL & " VALUES (" & codigo & ", '" & categoria & "', 'S')" ' P = principal (Sim) ConexaoCat.Open SQL, Conexao

[Salgado 4]

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

SQL = ""

SQL = SQL & "INSERT INTO tbCategoria (codigo, categoria, p)"

SQL = SQL & " VALUES (" & codigo & ", '" & categoria & "', 'S')" ' P = principal (Sim)

Response.Write SQL

Response.End

ConexaoCat.Open SQL, Conexao

[/tr]

E cola o resultado aqui.

 

 

Ah, pq não poderia usar o Execute?

[Mário Monteiro 179]

[tr][/tr][tr][/tr]

ASP	Set ConexaoCat = Server.CreateObject("ADODB.RecordSet") SQL = "" SQL = SQL & "INSERT INTO tbCategoria (codigo, categoria, p)" SQL = SQL & " VALUES (" & codigo & ", '" & categoria & "', 'S')" ' P = principal (Sim) Response.Write SQL Response.End ConexaoCat.Open SQL, Conexao

E cola o resultado aqui.

 

 

Ah, pq não poderia usar o Execute?

esta escrita de sql que falei

 

escreve o resultado do Response.Write SQL

[fabiosc80 0]

ASP [/tr][tr]Set ConexaoCat = Server.CreateObject("ADODB.RecordSet")

SQL = ""

SQL = SQL & "INSERT INTO tbCategoria (codigo, categoria, p)"

SQL = SQL & " VALUES (" & codigo & ", '" & categoria & "', 'S')" ' P = principal (Sim)

Response.Write SQL

Response.End

ConexaoCat.Open SQL, Conexao

[/tr]

E cola o resultado aqui.

 

 

Ah, pq não poderia usar o Execute?

INSERT INTO tbCategoria (codigo, categoria, p) VALUES (, 'sadsds', 'S')

 

saiu isso.

 

Nao to usando execute pq esse site estava em SQLSERVER e AGORA é ACCESS

e se eu mudar aqui vou ter que mudar osite todo.

[Mário Monteiro 179]

percebe agora que não esta inserindo o codigo??

[Mário Monteiro 179]

SQL = SQL & "INSERT INTO tbCategoria (codigo, categoria, p)"SQL = SQL & " VALUES (" & codigo & ", '" & categoria & "', 'S')"

você pega o codigo daonde?

[fabiosc80 0]

percebe agora que não esta inserindo o codigo??

sim , acho é porque tem um código antes que verifica se éo primeiro ou ultimo registro.veja ele. 'PEGAR ULTIMO CODIGO DE CATEGORIAS NO BANCO DE DADOS Set ConexaoUlt = Server.CreateObject("ADODB.RecordSet") SQL = "SELECT top 1 codigo FROM tbCategoria order by codigo desc" ConexaoUlt.Open SQL, Conexao If Not ConexaoUlt.EOF Then codigo = CInt(ConexaoUlt("codigo"),0) + 1 'novo codigo Else codigo = "1" End If

[fabiosc80 0]

percebe agora que não esta inserindo o codigo??

sim , acho é porque tem um código antes que verifica se éo primeiro ou ultimo registro.veja ele. 'PEGAR ULTIMO CODIGO DE CATEGORIAS NO BANCO DE DADOS Set ConexaoUlt = Server.CreateObject("ADODB.RecordSet") SQL = "SELECT top 1 codigo FROM tbCategoria order by codigo desc" ConexaoUlt.Open SQL, Conexao If Not ConexaoUlt.EOF Then codigo = CInt(ConexaoUlt("codigo"),0) + 1 'novo codigo Else codigo = "1" End If

codigo = Caract(Request("codigo")) categoria = Caract(Request.Form("categoria"))

[Mário Monteiro 179]

não entendiqual você usao docodigo = Caract(Request("codigo"))ou o doIf Not ConexaoUlt.EOF Thencodigo = CInt(ConexaoUlt("codigo"),0) + 1 'novo codigoElsecodigo = "1"End If

[fabiosc80 0]

não entendiqual você usao docodigo = Caract(Request("codigo"))ou o doIf Not ConexaoUlt.EOF Thencodigo = CInt(ConexaoUlt("codigo"),0) + 1 'novo codigoElsecodigo = "1"End If

codigo = Caract(Request("codigo"))"serve pra pegar o codigo atual"If Not ConexaoUlt.EOF Thencodigo = CInt(ConexaoUlt("codigo"),0) + 1 'novo codigoElsecodigo = "1"End If Soma o ultimo com mais 1

[Mário Monteiro 179]

If Not ConexaoUlt.EOF Then

codigo = CInt(ConexaoUlt("codigo"),0) + 1 'novo codigo

Else

codigo = "1"

End If

depois disso da um

 

[tr][/tr][tr][/tr]

ASP	response.write "codigo = " & codigo

 

e ve se escreve o codigo

[fabiosc80 0]

não entendiqual você usao docodigo = Caract(Request("codigo"))ou o doIf Not ConexaoUlt.EOF Thencodigo = CInt(ConexaoUlt("codigo"),0) + 1 'novo codigoElsecodigo = "1"End If

codigo = Caract(Request("codigo"))"serve pra pegar o codigo atual"If Not ConexaoUlt.EOF Thencodigo = CInt(ConexaoUlt("codigo"),0) + 1 'novo codigoElsecodigo = "1"End If Soma o ultimo com mais 1

Consegui aquiValeu, Agora oproblema esta em excluir.

[Mário Monteiro 179]

como assim?para excluir voce deverá usar um DELETE