conexao com bd

[kaplan 0]

galera sou iniciante com conexao com banco de dados com asp

 

para eu inserir alguma coisa no banco de dados eu tenho q fazer isto??

 

ASP

[*]

[*]<%

[*]   'Criando um objeto de conexão ADO

[*]    Set conexao = Server.CreateObject("ADODB.Connection")

[*]    'Abrindo a conexão ADO

[*]    conexao.Open "DRIVER={Microsoft Access Driver (C:\Inetpub\wwwroot\cadastro.mdb)}; DBQ=" & Server.MapPath("cadathivos.mdb")

[*]    'SQL para gravação no banco de dados

[*]    SqlInsere = "INSERT INTO usuarios (nomecompl, rg, cpf) VALUES ('"&nomecompl&"', '"&rg&"', '"&cpf&"' "

[*]    Set RsInsere = conexao.Execute(SqlInsere)

[*]

[*]%>

[*]

[*]

 

 

a minha duvida é os campos em vermelho qual deles eu coloco o caminho do banco de dado, e outra coisa falaram q eu tenho q criar um fonte de 32 bits como eu faço, me ajudem galera!!!!

[Alex_ps 0]

Kaplan,

 

Para a conexão dê uma olhada neste tutorial:

 

conexão

Se não conseguir, volta aí!

 

Quanto ao "fonte de 32 bits", esquece. Pelo menos neste contexto.

 

Alex_ps

[kaplan 0]

ola Alex, valew pela ajuda cara

 

http://forum.imasters.com.br/public/style_emoticons/default/devil.gif

[kaplan 0]

Galera agora eu estou com problemas com o RecorSet

<% Dim Conn Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("cadastro.mdb") SqlInsere = "INSERT INTO Teste (nome, email, outros) VALUES ('"&nome&"', '"&email&"', '"&outros&"') " Set RsIns = Server.CreateObject("ADODB.RecordSet") RsIns.Open SqlInsere, Conexao, 1, 3 set RstIns = nothing set Conexao = nothing%>

Este é o erro

Tipo de erro:ADODB.Recordset (0x800A0BB9)Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

Alguem pode me ajudar??? http://forum.imasters.com.br/public/style_emoticons/default/devil.gif

[Alex_ps 0]

Kaplan,

 

Faz assim,

 

SqlInsere = "INSERT INTO Teste (nome, email, outros) VALUES ('"&nome&"', '"&email&"', '"&outros&"') "Set RsIns = Conn.execute(SqlInsere)set RstIns = nothingset Conn = nothing

Tinha um tutorial super 10 em um site www.aspbrasil.com.br, mas o site sumiu!?

 

Declare ainda,

 

Dim SqlInsere

Dim RsIns

 

vê se vai!

 

alex_ps

[dark0 0]

alex.. alterando um pokinho seu codigo..

 

você pode deixar somente assim:

ASP

[*]SqlInsere = "INSERT INTO Teste (nome, email, outros) VALUES ('"&nome&"', '"&email&"', '"&outros&"') "

[*]Conn.execute(SqlInsere)

[*]set Conn = nothing

 

sem o Set RsIns = Conn.execute(SqlInsere).

 

Nao precisa setar a execução do sql.. isso só é necessário quando é feito um Select.

 

Pois.. usaria memoria desnecessariamente ;)

 

Só um toque..

 

Abraço

[kaplan 0]

Eu coloquei assim

Dim Conn	Set Conn = Server.CreateObject("ADODB.Connection")	Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("cadastro.mdb")	Set RsIns = Server.CreateObject("ADODB.RecordSet")	 SqlInsere = "INSERT INTO Teste (nome, email, outros) VALUES ('"&nome&"', '"&email&"', '"&outros&"') "	   	   Conn.execute(SqlInsere)	   set Conn = nothing

E este é o erro agora

Microsoft JET Database Engine (0x80004005)A operação deve usar uma consulta atualizávelnes ta linha Conn.execute(SqlInsere)

me ajudem por favor!!!

[dark0 0]

veja a solução do seu erro:

 

http://www.imasters.com.br/forum/index.php...st=0&p=294594

 

aalves..

 

eu nao conheço nenhuma forma de passar por cima de permissão da pasta do banco de dados..

 

pq.. se você nao tem permissao de escrita.. axo q naum tem como alterar nada dentro dela..

[kaplan 0]

valew Drak0 realmente este era o problema, mto obrigado cara, fui

[dark0 0]

hehebeleza cara..qualquer coisa, é só falarabração

[dark0 0]

hehe.. claro.. e principalmente, quando o tipo de sistema de arquivos eh NTFS..se for FAT32.. nem acontece nada..abraço