Cadastro! Como?

[Rickardo]

quero fazer um cadastro de asp com access,

meu bd tem o nome de cadastro.mdb, tabele = cad

como faço a conexão?

como abro a tabela?

como cadastro alguém tem um exemplo aí??

porfavor ajuda??

[cyberalexxx]

Eu Poderia até colocar um exemplo, mais para voce entender melhor vou sugerir os seguintes tutoriais:

Conexão:

http://www.aspbrasil.com.br/conteudo/detal...Secao=TUTORIAIS

Inserir valores no banco:

http://www.aspbrasil.com.br/conteudo/detal...Secao=tutoriais

[Rickardo]

amigo desculpa aê mais sou mei burrim..

olha aê meu codigo que vai inserir no bd..

<%

razao_local = request.form("rz")

nome_local = request.form("nf")

contato_local = request.form("contato")

cargo_local = request.form("cargo")

cnpj_local = request.form("cnpj")

ie_local = request.form("ie")

tel_local = request.form("tel")

email_local = request.form("email")

end_local = request.form("end")

bairro_local = request.form("bairro")

cidade_local = request.form("cidade")

estado_local = request.form("estado")

sqlstmt = "insert into agenda

(razaosoc, nomefanta, contato, cargo, cnpj, ie, fone, email, end, bairro,cidade, estado) values ('" & razao_local & "','" & nome_local & "','" & contato_local & "','" & cargo_local & "','" & cnpj_local & "','" & ie_local & "','" & tel_local & "','" & email_local & "','" & end_local & "','" & bairro_local & "','" & cidade_local & "','" & estado_local & "')"

set conn = server.createobject("adodb.connection")

conn.open "TESTE_ODBC"

set rsquery = conn.execute(sqlstmt)

response.redirect("inserido_com_sucesso.htm")

%>

Agora te pergunto...

como expecifico o meu bd?

o nome dele é cadastro.mdb

e a tabela??

nome dela é cad

não compreendi o esquema de abrir.

pode me ajudar??

[Rickardo]

aí galera.

fiz a conexão.

<%

set Conexao=server.createobject("adodb.connection")

Conexao.provider="microsoft.jet.oledb.4.0"

Conexao.connectionstring=server.mappath("dados/seu_banco.mdb")

Conexao.open

%>

e agora? como abro a tabela??

ague ajuda por favor?

[Marcos-rj]

Rickardo segue uns links p/ você estudar:

Conexão com Banco de Dados

Select

Insert

Delete

Update

Paginação

ASPBRASIL

[Marcos-rj]

aí galera.

fiz a conexão.

<%

set Conexao=server.createobject("adodb.connection")

Conexao.provider="microsoft.jet.oledb.4.0"

Conexao.connectionstring=server.mappath("dados/seu_banco.mdb")

Conexao.open

%>

e agora? como abro a tabela??

ague ajuda por favor?

você pode fazer assim:

Set Dados=Server.CreateObject("Adodb.connection")
Dados = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("dados/seu_banco.mdb")
Conn.open Dados

O seu insert da funcionando?

[Rickardo]

MEU INERT NÃO está FUNCIONANDO..

olha ele aí

sqlstmt = "INSERT INTO cadastro (razaosoc, nomefanta, contato, cargo, cnpj, ie, fone, email, end, bairro,cidade, estado) values ('" & razao_local & "','" & nome_local & "','" & contato_local & "','" & cargo_local & "','" & cnpj_local & "','" & ie_local & "','" & tel_local & "','" & email_local & "','" & end_local & "','" & bairro_local & "','" & cidade_local & "','" & estado_local & "')"

está dando esse erro aqui

Microsoft JET Database Engine error '80040e14'

Syntax error in INSERT INTO statement.

[Marcos-rj]

como está chamando o banco de dados?

[Rickardo]

olha aí em baixo como está..

<%

Option Explicit

Response.Expires = 0

Dim razao_local, nome_local, contato_local,cargo_local, cnpj_local, nome, tel_local, ie_local, email_local, end_local, bairro_local, cidade_local, estado_local, conexao, sqlstmt, rsquery, tbl

razao_local = request.form("rz")

nome_local = request.form("nf")

contato_local = request.form("contato")

cargo_local = request.form("cargo")

cnpj_local = request.form("cnpj")

ie_local = request.form("ie")

tel_local = request.form("tel")

email_local = request.form("email")

end_local = request.form("end")

bairro_local = request.form("bairro")

cidade_local = request.form("cidade")

estado_local = request.form("estado")

