Etiqueta: base de datos

Publicado el por — Dejar un comentario

Probar con Telnet si está abierto el puerto 1400

Para MyBusinessPOS, la base de datos acepta el almacenamiento y consultas a través del puerto 1400. Este puerto debemos configurarlo en Microsoft SQL Server y en el firewall del servidor de la base de datos.

Hay varias formas de comprobar que el servidor tiene abierto el puerto 1400 para tener acceso desde el la estación de trabajo. Una de las opciones es que desde el equipo del cajero, haremos la prueba a través del comando Telnet (Inicio de windows->Ejecuta->CMD->telnet). Sin embargo, por default Telnet no está habilitado en Windows 7.

Icono

Tester Conexión SQL desde Android

1 archivo(s) 0.00 KB
Descarga

¿Como se activan los servicios Telnet en Windows 7?

  1. Ingresar al Panel de Control -> Programas y Características
  2. Ingresar a la opción Activar o Desactivar las Características de Windows (esta opción se encuentra en el Bloque de Programas y Características) .
  3. En el cuadro de dialogo ubica las caracteristicas que quieres activar, en la lista puedes encontrar Cliente Telnet y Servidor Telnet, hay que marcar las casillas de las que quieras activar y dar clic en Aceptar.
  4. Las características se “activan” y una vez concluido el proceso ya están disponibles para su uso.
  5. Para probar que el puerto 1400 está disponible, desde el equipo de la Caja abrimos nuevamente el CMD (Inicio de windows->Ejecuta->CMD) y ejecutamos
    Telnet ip_servidor 1400
    Donde:

    • ip_servidor es la dirección IP de tu equipo donde se encuentra la base de datos.
    • 1400 es el puerto es el número de puesto que deseamos probar si está abierto.
      Aparecerá una pantalla en negro, eso quiere decir que el puerto 1400 está abierto y podemos proceder con conexión de MyBusiness POS desde la estación de trabajo.
Publicado el por — Dejar un comentario

Exportar a texto .txt

Este es un ejemlo de cómo exportar a un archivo de texto.

Sub Main()
Dim rstClientes
Dim s

Set rstClientes = CreaRecordSet( _
"SELECT * FROM clients", Ambiente.Connection )

s = ""

If ExisteArchivo( "c:\clientes.txt" ) = True Then
If Question( "Desea eliminar el archivo", 2 ) = True Then
EliminaArchivo "c:\clientes.txt"
End If
End If

While Not rstClientes.EOF
s = Chr(34) & rstClientes("cliente") & Chr(34) & _
Chr(9) & Chr(34) & rstClientes("nombre") & Chr(34) & _
Chr(9) & Chr(34) & rstClientes("telefono") & Chr(34) & vbCrLf
OutLine "c:\clientes.txt", s
rstClientes.MoveNext
Wend

If Question( "Desea abrir el archivo", 1 ) = True Then
ShellRun Parent.hWnd, "Open", "c:\clientes.txt"
End If

End Sub

Este script puede ser de utilidad si quisiéramos ver un texto con los clientes o cualquier otro layout que se requiera para otros sistemas.

He utilizado para servicoos como facturación cfdi y para tiempo aire.
La función ExisteArchivo es genial porque lo único que escribimos como parámetro es la ruta de nuestro archivo de texto.

Lo importante es probar todas las posibilidades que existen para tener la información disponible para hacer lo que las reglas del negocio requiere.

Publicado el por — Dejar un comentario

Recuperar respaldo de base de datos (.back)

SQL Management Studio 2005 (64 Bits)

37.12 MB 720 descargas
Icono

SQL Management Studio 2005

1 archivo(s) 43.12 MB
♞Registro
♞Entrar_D
Olvidé_P

Este método solo funciona para restaurar con los archivos .back que genera MyBusiness POS de forma periódica.

Para recuperar un respaldo de MyBusiness POS 2008-2012 debemos de tener instalada la utilería SQL Management Studio, que se incluye en su disco de instalación.

Si usted ya tiene instalada esta utilería accederemos a ella asegurándonos antes de que MyBusiness POS está cerrado. Dando clic al menú “Inicio”, “Todos los Programas”, “Microsoft SQL Server 2005” y dando clic en el icono “SQL Server Management Studio”.

En la ventana de acceso, en el dato “Autenticación” seleccionaremos la opción “Autenticación de Windows” y daremos clic en el botón [Conectar].

Entramos a la pantalla principal de “SQL Server Management Studio” y de nuestro lado izquierdo veremos un árbol de directorios, uno de ellos llamado “Bases de datos”, sobre el cual daremos un clic derecho y seleccionaremos la opción “Restaurar base de datos”.

