This commit is contained in:
cvaldes1201
2024-05-16 10:40:42 -06:00
parent 047d927224
commit a2f036d7f7
7 changed files with 40 additions and 30 deletions

View File

@@ -419,7 +419,7 @@ Sub ImageView4_Click
Label1 = ListView1.SingleLineLayout.Label
Label1.TextSize = 20
Label1.TextColor = Colors.Black
ListView1.AddSingleLine("http://keymon.lat:1781")
ListView1.AddSingleLine(Starter.DBReqServer)
c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER"))
c.Position =0
E_SERVER.text = c.GetString("CAT_VA_VALOR")