set Conexao=server.createobject("adodb.connection")

Conexao.provider="microsoft.jet.oledb.4.0"

Conexao.connectionstring=server.mappath("db/cadastro.mdb")

Conexao.open

set tbl = server.createObject("adodb.recordset")

tbl.Open "cadastro", conexao

sqlstmt = "INSERT INTO cadastro (razaosoc, nomefanta, contato, cargo, cnpj, ie, fone, email, end, bairro,cidade, estado) values ('" & razao_local & "','" & nome_local & "','" & contato_local & "','" & cargo_local & "','" & cnpj_local & "','" & ie_local & "','" & tel_local & "','" & email_local & "','" & end_local & "','" & bairro_local & "','" & cidade_local & "','" & estado_local & "')"

set rsquery = conexao.execute(sqlstmt)

response.redirect("inserido_com_sucesso.htm")

%>

e aí está certo ou está errado o que eu estou fazendo?/

desculpa aí .. mais estou tentando entender .. e resolver..

[Marcos-rj]

Está dando alguma mensagem de erro???

neste caso, não preciso do RecordSet como você colocou:

set tbl = server.createObject("adodb.recordset")
tbl.Open "cadastro", conexao

coloca assim:

<% 
Option Explicit

Response.Expires = 0

Dim razao_local, nome_local, contato_local,cargo_local, cnpj_local, nome, tel_local, ie_local, email_local, end_local, bairro_local, cidade_local, estado_local, conexao, sqlstmt, rsquery, tbl

razao_local = request.form("rz") 
nome_local = request.form("nf") 
contato_local = request.form("contato") 
cargo_local = request.form("cargo")
cnpj_local = request.form("cnpj")
ie_local = request.form("ie")
tel_local = request.form("tel")
email_local = request.form("email") 
end_local = request.form("end")
bairro_local = request.form("bairro")
cidade_local = request.form("cidade") 
estado_local = request.form("estado") 

set Conexao=server.createobject("adodb.connection") 
Conexao.provider="microsoft.jet.oledb.4.0" 
Conexao.connectionstring=server.mappath("db/cadastro.mdb") 
Conexao.open 

set tbl = server.createObject("adodb.recordset")
tbl.Open "cadastro", conexao

sqlstmt = "INSERT INTO cadastro (razaosoc, nomefanta, contato, cargo, cnpj, ie, fone, email, end, bairro,cidade, estado) values ('" & razao_local & "','" & nome_local & "','" & contato_local & "','" & cargo_local & "','" & cnpj_local & "','" & ie_local & "','" & tel_local & "','" & email_local & "','" & end_local & "','" & bairro_local & "','" & cidade_local & "','" & estado_local & "')" 

set rsquery = conexao.execute(sqlstmt) 
response.redirect("inserido_com_sucesso.htm") 
%> 

[Rickardo]

se fosse php já tinha feito mais asp ,.. que coisa.. só da pau

deu o mesmo erro

Microsoft JET Database Engine error '80040e14'

Syntax error in INSERT INTO statement.

/lista/inserir.asp, line 31

[Marcos-rj]

af, você tirou o recordset?

agora que eu vi, postei com ele denovo!

<% 
Option Explicit

Response.Expires = 0

Dim razao_local, nome_local, contato_local,cargo_local, cnpj_local, nome, tel_local, ie_local, email_local, end_local, bairro_local, cidade_local, estado_local, conexao, sqlstmt, rsquery, tbl

razao_local = request.form("rz") 
nome_local = request.form("nf") 
contato_local = request.form("contato") 
cargo_local = request.form("cargo")
cnpj_local = request.form("cnpj")
ie_local = request.form("ie")
tel_local = request.form("tel")
email_local = request.form("email") 
end_local = request.form("end")
bairro_local = request.form("bairro")
cidade_local = request.form("cidade") 
estado_local = request.form("estado") 

set Conexao=server.createobject("adodb.connection") 
Conexao.provider="microsoft.jet.oledb.4.0" 
Conexao.connectionstring=server.mappath("db/cadastro.mdb") 
Conexao.open 

sqlstmt = "INSERT INTO cadastro (razaosoc, nomefanta, contato, cargo, cnpj, ie, fone, email, end, bairro,cidade, estado) values ('" & razao_local & "','" & nome_local & "','" & contato_local & "','" & cargo_local & "','" & cnpj_local & "','" & ie_local & "','" & tel_local & "','" & email_local & "','" & end_local & "','" & bairro_local & "','" & cidade_local & "','" & estado_local & "')" 

