From 51860a43ace6e2c9d1de2d2d277e9e0a9dd46635 Mon Sep 17 00:00:00 2001
From: manuel <manmog@tecnosis.net>
Date: Tue, 25 Aug 2026 09:27:47 +0200
Subject: [PATCH] =?UTF-8?q?-=201.0.6=20=202026-08-25=20Se=20agrega=20funci?=
 =?UTF-8?q?=C3=B3n=20para=20obtener=20la=20IP=20del=20servidor=20SQL=20Ser?=
 =?UTF-8?q?ver?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 bbdd.vb          | 8 ++++++++
 tsEFCore8.vbproj | 3 ++-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/bbdd.vb b/bbdd.vb
index d8c1cf6..0fdfcdf 100644
--- 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
diff --git a/tsEFCore8.vbproj b/tsEFCore8.vbproj
index ff72b6a..e573d65 100644
--- a/tsEFCore8.vbproj
+++ b/tsEFCore8.vbproj
@@ -11,11 +11,12 @@
 		<TargetFramework>net8.0</TargetFramework>
 		<PackageId>tsEFCore8</PackageId>
 		<PackageTags>net8.0, libreria</PackageTags>
-		<Version>1.0.5</Version>
+		<Version>1.0.6</Version>
 		<Authors>Pedro</Authors>
 		<Company>Tecnosis S.A</Company>
 		<Description>Utilidades Entity Framework compatibles con EF Core 8.</Description>
 		<PackageReleaseNotes>
+			- 1.0.6		2026-08-25 Se agrega función para obtener la IP del servidor SQL Server
 			- 1.0.5		2026-03-18 Se comprueba el atributo MaxLength en ObtieneLongitudCampo en caso de que no se encuentre la propiedad 
 			- Se agrega README.md
 		</PackageReleaseNotes>