error: 40 - No se pudo abrir una conexión con SQL Server

Hola puedes ver las opciones de conexion en esta pagina:

http://www.connectionstrings.com/

Tambien puedes ir a este sitio donde yo tome unos ejemplos para poder barrer
una tabla www.aspfacil.com
de ahi tome estos codigos:

Dim oConn, rs, SQL
Dim nombre
Dim mOrd

'Creo el objeto Connection
set oConn = Server.CreateObject("ADODB.Connection")
'Para conectar a la base de datos, utiliza una de estas conexiones
'Solo tienes que quitar el comentario (') a la que quieras utilizar
'y comentar o borrar las otras líneas

'Access con OLEDB:
'oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &
Server.MapPath("base.mdb")

'Access con ODBC:
'oConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("base.mdb")

oConn.Open "Driver={SQL
Server};server=SEVIDOR_SQL;databaseÚTABASE;uid=USER;pwd=PASSWORD;"

Saludos

________________________________________________________________________
<hr>
Siconet, S.A. de C.V.
Ixtepete # 2064, Pinar de la Calma

http://www.siconet.com.mx
"Rodrigo Barrere Brezina"
escribió en el mensaje news:

Hola Grupo:

al intentar recuperar un registro de una tabla SQL Server desde un
formulario ASP me muestra el Error "error: 40 - No se pudo abrir una
conexión con SQL Server", pero genero el mismo codigo en VB y me funciona,
aqui pego el codigo para que me digan que puede estar mal. Gracias desde
ya.

Sub SubmitBtn_Click(Sender As Object, E As EventArgs)

Dim DS As DataSet

Dim MyConnection As SqlConnection

Dim MyCommand As SqlDataAdapter

MyConnection = New
SqlConnection("server=(ipdelserver);database=nombredelabase;")

MyCommand = New SqlDataAdapter("select * from Facturas where Poblacion=1
and
Abonado=1", MyConnection)

DS = new DataSet()

MyCommand.Fill(DS, "Facturas")

MyList.DataSource = DS.Tables("Facturas").DefaultView

MyList.DataBind()

End Sub

Saludos.


Rodrigo Barrere Brezina
Dpto. Sistemas - Aguas del Valle S.A.
Tel: 430003 - int 233
VB 2005
S.F.del V. de Catamarca - ARGENTINA

Gracias Alberto verifico y comento el resultado.


Rodrigo Barrere Brezina
Dpto. Sistemas - Aguas del Valle S.A.
Tel: 430003 - int 233
VB 2005
S.F.del V. de Catamarca - ARGENTINA

"Alberto Fuentes L." escribió en el mensaje
news:e%

Hola puedes ver las opciones de conexion en esta pagina:

http://www.connectionstrings.com/

Tambien puedes ir a este sitio donde yo tome unos ejemplos para poder

barrer

una tabla www.aspfacil.com
de ahi tome estos codigos:

Dim oConn, rs, SQL
Dim nombre
Dim mOrd

'Creo el objeto Connection
set oConn = Server.CreateObject("ADODB.Connection")
'Para conectar a la base de datos, utiliza una de estas conexiones
'Solo tienes que quitar el comentario (') a la que quieras utilizar
'y comentar o borrar las otras líneas

'Access con OLEDB:
'oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &
Server.MapPath("base.mdb")

'Access con ODBC:
'oConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("base.mdb")

oConn.Open "Driver={SQL
Server};server=SEVIDOR_SQL;databaseÚTABASE;uid=USER;pwd=PASSWORD;"

Saludos

________________________________________________________________________
<hr>
Siconet, S.A. de C.V.
Ixtepete # 2064, Pinar de la Calma

http://www.siconet.com.mx
"Rodrigo Barrere Brezina"
escribió en el mensaje news:
> Hola Grupo:
>
> al intentar recuperar un registro de una tabla SQL Server desde un
> formulario ASP me muestra el Error "error: 40 - No se pudo abrir una
> conexión con SQL Server", pero genero el mismo codigo en VB y me

funciona,

> aqui pego el codigo para que me digan que puede estar mal. Gracias desde
> ya.
>
> Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
>
> Dim DS As DataSet
>
> Dim MyConnection As SqlConnection
>
> Dim MyCommand As SqlDataAdapter
>
> MyConnection = New
> SqlConnection("server=(ipdelserver);database=nombredelabase;")
>
> MyCommand = New SqlDataAdapter("select * from Facturas where Poblacion=1
> and
> Abonado=1", MyConnection)
>
> DS = new DataSet()
>
> MyCommand.Fill(DS, "Facturas")
>
> MyList.DataSource = DS.Tables("Facturas").DefaultView
>
> MyList.DataBind()
>
> End Sub
>
> Saludos.
>
>
> Rodrigo Barrere Brezina
> Dpto. Sistemas - Aguas del Valle S.A.
> Tel: 430003 - int 233
> VB 2005
> S.F.del V. de Catamarca - ARGENTINA
>
>
>