- Banco de dados

[The Jhunior 0]

Yae pessoal

 

Estou começando a mexer agora com ASp e preciso da ajuda de vocês

 

estou desenvolvendo um programinha simples com acesso a banco de dados.

 

Ele está praticamente finalizado, mas está dando um erro no final

"Microsoft OLE DB Provider for ODBC Drivers error '80040e4e'

 

Operation was canceled.

 

/vf/painel/milhas/conexao.asp, line 7 "

Codigo da página

 

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

Dim Vtam,Vvarig, Vvalor_tam, Vvalor_varig, Vresultadotam, Vresultadovarig, Vresultado

Vtam = Request.Form("tam") 
Vvarig = Request.Form("varig")
Vvalor_tam = Request.Form("pontos_tam" )
Vvalor_varig  = Request.Form("milhas_varig")

Dim sql, rs

Call AbreConn ()


sql = "Select * From administracao Where chuser='" & Vvalor_tam & "' AND chpass='" & Vvalor_varig & "'"


Set rs = conn.Execute(sql)

' Calculo

Vresultadotam=Vtam*Vvalor_tam
Vresultadovarig=Vvarig*Vvalor_varig
Vresultado=Vresultadotam-Vresultadovarig

%>

No aguardo

[jrcardozo 4]

você postou o fonte da página errada. dê uma lida com calma na mensagem de erro. Me parece que sua string de conexão está com parametros errados ou incompativeis com o odbc

[The Jhunior 0]

você postou o fonte da página errada. dê uma lida com calma na mensagem de erro. Me parece que sua string de conexão está com parametros errados ou incompativeis com o odbc

Fichi cara, nem sei arrumar isto.

 

Será que erro está na hora de gravar no banco?

 

Pode me ajudar?

[Ted k' 126]

erro no arquivo "conexao.asp" e não nesse que você postou!

[The Jhunior 0]

erro no arquivo "conexao.asp" e não nesse que você postou!

Segue o arquivo conexão.asp

<%
Dim conn
Sub AbreConn()
	

	Set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)}; [url="http://www.compromilhasaereas.com.br/painel/dados/banco.mdb")"]http://www.compromilhasaereas.com.br/paine...anco.mdb")[/url]

End Sub

Sub FechaConn()
conn.Close()
Set conn = Nothing

End Sub
%>

[hargon 64]

Você não pode fazer conexão dessa forma com o Access. Você tem que informar o endereço fisico do arquivo.

[xanburzum 169]

olha um exemplo.

 

<%
'------------------------------------------------------------------------------------------
	caminho=left(Server.mappath(Request.ServerVariables("PATH_INFO")),InstrRev(Server.mappath(Request.ServerVariables("PATH_INFO")),"\"))
' Crio o objeto de conexao ADO
	Set conexao = Server.CreateObject("ADODB.Connection")
	conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&"db\enquete.mdb"
'ou			   
				conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("dados.mdb") 

' Abro a conexão
	conexao.open
%>

[The Jhunior 0]

Você não pode fazer conexão dessa forma com o Access. Você tem que informar o endereço fisico do arquivo.

Cara estou quase desistindo, conserto uma coisa e da outro erro.

 

"Microsoft OLE DB Provider for ODBC Drivers error '80004005'

 

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x8a0 Thread 0xffc DBC 0x21cc36e4 Jet'.

 

/vf/painel/conexao.asp, line 7 "

Codigo

 

<%
Dim conn
Sub AbreConn()
	

	Set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)}; DBQ=dados/banco.mdb")

End Sub

Sub FechaConn()
conn.Close()
Set conn = Nothing

End Sub
%>

[xanburzum 169]

faz como eue coloquei acima, e não esqueça de dar as permissões no banco, se não ele pode dar erro

[The Jhunior 0]

faz como eue coloquei acima, e não esqueça de dar as permissões no banco, se não ele pode dar erro

Valeu cara consegui.

 

Mas ta osso, resolvo um e aparece outro

 

Dá uma olhada por favor

 

http://www.compromilhasaereas.com.br/painel/consuta.asp

 

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

Dim Vtam,Vvarig, Vvalor_tam, Vvalor_varig, Vresultadotam, Vresultadovarig, Vresultado, sql, rs

Vtam = Request.Form("tam") 
Vvarig = Request.Form("varig")
Vvalor_tam = Request.Form("pontos_tam" )
Vvalor_varig  = Request.Form("milhas_varig")


Call AbreConn ()


sql = "Select * From administracao Where pontos_tam='" & Vvalor_tam & "' AND milhas_varig='" & Vvalor_varig & "'"




Set rs = conn.Execute(sql)

' Calculo

Vresultadotam=Vtam*Vvalor_tam
Vresultadovarig=Vvarig*Vvalor_varig
Vresultado=Vresultadotam-Vresultadovarig
"

[xanburzum 169]

esta dando erro

 

Microsoft JET Database Engine error '80040e07'

 

Data type mismatch in criteria expression.

 

/vf/painel/fase2.asp, line 21

Verifique se não esta tentando inserir um tipo de valor com formato invalido, sendo declarado como outro tipo. Por exemplo tentando passar um dado strong em campo numérico, reveja aspas ('...')

 

pois você esta passando um valor string como no pontos_tam e milhas_varig

 

sql = "Select * From administracao Where pontos_tam='" & Vvalor_tam & "' AND milhas_varig='" & Vvalor_varig & "'"