FiveTech Support Forums

Buenos dias estimados,

            En esta oportunidad estoy trabajando con la libreria TDolphin e intentando establecer una conexion con una base de base alojada en un Microsoft SQL Server Express Edition. Alguien tiene experiencia con este tipo de conexion y si son compatibles, de otros comentarios en el foro lei que Dolphin trabaja con MySql y no con SQL Server... es esto real?.

            Me gustaria consultarles si alguno trabajo con este tipo de arquitectura y si tiene alguna recomendacion, ya que hasta el momento no logro la conexion. La idea es, una vez conectado, utilizar un store procedure en la base y recibir la respuesta.

cServer :=192.168.3.121

cUser =Admin

cPassword =Qwer1234

nPort =1433

cDBName:='Pharmadispenser'

 TRY

    CONNECT oServer HOST cServer ;

                  USER cUser ;

                  PASSWORD cPassword ;

                  PORT nPort ;

                  FLAGS nFlags;

                  DATABASE cDBName



CATCH oError

 MsgInfo("Error de Conexion con el Servidor....","Informacion")

 oServer:=NIL

 oSay:SetText("Robot no Conectado...")

 lConnect:=.F.

 RETURN .F.

END

oQry := oServer:Execute("CALL EnqueueDownload(@Barcode = '7795381000055',@UserId = 72,@nChute = 2)")

Muchas gracias, cualquier ayuda es siempre bienvenida.

Saludos Mariano

Mariano,

yo estoy siguiendo un hilo similar, donde hago esta pregunta.

Aparentemente no, habrá que tomar por otro camino, Laiton y Manuel

ofrecen una alternativa. Estoy informándome al respecto.

Saludos

Roberto

Estimado Roberto,

        Despues de varias horas de configurar bien el SQL server logre conectarme a la base de datos sin inconvenientes. Debajo las lineas que utilizo por medio de conexion ADO.

TRY

    oCn := FW_OpenAdoConnection( "MSSQL,192.168.3.121,PharmaDispenserB2_0,sa,Qwer1234", .F. )

    if !empty(oCn)

        oSay:SetText("CONECTADO al ROBOT")

        lRta:=.T.

        lConnect:=.T.

    else

        oSay:SetText("SIN CONEXION...")

        lConnect:=.F.

        lRta:=.F.

    endif



CATCH

    oSay:SetText("SIN CONEXION...")

    lConnect:=.F.

    lRta:=.F.

END

Saludos, espero sea de utilidad.

Mariano