lopezatienza.com

Comentarios

Me he encontrado con un problema en un proyecto desarrollado en Visual Basic 6.0 al ejecutarlo en un equipo cliente, y resulta que en tiempo de ejecución cuando abro un informe hecho en Crystal Reports que utilizaba ODBC, me daba un error con el archivo PDSODBC.DLL

Estos son algunos de los errores con los que os podéis encontrar:

• "PDSODBC.DLL no encontrado".
• "Falta el archivo PDSODBC.DLL".
• "PDSODBC.DLL infracción de acceso."
• "No se puede registrar PDSODBC.DLL."
• "No se encuentra C:\Windows\System32\\PDSODBC.DLL".
• "Microsoft Visual Basic Enterprise Edition no se puede iniciar. Falta un componente requerido: PDSODBC.DLL. Por favor vuelva a instalar Microsoft Visual Basic Enterprise Edition".
• "Esta aplicación falló al iniciar ya que PDSODBC.DLL no se encontró. La reinstalación de la aplicación podría solucionar el problema".

Read more »

A continuación os muestro una función para formatear un número con dos decimales sin redondear:

Public Function Formatear(NumeroAFormatear)

If IsNumeric(NumeroAFormatear) = False Then Exit Function

Dim PosicionDecimal
Dim NumeroOriginal

NumeroOriginal = NumeroAFormatear
'MsgBox "NumeroOriginal = " & NumeroOriginal

PosicionDecimal= InStr(1, NumeroOriginal , ",")
'MsgBox "PosicionDecimal= " & PosicionDecimal

NumeroAFormatear = Mid(NumeroOriginal , 1, PosicionDecimal+ 2)
'MsgBox "NumeroAFormatear = " & NumeroAFormatear

'El número de decimales en este caso sería 2, pero ese se puede cambiar en la función Mid, pasándole como tercer parámetros PosicionDecimal + Número de decimales que deseemos

End Function

Autor: Antonio Lopez Atienza

Un ejemplo de como saber cuánto ocupa un directorio.

Tomado de esta web.

Sub Form_Load()

        Dim FileName As String

        Dim FileSize As Currency

        Dim Directory As String

        Directory = "c:\windows\"

        FileName = Dir$(Directory & "*.*")

        FileSize = 0

        Do While FileName <> ""

            FileSize = FileSize + FileLen(Directory & FileName)

            FileName = Dir$()

        Loop

        Text1.Text = "Este directorio ocupa la cantidad de bytes = " + Str$(FileSize)

    End Sub

Autor: Antonio Lopez Atienza

Un ejemplo de como comprobar si el programa esta en ejecucion.

Tomado de esta web.

Crear un nuevo proyecto e insertar el siguiente código:

    Private Sub Form_Load()

        If App.PrevInstance Then

            Msg = App.EXEName & ".EXE" & " ya está en ejecución"

            MsgBox(Msg, 16, "Aplicación.")

            End

        End If

    End Sub

Autor: Antonio Lopez Atienza

Un ejemplo de como leer y escribir un archivo .Ini.

Tomado de esta web.

Declaraciones generales en un módulo:

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA"_

(ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As_

String ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As_

String) As Long

Declare Function WritePrivateProfileString Lib "kernel32" Alias_

"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As_

Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

  Read more »

Un ejemplo de como aceptar datos numéricos.

Tomado de esta web.

Sub Text1_Keypress(KeyAscii As Integer)

        If KeyAscii <> Asc("9") Then

            'KeyAscii = 8 es el retroceso o BackSpace

            If KeyAscii <> 8 Then

                KeyAscii = 0

            End If

        End If

    End Sub

Nuevo:

    Private Sub Text1_Keypress(ByVal KeyAscii As Integer)

        If Not IsNumeric(Chr$(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0

    End Sub

Autor: Antonio Lopez Atienza

Un ejemplo de como conocer la ruta de nuestra aplicación.

Tomado de esta web.

Private Sub Form_Load()

        Dim Directorio As String

        ChDir(App.Path)

        ChDrive(App.Path)

        Directorio = App.Path

        If Len(Directorio) > 3 Then

            Directorio = Directorio & "\"

        End If

End Sub

Autor: Antonio Lopez Atienza