Last updated by at .

Visual Basic 6.0 – Problema con PDSODBC.DLL

Written by lopezatienza on 17/09/2015 – 13:22 -

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 »


Posted in Visual Basic 6.0 | No Comments »

Visual Basic 6.0 – Formatear número con decimales sin redondeo

Written by lopezatienza on 21/05/2009 – 12:24 -

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


Tags:
Posted in Visual Basic 6.0 | No Comments »

Visual Basic 6.0 – Cantidad de bytes que ocupa un directorio

Written by lopezatienza on 13/01/2009 – 12:04 -

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


Tags:
Posted in Visual Basic 6.0 | No Comments »

Visual Basic 6.0 – Comprobar si el programa esta en ejecucion

Written by lopezatienza on 13/01/2009 – 12:00 -

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


Tags:
Posted in Visual Basic 6.0 | 2 Comments »

Visual Basic 6.0 – Leer y escribir un archivo .Ini

Written by lopezatienza on 13/01/2009 – 11:55 -

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 »


Tags:
Posted in Visual Basic 6.0 | No Comments »

Visual Basic 6.0 – TextBox aceptar solo numeros

Written by lopezatienza on 13/01/2009 – 11:51 -

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


Tags:
Posted in Visual Basic 6.0 | 2 Comments »

Visual Basic 6.0 – Ruta de nuestra aplicación

Written by lopezatienza on 13/01/2009 – 11:45 -


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


Tags:
Posted in Visual Basic 6.0 | No Comments »
RSS
MCC D5E