Apuntes Informaticos

mysql_fetch_object() : Devuelve la fila actual de un conjunto de resultados como un objeto while ( $row = mysql_fetch_object ( $result )) { echo $row -> user_id ; echo $row -> fullname ; } mysql_fetch_assoc () devuelve una matriz asociativa : while ( $row = mysql_fetch_assoc ( $result )) { echo $row [ "userid" ]; echo $row [ "fullname" ]; } y mysql_fetch_array () devuelve array : while ( $row = mysql_fetch_assoc ( $result )) { echo $row [ 0 ]; echo $row [ 1 ] ; } 14 voto abajo aceptado mysql_fetch_array  te conseguirá una matriz que puede tener como claves: ambos números y nombres de columnas, si se usa  MYSQL_BOTH nombres de columnas, usando  MYSQL_ASSOC  - en este caso, obtendrás lo mismo que obtienes al usar  mysql_fetch_assoc solo números (dependiendo del orden de las columnas en la consulta), si se usa  MYSQL_NUM Obtener resultados indexados por nombres de columnas es probablemente la solución ...

Option Private Module Option Explicit Sub Mensaje() MsgBox "Hola Excelaprende.com", vbInformation, "www.excelaprende.com" End Sub OTRA FORMA : ThisWorkbook Private Sub Workbook_Open() If Date <= DateSerial(2017, 7, 11) Then Exit Sub Application.EnableCancelKey = xlErrorHandler On Error GoTo Ver_Error licenciauso = InputBox("Introducir la licencia de uso") If linciauso <> "hola" Then     MsgBox "Clave Incorrecta; Vuelva a introducir la clave"     licenciauso2 = InputBox("Lincencia de uso 2da. oportunidad")     If lincenciauso2 <> "hola" Then         MsgBox "Clave Incorrecta, última oportunidad"         licenciauso3 = InputBox("Lincenciade uso 3ra. oportunidad")         If licenciauso3 <> "hola" Then             ActiveWorkbook.Close         End If     End If End If GoTo fin Ver_Error...