Conectar Visual Basic 6 a Sql Server 2000

[aizurieta]

Hola saludos a todos,
Estoy desarrollando un programa en Visual Basic 6, pero necesito hacer la conexión con sql server 2000... he tratado de muchas forma realizar la conexion pero ninguna me ha funcionado o no se si estaré realizando algo mal.
He pensado que exista la posibilidad que me de problema porque tengo instalado visual basic 6 y sql server 2000 en la misma máquina... por favor ayuda con este caso...

[hugo180486]

Mira te paso un ejemplo completo de como hago una conexcion, una consulta y como manejo el resultado de esa consulta (RecordSet), problema en tener VB6 y SQL en la misma maquina lo dudo compa;era... Espero te sirva... Oye lo mas probable es que te digan que esto esta mas relacionado con VB que con SQL y que tu post esta fuera de lugar, jeje te lo digo por experiencia...

Código vb:

Dim cn                As ADODB.Connection
    
    Dim rsItems       As ADODB.Recordset
    Dim cmdItems    As ADODB.Command
    Dim sQryItems   As String
    Dim i                   As Integer
 
    '//Establezco la conexion a la BD, declaro la BD a conectar, y su respectivo
    '//nombre de usuario y contraseña
    Set cn = New ADODB.Connection
        cn.Open "Provider=SQLOLEDB;Data Source=" & Nombre_Servidor & ";Initial Catalog=Base_Datos;User ID=" & _
        Constantes.strUser & ";Password=" & Contrase;a
                               
        '//Obtengo la descripcion del Item
        Set cmdItems = New ADODB.Command
        Set cmdItems.ActiveConnection = cn
        
        '//Consulta
        sQryItems = ""
        sQryItems = "SELECT Item_Desc" & vbCrLf & _
                    "FROM tblCatalogo_DD_SC" & vbCrLf & _
                    "WHERE Item =" & Chr(39) & "M-" & Variables.sItem_DD & Chr(39)
 
        With cmdItems
            .CommandText = sQryItems
            .CommandType = adCmdText
        End With
            
        Set rsItems = New ADODB.Recordset
        Set rsItems.ActiveConnection = cn
            
        rsItems.Open cmdItems
            
        If Not (rsItems.EOF = True) Then
                
            rsItems.MoveFirst
            
            '//Guardo la descripcion
            sDesItemVer = Trim(rsItems.Fields(0).Value)
            
            '//Compa;era aizurieta si el recordset tiene varios registros lo puedes
            '//recorrer de la siguiente manera
             
            i = 1
            Do While (rsItems.EOF = False)
 
                        MsgBox "Mostrar Registro " & i & " " & rsItems.Fields(0).Value"
                        i=i+1
                        rstItems.MoveNext
           
             Loop
 
        End If
            
        '//Descargo las variables, para volverlas a usar.
        Set rsItems = Nothing
        Set cmdItems = Nothing
        
        '//Cierro la conexion
         cn.Close
         Set cn = Nothing
 

[T3rryMan]

Iniciado por aizurieta

Hola saludos a todos,
Estoy desarrollando un programa en Visual Basic 6, pero necesito hacer la conexión con sql server 2000... he tratado de muchas forma realizar la conexion pero ninguna me ha funcionado o no se si estaré realizando algo mal.
He pensado que exista la posibilidad que me de problema porque tengo instalado visual basic 6 y sql server 2000 en la misma máquina... por favor ayuda con este caso...

Hola la verdad que q no corresponde al foro pero al final ya q estas aca manos a la obra
Sinceramente no creo que este instalado mal el sql 2000 o el vb6 yo pienso mas bien que no agregaste la referencia para usar la programcion ADO.
Menu Proyecto \ Referencias y ahi marcas Microsoft ActiveX Data Object 2.x segun tu tipo de programacion.
Lo que siempre hago es creo un Modulo y ahi creo la conexion
con una funcion que llame a mis procedimientos almacenados con n Parametros de entrada.

Código vb:

Public Const strCon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=SA;Initial Catalog=MyData;Data Source=PC Server"
 
 
Function RetornaRS(ByVal NombreSP As String, ParamArray xParametros() As Variant) As ADODB.Recordset
    On Error GoTo Xerr:
        Dim Cmd As New ADODB.Command
        Dim rs As New ADODB.Recordset
        Dim pmt As New ADODB.Parameter
        Dim cn As New ADODB.Connection
        Dim i As Integer, n As Integer
        Dim ret() As Integer
        cn.Open strCon
        With Cmd
            .ActiveConnection = cn
            .CommandType = adCmdStoredProc
            .CommandText = NombreSP
        End With
        ReDim ret(n)
        For Each pmt In Cmd.Parameters
            If pmt.Name <> "@RETURN_VALUE" Then
                pmt.Value = xParametros(i)
                If (pmt.Direction = adParamInputOutput) Then
                    ret(n) = i
                    n = n + 1
                    ReDim Preserve ret(n)
                End If
                i = i + 1
            End If
        Next
        rs.LockType = adLockBatchOptimistic
        rs.CursorLocation = adUseClient
        rs.CursorType = adOpenStatic
        rs.Open Cmd
        If (n > 0) Then
        For i = 0 To n - 1
                xParametros(ret(i)) = Cmd.Parameters(ret(i) + 1).Value
        Next
        End If
        Set RetornaRS = rs
        'Set rs = Nothing
        'Set Cmd = Nothing
        'Set cn = Nothing
        Exit Function
Xerr:
        Err.Raise Err.Number, Err.Source, Err.Description
End Function
 

Te recomiento trabajar directamente con procedimientos almacenados de consulta actualizacion y eliminacion
y asi lo llamo en cualquien evento en el cual crea conveniente segun mi tipo de programacion y asi creas los famosos RECORDSET DESCONECTADOS.

Código vb:

Dim RsUsuarios As ADODB.Recordset
Dim RsListClientes As ADODB.Recordset
 
Set RsUsuarios = RetornaRS("Rs_Listar_Usuarios", 1, 2, 3, 4)
set RsListClientes = RetornaRS("Rs_Listar_Clientes", 0)
 

Siempre me es gratificante el cooperar en la busqueda de soluciones para los demas.

www.bitxense.com.pe | Soluciones Informaticas S.A.C. - [email protected]
Cualquier duda soy Jhon Bautista Palomino aqui esta mi correo MSN [email protected] Lima-Peru