Ahora veremos una nueva ventana en la cual deberemos hacer lo siguiente:

1. En el dato “A una base de datos” (to database) seleccionaremos la base de datos de MyBusiness POS .mdf

2. Para el origen de la restauración seleccionaremos la opción “Desde dispositivo” y daremos clic en el botón con tres puntos. En la ventana que se nos muestra enseguida daremos clic en el botón [Agregar] y nos aparecerá un nueva ventana en la que seleccionaremos el archivo de respaldo que queremos restaurar.

Los respaldos se encuentran en una carpeta llamada “Respaldo”. Podemos seleccionar nuestro archivo de respaldo de esa ubicación o bien de una memoria USB o un CD si es que decidimos guardar ahí nuestros respaldos.

Para seleccionar nuestro archivo de respaldo, primero seleccionaremos la opción “Todos los archivos (*)” de la lista marcada como “Archivos de tipo”, posteriormente en el árbol de directorios de la parte superior seleccionaremos nuestro archivo dependiendo en donde lo tengamos guardado y daremos un clic en [Aceptar].

Cabe mencionar que los archivos de respaldo de MyBusiness POS se llaman MyBusiness POS 2008, 2010, 2011, 2012, y tienen una extensión “ .back” seguida de la fecha en que se realizaron.

De nuevo daremos clic en el botón [Aceptar] en la ventana donde ya agregamos el archivo, y ahora observaremos que en la ventana de “Restaurar Base de Datos” ya nos aparece nuestro respaldo listo para ser cargado, tan solo activaremos la casilla “Restaurar” y daremos un clic en el botón [Aceptar].

Observaremos de nuestro lado izquierdo un indicador verde que nos muestra el progreso en la carga de nuestro respaldo.

Una vez finalizada la carga de el respaldo nos aparecerá un mensaje indicándonos que el proceso finalizó correctamente. Ahora daremos clic en el botón [Ok], cerramos la aplicación SQL Management Studio e ingresamos a MyBusiness POS para revisar que nuestra información se haya restaurado correctamente.

Publicado el por — Dejar un comentario

Cómo hacer una consulta a la tabla de clientes

En esta ocasión mostramos un ejemplo de una ventana que consulta a la tabla de clientes y permite hacer el filtro por nombre.

Icono

Ejemplo Forma clientes

1 archivo(s) 2.35 KB
Descarga

Este es el código fuente

 

Sub Form_load()

'José Félix 20140812

'jofelchez@gmail.com

'Ejemplo de cómo hacer una consulta a la tabla de clientes

TxtCliente.TabIndex = 0

aceptar.Default = True

'TxtCliente.PasswordChar = "*"

'TxtCliente.BackColor = 0

'TxtCliente.ForeColor = vbGreen

'TxtCliente.font.size = 14

Me.Caption = "Ejemplo de consulta a cliente"

Set mc1 = Me.Controls.Add("DBMultiCombo.MultiCombo","mc1", Me)

With mc1

.Left = TxtCliente.Left

.Top = TxtCliente.Top

.Width = TxtCliente.Width + 450

.Height = TxtCliente.Height

Set .Connection = Ambiente.Connection

Set .txtObject = TxtCliente

.Buscar = "Clientes"

.Visible = True

Set TxtCliente.Container = mc1

End With

End Sub

Sub Button_Click()

Dim cUsuario

Dim cPassword

Dim nPos

Dim s

If ControlEvento.Tag = "cancelar" Then

bolAceptar = False

DescargaForma

Exit Sub

End If

'consulta a la base de datos

Set rstCliente = CreaRecordSet( _

"SELECT * FROM clients WHERE cliente = '" & TxtCliente & "'", _

Ambiente.Connection )

'En caso de que no se encuentre el usuario envía mensaje de error

If rstCliente.EOF Then

'Progress.Destroy

MyMessage "Error:" & vbCrLf & "No existe el cliente indicado"

EstableceFoco

Exit Sub

End If

mymessage " Cliente: " & rstCliente("cliente") & vbCrLf & " Nombre: " & rstCliente("nombre")

End Sub

Sub EstableceFoco()

TxtCliente.Setfocus

TxtCliente.SelStart = 0

TxtCliente.SelLength = Len( TxtCliente )

End Sub

Sub Text_KeyUp()

'Este bloque permite responder a una tecla

'En caso de

If KeyCode = 40 Then

Select Case ControlEvento.Tag

Case "TxtCliente"

TxtCliente.Container.ShowData

End Select

End If

'en caso de

If KeyCode = 27 Then

DescargaForma

'Exit Sub

End If

End Sub