sub conexao()

[teixeira 0]

;) ai galera... será que alguém pode dar uma mão??criei um sub pra conexao com o bd (conexao()).criei outra sub para inserir dados no bd e dentro dela tem a chamada pra sub conexao()quando crio o recordset da um erro como se a conexao nao tivesse sido aberta.alguém sabe me explicar o motivo??? ou alguma outra sujestao para que de certo!!!valeu!!!

[Engespro 0]

pota o cód para uma analizada?Valeu?

[teixeira 0]

atendendo a pedidos sub conexao() Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../data/db.mdb") & ";" objConn.Open end sub '_____________________________________________________________ sub add_cidade() id_estado = request.form("id_estado") cidade = request.form("cidade") conexao() Set objRS = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM cidades WHERE cidade LIKE '"&cidade&"'" objRS.Open strSQL, objConn, 2, 3 IF objRS.EOF then objRS.AddNew objRS("id_estado") = id_estado objRS("cidade") = cidade objRS.Update objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing response.redirect("confirma.asp?cod=cidade_cadastrada") ELSE objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing response.redirect("confirma.asp?cod=cidade_existe") END IF end sub

[Engespro 0]

Cara tenta isso:sub conexao()Set objConn = Server.CreateObject("ADODB.Connection")objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; <b>DBQ=" & Server.MapPath("../data/db.mdb") & ";"</b> <--- Aqui estava assim: <i>Server.MapPath("../../data/db.mdb") & ";"</i> ñ entendi o pq do "../../" retira e testaobjConn.Openend subValeu?

[teixeira 0]

cara, o ../../ eh por causa do caminho onde tah o bd no servidor...

[Engespro 0]

Cara tenta isso:sub conexao()Set objConn = Server.CreateObject("ADODB.Connection")objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; <b>DBQ=" & Server.MapPath("../data/db.mdb") & ";"</b> <--- Aqui estava assim: <i>Server.MapPath("../../data/db.mdb") & ";"</i> ñ entendi o pq do "../../" retira e testaobjConn.Openend subValeu?

esquece isso. tenta assimsub conexao()Set objConn = Server.CreateObject("ADODB.Connection")objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; <b>DBQ=" & Server.MapPath("\data/db.mdb") & ";"</b>objConn.Openend subAssim ele vai até o inicio e retorna o path completoTesta aíValeu?

[teixeira 0]

cara...valeu pela ajuda mas acabei de descobrir o problema...como era uma sub ele nao retornava valor nenhum pra objConnsubstitui ela por uma function e troquei o nome pra objConndeu certo!!!valeu mesmo pela ajuda... brigadao...flws!!