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
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"
fheer Viva Bolivar
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"
fheer Viva Bolivar
¡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...
Ruby...
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