Lalo
15 de Octubre del 2004

Como puedo hacer una conexión a una base de datos (SQL 2000) en un servidor con windows 2003, IIS 6.0, ya que los DNS no quieren funcionar, gracias

Xtremekid
15 de Octubre del 2004

Public Function conecta() As ADODB.Connection
Dim servidor As String
Dim strcnne As String
Dim cnne As New ADODB.Connection
'se establece los cursores del lado del cliente
'con el propósito de poder desconectarse de la conexion
'y liberar recuross después de recupuerarlo
servidor = "xtremekid"
cnne.CursorLocation = adUseClient
strcnne = "Provider=sqloledb;" & "Data Source=" & servidor & ";" & "Initial Catalog=Galeria;" & "user id=sa;" _
& "password="
cnne.ConnectionString = strcnne
cnne.Open
Set conecta = cnne
End Function

Private Sub Command1_Click()
Dim comando As ADODB.Command
Dim coneccion As ADODB.Connection
Set comando.ActiveConnection = conecta()
comando.CommandText = "buscar_artista"
comando.CommandType = adCmdStoredProc
comando.Parameters.Append comando.CreateParameter("Descripcion", adVarChar, adparamimput, 100, _
"Categoria de Prueba")
comando.Parameters.Append comando.CreateParameter("ITBM", adInteger, adParamInput, , 5)
'crea el parámetro de salida para atrapar el mensaje
comando.Parameters.Append comando.CreateParameter("Mensaje", adVarChar, adParamOutput, 100)
comando.Execute
MsgBox comando.Parameters("Mensaje")
End Sub