conexion a bbdd, tengo problemas

usuario82
23 de Mayo del 2005
hola tengo el siguiente codigo para conectarme a una bbdd de mi empresa:

Dim Conexion As OdbcConnection = New OdbcConnection("Driver={Multibase/ODBC32 (Multiway)};Server=localhost;" _& "Trusted_Connection=yes; Database=empre008";)
Conexion.ConnectionString = "DSN=DB_SGA"
Response.Write("Conexin con la base de datos conseguida.")
Conexion.Close
set Conexion = nothing

y me sale el siguiente error

Tipo de error:
Error de compilacin de Microsoft VBScript (0x800A0401)
Se esperaba un final de instruccin
/insercion.asp, lnea 17, columna 13
Dim Conexion As OdbcConnection = New OdbcConnection("Driver={Multibase/ODBC32 (Multiway)};Server=localhost;" _& "Trusted_Connection=yes; Database=empre008";)
------------^
el error es en la primera linea del codigo aunke ponga 17, le estoy dando miles de vueltas y no soy capaz de conseguirlo, por favor echarme una mano

gracias

usuario82
23 de Mayo del 2005
he cambiado el codigo a esta forma

<%@ Language=VBScript %>
<html>
<head>
<meta name="GENERATOR" Content="Microsoft Visual Studio .NET 7.1">
<body>
<%
Dim cadena
Dim conexion
cadena = "DRIVER={Multibase/ODBC32(Multiway)};SERVER=localhost;Trusted_connection=yes;DATABASE=empre008;"
Set conexion = new OdbcConnection
odbcConnection(cadena)
conexion.ConnectionString = "DSN=DB_SGA"
conexion.Open
Response.Write("Conexin con la base de datos conseguida.")
conexion.close
set myCoon = nothing
%>
</body>
</head>
</html>

y me sale el siguiente error

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecucin (0x800A01FA)
Clase no definida: 'OdbcConnection'
/insercion.asp, lnea 10

no se que puedo hacer, si alguien me pudiera echar una mano le estaria eternamente agradecido, o k me deje algo de codigo para solucionarlo

gracias de nuevo


jlerena
23 de Mayo del 2005
Yo tengo una conexin con Access, no se si te sirve, pero ah va:

strBD = "/miweb/bbdd/basededatos.mdb"
conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(strBD)
set bddatos = Server.Createobject("adodb.connection")
bddatos.open conn

Un saludo

usuario82
23 de Mayo del 2005
gracias por la informacion pero no me sirve, lo que tengo que hacer es conectarme mediante odbc, pero no me reconoce la clase OdbcConnection, no se a que se debera, gracias de todas formas

jlerena
23 de Mayo del 2005
Vale, te envo otro cdigo.

' ////// ESTO ES NECESARIO PUES COMPRUEBA QUE LA CONEXIN EST ABIERTA
' ////// SI LO EST ENTONCES NADA, Y SINO LA ABRE

If IsObject(Session("ODClientes_conn")) Then
Set conn = Session ("ODClientes_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "ODClientes","",""
Set Session ("ODClientes_conn") = conn
End IF

Como vers el ODBC definido es ODClientes.
Este debe existir en las conexiones ODBC.

Espero te sirva, sino... ya no tengo ms opciones echas!!!
Un saludo