Ir para conteúdo
Fórum Script Brasil
  • 0

Cadastro! Como?


Rickardo

Pergunta

24 respostass a esta questão

Posts Recomendados

  • 0

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??

Link para o comentário
Compartilhar em outros sites

  • 0

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?

Link para o comentário
Compartilhar em outros sites

  • 0

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.

Link para o comentário
Compartilhar em outros sites

  • 0

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..

Link para o comentário
Compartilhar em outros sites

  • 0

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") 
%> 

Link para o comentário
Compartilhar em outros sites

  • 0

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") 
%> 

Link para o comentário
Compartilhar em outros sites

  • 0

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...

Link para o comentário
Compartilhar em outros sites

  • 0

<%

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")

%>

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...