From 0d73b5ad0d8b80c7072036998aa60ca3099f42f4 Mon Sep 17 00:00:00 2001
From: David Villalobos Cambronero <david_villalobos_c@yahoo.com>
Date: Tue, 21 Oct 2008 21:56:00 +0000
Subject: [PATCH] [GB.DB.MSYQL] * NEW: Added Id function to MySQL class that
 returns the connection Id.

git-svn-id: svn://localhost/gambas/trunk@1648 867c0c6c-44f3-4631-809d-bfa615b0a4ec
---
 gb.db.mysql/src/gb.db.mysql/_MySQL.class | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gb.db.mysql/src/gb.db.mysql/_MySQL.class b/gb.db.mysql/src/gb.db.mysql/_MySQL.class
index a710935a5..31bb92ffc 100644
--- a/gb.db.mysql/src/gb.db.mysql/_MySQL.class
+++ b/gb.db.mysql/src/gb.db.mysql/_MySQL.class
@@ -262,3 +262,10 @@ Private Function Query_Read() As String
   Return modMain.$Query
 
 End
+
+Public Function Id() As String
+
+  modMain.$Query = "SELECT CONNECTION_ID()"
+  Return modMain.$Connection.Exec(modMain.$Query)["CONNECTION_ID()"]
+
+End