alessandri 29-02-2024, 03:46
Saludos amigos.
Les dejo aquí un ejemplo de un proyecto con WebForm usando Mysql y GridView.
he adjutado la DB.
el usuario de la plicacion es juan y el pass 12345678, lo puden verificar en la tabla de usuarios.
Saludos.
Les dejo aquí un ejemplo de un proyecto con WebForm usando Mysql y GridView.
he adjutado la DB.
el usuario de la plicacion es juan y el pass 12345678, lo puden verificar en la tabla de usuarios.
Saludos.
Archivos adjuntos
kokodrilo 28-02-2024, 18:39
Saludos a todos después de años sin contacto, sigo con la misma pc y no tenia linux por el tema de la gpu, pero... ahora la versión debian 11.7 resuelve la resolución básica de pantalla y sin tener el controlador instalado se tiene una resolución de pantalla básica aceptable.
bueno después de dos años y pico sin tocar linux estoy muy oxidado a ver si me ayudan a instalar el ppa e instalar la versión mas nueva y estable de gambas3 creo es la 3.19.
después de esto: sudo add-apt-repository ppa:gambas-team/gambas3
me da este error:
sudo apt update
Obj:1 http://deb.debian.org/debian bullseye InRelease
Des:2 http://ppa.launchpad.net/gambas-team/gambas3/ubuntu noble InRelease [17,3 kB]
Err:2 http://ppa.launchpad.net/gambas-team/gambas3/ubuntu noble InRelease
Las firmas siguientes no se pudieron verificar porque su clave pública no está disponible: NO_PUBKEY 50B027516CAEE58D
Leyendo lista de paquetes... Hecho
W: Error de GPG: http://ppa.launchpad.net/gambas-team/gambas3/ubuntu noble InRelease: Las firmas siguientes no se pudieron verificar porque su clave pública no está disponible: NO_PUBKEY 50B027516CAEE58D
E: El repositorio «http://ppa.launchpad.net/gambas-team/gambas3/ubuntu noble InRelease» no está firmado.
N: No se puede actualizar de un repositorio como este de forma segura y por tanto está deshabilitado por omisión.
N: Vea la página de manual apt-secure(8) para los detalles sobre la creación de repositorios y la configuración de usuarios.
bueno después de dos años y pico sin tocar linux estoy muy oxidado a ver si me ayudan a instalar el ppa e instalar la versión mas nueva y estable de gambas3 creo es la 3.19.
después de esto: sudo add-apt-repository ppa:gambas-team/gambas3
me da este error:
sudo apt update
Obj:1 http://deb.debian.org/debian bullseye InRelease
Des:2 http://ppa.launchpad.net/gambas-team/gambas3/ubuntu noble InRelease [17,3 kB]
Err:2 http://ppa.launchpad.net/gambas-team/gambas3/ubuntu noble InRelease
Las firmas siguientes no se pudieron verificar porque su clave pública no está disponible: NO_PUBKEY 50B027516CAEE58D
Leyendo lista de paquetes... Hecho
W: Error de GPG: http://ppa.launchpad.net/gambas-team/gambas3/ubuntu noble InRelease: Las firmas siguientes no se pudieron verificar porque su clave pública no está disponible: NO_PUBKEY 50B027516CAEE58D
E: El repositorio «http://ppa.launchpad.net/gambas-team/gambas3/ubuntu noble InRelease» no está firmado.
N: No se puede actualizar de un repositorio como este de forma segura y por tanto está deshabilitado por omisión.
N: Vea la página de manual apt-secure(8) para los detalles sobre la creación de repositorios y la configuración de usuarios.
tincho 28-02-2024, 12:36
Hola, a raíz de una pregunta de un compañero del foro, sobre la obtención de fechas a partir de cadenas de texto, hice una función que creo que resuelve el problema.
Espero que se diviertan mejorandola como me divertí yo creándola.
Espero que se diviertan mejorandola como me divertí yo creándola.
Código:
'' Returns the date from a string, if mode is not pased the deafult values is DMY
Public Function toDate(s As String, Optional sMode As String = "DMY") As Date
Dim p As Integer '' position of the year 0 or 2
Dim a As String[]
Dim dt As Date
Dim ix As Integer
If InStr(s, " ") Then
s = Split(s, " ")[0]
Endif
If InStr(s, "/") > 0 Or InStr(s, "-") > 0 Then
If InStr(s, "/") > 0 Then
a = Split(s, "/")
Else
a = Split(s, "-")
Endif
For ix = 0 To a.Max
If Len(a[ix]) = 1 Then
a[ix] = "0" & a
Endif
Next
If Len(a[0]) = 4 Then
dt = Date(CInt(a[0]), CInt(a[1]), CInt(a[2])) ' ISO
Else
If Len(a[0]) = 2 And Len(a[1]) = 2 And Len(a[2]) = 2 Then
' Acá esta el problema pues la fecha puede ser MM/DD/YY (EEUU), DD/MM/YY (Europa), YY/MM/DD (Japón)
Select Upper(sMode)
Case "DMY" ' Europe
dt = Date(CInt(a[2]), CInt(a[1]), CInt(a[0]))
Case "MDY" ' EEUU
dt = Date(CInt(a[2]), CInt(a[0]), CInt(a[1]))
Case "YMD" ' Japón
dt = Date(CInt(a[0]), CInt(a[1]), CInt(a[0]))
End Select
Endif
Endif
Endif
Return dt
End
Bienvenido, Invitado
Últimos temas
Convertir formatos de aud...
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: vuott, Hace 4 horas
Respuestas: 0 - Vistas: 18
Paren...WAIT !!!
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: guizans, 25-08-2025, 14:49
Respuestas: 3 - Vistas: 412
Gambas y Wayland
Foro: GeneralÚltimo mensaje por: guizans, 20-08-2025, 13:56
Respuestas: 6 - Vistas: 559
Odio a gb.Report
Foro: GeneralÚltimo mensaje por: guizans, 19-08-2025, 10:40
Respuestas: 8 - Vistas: 913