Browse Source

* Added GetLastInsertID

git-svn-id: trunk@23041 -
michael 12 years ago
parent
commit
58d0d3c593
1 changed files with 7 additions and 0 deletions
  1. 7 0
      packages/fcl-db/src/sqldb/mysql/mysqlconn.inc

+ 7 - 0
packages/fcl-db/src/sqldb/mysql/mysqlconn.inc

@@ -122,6 +122,7 @@ Type
     procedure GetFieldNames(const TableName : string; List :  TStrings); override;
     procedure GetFieldNames(const TableName : string; List :  TStrings); override;
     procedure GetTableNames(List : TStrings; SystemTables : Boolean = false); override;
     procedure GetTableNames(List : TStrings; SystemTables : Boolean = false); override;
     function GetConnectionInfo(InfoType:TConnInfoType): string; override;
     function GetConnectionInfo(InfoType:TConnInfoType): string; override;
+    Function GetLastInsertID: int64;
     procedure CreateDB; override;
     procedure CreateDB; override;
     procedure DropDB; override;
     procedure DropDB; override;
     Property ServerInfo : String Read FServerInfo;
     Property ServerInfo : String Read FServerInfo;
@@ -296,6 +297,12 @@ begin
   Result := mysql_stat(FMYSQL);
   Result := mysql_stat(FMYSQL);
 end;
 end;
 
 
+function TConnectionName.GetLastinsertID: Int64;
+begin
+  CheckConnected;
+  Result:=mysql_insert_id(GetHandle);
+end;
+
 procedure TConnectionName.ConnectMySQL(var HMySQL : PMySQL;H,U,P : pchar);
 procedure TConnectionName.ConnectMySQL(var HMySQL : PMySQL;H,U,P : pchar);
 
 
 Var
 Var