- 1.0.6 2026-08-25 Se agrega función para obtener la IP del servidor SQL Server

2026-08-25 09:27:47 +02:00
parent 28bd4d7345
commit 51860a43ac
2 changed files with 10 additions and 1 deletions
--- a/bbdd.vb
+++ b/bbdd.vb
@@ -10,4 +10,12 @@ Public Class bbdd
            Return "** desconocida **"
        End Try
    End Function
+    Public Shared Function ObtieneIPSQLServer(bd As DbContext) As String
+        Try
+            Dim sIp As String = bd.Database.SqlQuery(Of String)($"select CONNECTIONPROPERTY('client_net_address') AS client_net_address;").ToList.First
+            Return sIp
+        Catch ex As Exception
+            Return "** desconocida **"
+        End Try
+    End Function
 End Class