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("Conexión con la base de datos conseguida.")
Conexion.Close
set Conexion = nothing
y me sale el siguiente error
Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0401)
Se esperaba un final de instrucción
/insercion.asp, línea 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
Dim Conexion As OdbcConnection = New OdbcConnection("Driver={Multibase/ODBC32 (Multiway)};Server=localhost;" _& "Trusted_Connection=yes; Database=empre008";)
Conexion.ConnectionString = "DSN=DB_SGA"
Response.Write("Conexión con la base de datos conseguida.")
Conexion.Close
set Conexion = nothing
y me sale el siguiente error
Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0401)
Se esperaba un final de instrucción
/insercion.asp, línea 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("Conexión 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 ejecución (0x800A01FA)
Clase no definida: 'OdbcConnection'
/insercion.asp, línea 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
<%@ 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("Conexión 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 ejecución (0x800A01FA)
Clase no definida: 'OdbcConnection'
/insercion.asp, línea 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 conexión 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
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 envío otro código.
' ////// ESTO ES NECESARIO PUES COMPRUEBA QUE LA CONEXIÓN 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 verás el ODBC definido es ODClientes.
Este debe existir en las conexiones ODBC.
Espero te sirva, sino... ya no tengo más opciones echas!!!
Un saludo
' ////// ESTO ES NECESARIO PUES COMPRUEBA QUE LA CONEXIÓN 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 verás el ODBC definido es ODClientes.
Este debe existir en las conexiones ODBC.
Espero te sirva, sino... ya no tengo más opciones echas!!!
Un saludo