cambio db a skmt y bitacora

This commit is contained in:
cvaldes1201
2023-10-09 10:29:50 -06:00
parent adab335f3e
commit ad360acd8c
20 changed files with 918 additions and 891 deletions

View File

@@ -100,7 +100,7 @@ Sub Activity_Resume
End If
c.Close
Dim usuario As String = ""
c = Starter.db.ExecQuery("select usuario from usuarioa")
c = Starter.skmt.ExecQuery("select usuario from usuarioa")
If c.RowCount > 0 Then
c.Position = 0
usuario = c.GetString("USUARIO")