set rsquery = conexao.execute(sqlstmt) 
response.redirect("inserido_com_sucesso.htm") 
%> 

[Rickardo]

amigo tirei .. e continua na mesma

Microsoft JET Database Engine error '80040e14'

Syntax error in INSERT INTO statement.

/lista/inserir.asp, line 28

você tem MSN??

pra tc melhor?

[Marcos-rj]

Resolvido, você está usando palavra reservada na consulta sql.

END

é só trocar que funciona!

Acessa este link que tem uma lista com palavras reservadas:

http://sqlserver2000.databases.aspfaq.com/...r-keywords.html

[Pijama]

Marcos!

tem um programinha que faz tudo isso sozinho, ele chama DATAFORM.

Procura ele na internet ai, quem sabe você acha ele..

Ele faz tudo sozinho, incluindo conexões, configurações dos forms e outras coisas...

[Marcos-rj]

eu tenho ele o 1 e 2, mas prefiro fazer a mão.

[Rickardo]

cara ainda não deu .. agora está dando esse erro

Microsoft VBScript runtime error '800a01a8'

Object required: 'Provider=Microsoft.J'

/lista/inserir.asp, line 26

[Marcos-rj]

Aff, você conseguiu resolver o ´problema da permissão p/ gravar?

você alterou a conexao com o banco de dados?

Posta como está.

[Rickardo]

<%

Option Explicit

Response.Expires = 0

Dim razao_local, nome_local, contato_local,cargo_local, cnpj_local, nome, tel_local, ie_local, email_local, end_local, bairro_local, cidade_local, estado_local, conexao, sqlstmt, rsquery, tbl, pasta_dados

razao_local = request.form("rz")

nome_local = request.form("nf")

contato_local = request.form("contato")

cargo_local = request.form("cargo")

cnpj_local = request.form("cnpj")

ie_local = request.form("ie")

tel_local = request.form("tel")

email_local = request.form("email")

end_local = request.form("end")

bairro_local = request.form("bairro")

cidade_local = request.form("cidade")

estado_local = request.form("estado")

pasta_dados="e:\home\brd\dados\db\cadastro.mdb"

set Conexao=server.createobject("ADODB.connection")

Conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&pasta_dados&";"

Conexao.open

sqlstmt = "INSERT INTO cadastro (razaosoc, nomefanta, contato, cargo, cnpj, ie, fone, email, endereco, bairro, cidade, estado) values ('" & razao_local & "','" & nome_local & "','" & contato_local & "','" & cargo_local & "','" & cnpj_local & "','" & ie_local & "','" & tel_local & "','" & email_local & "','" & end_local & "','" & bairro_local & "','" & cidade_local & "','" & estado_local & "')"

set rsquery = conexao.execute(sqlstmt)

conexao.Close()

response.redirect("inserido_com_sucesso.htm")

%>

[Marcos-rj]

Testei aqui e funcionou, coloca assim a conexao:

set Conexao=server.createobject("ADODB.connection") 
dados = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&pasta_dados&";"
Conexao.open dados

[Rickardo]

aí amigo deu certo agora..

valeu .. brigadão..

mais me diz aê..

ei vou fazer varios froms de inclusão.. posso criar um arquivo conexão.asp e por esse código pra não ter que digitar tudo??

como é que eu chamo ele nos outros arquivos??

:S

grato.

[Marcos-rj]

Pode sim, faz assim:

conexao.asp

pasta_dados="e:\home\brd\dados\db\cadastro.mdb"

Set conexao = CreateObject("ADODB.CONNECTION")
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&pasta_dados&";"
ConexaoAberta = FALSE
Sub AbreConexao()
    if not ConexaoAberta then
    Conexao.Open ConStr
    ConexaoAberta = True
    end if
end sub
Sub FechaConexao()
    if ConexaoAberta then
    Conexao.close
    Conexao = False
    end if
end sub
%>

Nas páginas onde você for usar o bancode dados você coloca no topo da pagina

Abreconexao 'Para Abrir a conexao

e no final da página

Fechaconexao 'Para fechar a conexao

[Rickardo]

MAIS COMO EU CHAMO O ARQUIVO?

É SÓ

includes conexa.asp

ou tem alguma tag?

tipo

<%

include conexao.asp

< form >

hauauhauhauhauhau

</form>

%>

é assim??

[.Andreia.]

<!--#include file="conexao.asp"-->

fora das tags de ASP

[Rickardo]

Brigadãio..

<!--#include file="conexao.asp"-->

fora das tags de ASP