mirror of
https://github.com/KeymonSoft/Kelloggs_v4.git
synced 2026-04-18 02:29:13 +00:00
cambio db a skmt y bitacora
This commit is contained in:
@@ -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")
|
||||
|
||||
Reference in New Issue
Block a user