HOLA AMIGOS QUE TAL.


ESTOY EN PROBLEMAS, ES URGENTE QUE ME AYUDEN.


COMO SE PUEDE CONECTAR O ENLAZAR VISUAL BASIC 6.0CON UNABASE DE DATOS SQL SERVER 7.0.





ESPERO UAN PRONTA RESPUESTA

en un modulo declaras


Global Con As ADODB.Connection


y en el formulario de inicio de tuprograma pones la sgte linea


Set Con = New ADODB.Connection
"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=tu_base_de_datos;Data Source=tu_servidor"

en un modulo declaras


Global Con As ADODB.Connection


y en el formulario de inicio de tuprograma pones la sgte linea


Set Con = New ADODB.Connection


"en mi anterior respuesta no puse Con.open"


Con.open"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=tu_base_de_datos;Data Source=tu_servidor"

¡Saludos!...Prueba elcódigo de esta clase


------------------------------------------------------------ ------Mi Código: ruby.06@hotmail.com


'Clase: clsConexion


------------------------------------------------------------ ------


'Propiedad que almacena la cadena de mensaje
Private PrMensajeDelObj As String


'Propiedad que toma el valor del mensaje,
'llama la Función AbrirConexion
'para verificar que se crea la conexión
Public Property Get ObtenerMensajeCnn()
AbrirConexion
ObtenerMensajeCnn = PrMensajeDelObj
End Property


'Función de AbrirConexion la conexión
Public Function AbrirConexion(Optional ByVal CadenaConexion As String) As ADODB.Connection


'En caso de error ir a la Etiqueta
On Error GoTo Etiqueta
Set Cnne = New ADODB.Connection
Cnne.CursorLocation = adUseClient


'Si no hay nada en la Cadena de conexión
If CadenaConexion = "" Then
CadenaConexion = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Inventario;Data Source=SW-89550ECC7B82\SQLEXPRESS"
End If

Cnne.CommandTimeout = 60
'Envía la cadena de conexión al método Open
Cnne.Open CadenaConexion


Set AbrirConexion = Cnne
Exit Function


Etiqueta:
Dim CadenaMensaje As String
Dim BanderaConexion As Integer
PrMensajeDelObj = ""
Dim ManejarErrores As ClsManejadorErrores
Set ManejarErrores = New ClsManejadorErrores
BanderaConexion = 2
ManejarErrores.AsignarBandera = BanderaConexion
CadenaMensaje = ManejarErrores.ObtenerMensajeError
PrMensajeDelObj = CadenaMensaje
Set ManejarErrores = Nothing
End Function


'Función de CerrarConexion la conexión
Public Sub CerrarConexion()
Cnne.Close
Set Cnne = Nothing
End Sub


------------------------------------------------------------ ------Espero que te sea útil...

FHEER, POR EJEMPLO TU QUE LE COLOCARIAS EN tu_servidor


podrias darme un ejemplo, gracias





Con.open"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=tu_base_de_datos;Data Source=tu_servidor"











atte: gino jose serrano