[Resolvido] Mysql + ASP, não encontra tabela

[Billy 11]

estou precisando de ajuda, vou colocar as 88 linhas da conexão... o erro que encontro é

 

o code não é meu só estou adaptando para Mysql, o original é em ACCESS

 

Microsoft OLE DB Provider for ODBC Drivers error '80040e37'

 

[MySQL][ODBC 3.51 Driver][mysqld-5.1.30]Table 'bookeepers.USUARIO' doesn't exist

 

/restrito2/clDados.asp, line 48

 

<%
Server.ScriptTimeOut = 5000

'==========================================
Class clStoredProcedure

	Public xoConexao
	
	'==========================================
	Private Sub Class_Initialize()
		Set xoConexao = Server.CreateObject("ADODB.Connection")
	End Sub

	'==========================================
	Private Sub Class_Terminate()
		If xoConexao.State = 1 Then xoConexao.Close
		Set xoConexao = Nothing
	End Sub

	'==========================================
	public Sub Conecta()

		If xoConexao.State = 0 Then
			xoConexao.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};SERVER=xxx.xxx.xxx;DATABASE=nomedadatabase;UID=usuario;PWD=senha;"
			xoConexao.ConnectionTimeout = 60
			xoConexao.Open
		End If	
	
	End Sub

	'==========================================
	Public Function SPExecutar(ByVal SQL)

		Call Conecta()
		xoConexao.Execute SQL

	End Function

	'==========================================
	Public Function SPExecutarRetXML(ByVal SQL, ByVal NomeTagDados, ByVal NomeTagRoot)

		Dim xrRst

		Call Conecta()

		Set xrRst = Server.CreateObject("ADODB.Recordset")
		xrRst.CursorLocation = 3
		xrRst.Open SQL, xoConexao, 3, 3								''''''''''''''''''''''''''''''''''''''''LINHA DO ERRO
		Set xrRst.ActiveConnection = Nothing
		SPExecutarRetXML = MontarXML(xrRst, NomeTagDados, NomeTagRoot)
		xrRst.Close
		Set xrRst = Nothing

	End Function

	'==========================================
	Public Function MontarXML(xoRS, ByVal NomeTag, ByVal NomeRoot)
		
		Dim xoDOM
		Dim xsStrXML

		Set xoDOM = Server.CreateObject("MSXML.DOMDocument")
		
		If xoRS.EOF or xoRS.bof Then
			MontarXML = ""
			Exit Function
		End If
		
		xoRS.Save xoDOM, 1
		
		xsStrXML = xoDOM.documentElement.childNodes(1).xml
		
		xsStrXML = Replace(xsStrXML, "rs:data ", NomeRoot)
		xsStrXML = Replace(xsStrXML, "rs:data", NomeRoot)
		xsStrXML = Replace(xsStrXML, "z:row ", NomeTag)
		xsStrXML = Replace(xsStrXML, "z:row", NomeTag)
		xsStrXML = Replace(xsStrXML, "xmlns:z=" & Chr(34) & "#RowsetSchema" & Chr(34), "")
		xsStrXML = Replace(xsStrXML, "xmlns:rs=" & Chr(34) & "urn:schemas-microsoft-com:rowset" & Chr(34), "")
	  
		xsStrXML = Replace(xsStrXML, vbCrLf, "")
		xsStrXML = Replace(xsStrXML, Chr(13), "")
		xsStrXML = Replace(xsStrXML, Chr(9), "")
	   
		MontarXML = xsStrXML
	  
	End Function
End Class
%>

 

 

 

abaixo as linhas:

[Ted k' 126]

kd sua string de SQL?

 

Dica: deixe o mesmo nome de tabela e coluna quando se tratar de MySQL, se tiver tudo maiúsculo no banco, deixe tudo maiúsculo, se tiver alguma letra na tabela do banco ou coluna maiúscula, deixe exatamente como ela é na sua String SQL

[Billy 11]

então, o problema foi resolvido conforme você falou ... o problema era maiusculas e minusculas