Uma Function em um banco de dados é muito similar a uma função em uma linguagem de programação comum, podendo até mesmo ser criada com uma linguagem de programação como Java, para os bancos de dados Oracle e IBM DB2 ou uma rotina CLR para o banco de dados MSSQL, entretanto possuem varias diferenças entre os diferentes bancos de dados.
Uma Function padrão pode ser do tipo Escalar que normalmente retorna um valor ou pode ser do tipo Tabela, que retorna uma tabela, porem dependendo do banco de dados utilizado, podem existir vários outros tipos de retornos ou também de funções, por este motivo é recomendado que você acesse os links oficiais a seguir para saber mais detalhes sobre as funções:
Oracle: Create Function
IBM DB2: Create Function
Microsoft SQL Server: Create Function
O programa abaixo é muito similar ao programa anterior que cria uma trigger, porem o calculo do campo SLIQUIDO é efetuado através de uma função do mesmo nome, na query que retorna o set de dados para a grade, você pode notar que esta função possui uma sintaxe muito semelhante as funções ou métodos do qual você já está acostumado, exceto pelo banco de dados MSSQL que necessita que o proprietário da função seja declarado antes do nome da função.
Visual Studio
Para efetuar as conexões com os diferentes bancos de dados você precisa primeiro configurar os drivers ODBC necessários no sistema operacional, depois você pode criar um design com 3 componentes RadioButton, 2 componentes Static Texts, 2 componentes Text Control, um componente Button e um componente CListControl, você encontra um walkthrough de como configurar os drivers ODBC na categoria SQL e C++ deste site, use a figura abaixo para referencia do design:
Exemplo:
Neste exemplo utilizamos uma simples função escalar para efetuar um calculo e retornar um valor, utilize o script abaixo para criar os objetos necessários para cada banco de dados ou o banco de dados da sua preferencia.
SQL
Oracle
create table Funcionarios( ID_Funcionario NUMBER(5), Nome VARCHAR2(30), Sobrenome VARCHAR2(70), Cargo VARCHAR2(30), Salario NUMBER(9,2)); -- Cria Funcionarios Insert into FUNCIONARIOS values (1,'Steve','Gates','Programador',2550.56); Insert into FUNCIONARIOS values (2,'Bill','Jobs','Diretor',5143.71); Insert into FUNCIONARIOS values (3,'Wozniak','Gates','Desenvolvedor', 4389.21); -- Cria tabela com a porcentagem de descontos Create table DESCONTO ( ID_FUNCIONARIO NUMBER, PORCENTAGEM NUMBER(9,2)); -- Cria tabela de lançamentos de descontos Create table SALARIO ( ID_FUNCIONARIO NUMBER, DATA_LANC DATE, VDESCONTO NUMBER(9,2)); -- Deleta dados antigos -- Caso utlizou exemplos anteriores delete from desconto; delete from salario; -- Cria trigger na tabela Desconto create or replace TRIGGER DESCONTO_INSERT BEFORE INSERT ON DESCONTO FOR EACH ROW -- Declara variáveis DECLARE pID NUMBER; pSalario NUMBER(9,2); pPorcentagem NUMBER(9,2); BEGIN -- Alimenta variáveis com os valores a serem inseridos pID := :new.ID_FUNCIONARIO; pPorcentagem := :new.PORCENTAGEM; -- Seleciona Salario do funcionario corrente Select SALARIO INTO pSalario FROM FUNCIONARIOS WHERE ID_FUNCIONARIO = pID; -- insere na tabela de lançamentos de salario Insert into SALARIO values ( pID, SYSDATE, (pSalario * pPorcentagem)/100); END DESCONTO_INSERT; -- Cria Função Create or replace function sLiquido(sal IN NUMBER, vdesc IN NUMBER) RETURN NUMBER IS resultado NUMBER (9,2); BEGIN resultado := sal - vdesc; return (resultado); END;
DB2
create table Funcionarios ( ID_Funcionario INTEGER, Nome VARCHAR(30), Sobrenome VARCHAR(70), Cargo VARCHAR(30), Salario NUMERIC(9,2))@ Insert into FUNCIONARIOS values (1,'Steve','Gates','Programador',2550.56)@ Insert into FUNCIONARIOS values (2,'Bill','Jobs','Diretor',5143.71)@ Insert into FUNCIONARIOS values (3,'Wozniak','Gates','Desenvolvedor', 4389.21)@ -- Cria tabela com a porcentagem de descontos Create table DESCONTO ( ID_FUNCIONARIO INTEGER, PORCENTAGEM DECIMAL(9,2))@ -- Cria tabela de lançamentos de descontos Create table SALARIO ( ID_FUNCIONARIO INTEGER, DATA_LANC DATE, VDESCONTO DECIMAL(9,2))@ -- Deleta dados antigos -- Caso utlizou exemplos anteriores delete from desconto@ delete from salario@ -- Cria trigger na tabela Desconto create TRIGGER DESCONTO_INSERT BEFORE INSERT ON DESCONTO REFERENCING NEW AS N FOR EACH ROW P1: BEGIN -- Declara variáveis DECLARE pID NUMBER; DECLARE pSalario DECIMAL(9,2); DECLARE pPorcentagem DECIMAL(9,2); -- Alimenta variáveis com os valores a serem inseridos SET pID = N.ID_FUNCIONARIO; SET pPorcentagem = N.PORCENTAGEM; -- Seleciona Salario do funcionario corrente Select SALARIO INTO pSalario FROM FUNCIONARIOS WHERE ID_FUNCIONARIO = pID; -- insere na tabela de lançamentos de salario Insert into SALARIO values ( pID, SYSDATE, (pSalario * pPorcentagem)/100); END P1 -- Cria Função CREATE FUNCTION sLiquido (sal Decimal, vdesc Decimal) RETURNS DECIMAL (9,2) NO EXTERNAL ACTION F1: BEGIN ATOMIC DECLARE resultado DECIMAL(9,2); SET resultado = sal - vdesc; RETURN resultado; END
MSSQL
create table Funcionarios ( ID_Funcionario Int, Nome VARCHAR(30), Sobrenome VARCHAR(70), Cargo VARCHAR(30), Salario Decimal(9,2)); Insert into FUNCIONARIOS values (1,'Steve','Gates','Programador',2550.56); Insert into FUNCIONARIOS values (2,'Bill','Jobs','Diretor',5143.71); Insert into FUNCIONARIOS values (3,'Wozniak','Gates','Desenvolvedor', 4389.21); -- Cria tabela com a porcentagem de descontos Create table DESCONTO ( ID_FUNCIONARIO INT, PORCENTAGEM DECIMAL(9,2)); -- Cria tabela de lançamentos de descontos Create table SALARIO ( ID_FUNCIONARIO INT, DATA_LANC DATE, VDESCONTO DECIMAL(9,2)); -- Deleta dados antigos -- Caso utlizou exemplos anteriores delete from desconto; delete from salario; -- Cria trigger na tabela Desconto create TRIGGER DESCONTO_INSERT ON DESCONTO AFTER INSERT AS BEGIN -- Declara variáveis DECLARE @pID Int, @pSalario DECIMAL(9,2), @pPorcentagem DECIMAL(9,2); -- Alimenta variáveis com os valores a serem inseridos Select @pID = ID_FUNCIONARIO, @pPorcentagem = PORCENTAGEM from inserted; -- Seleciona Salario do funcionario corrente Select @pSalario = SALARIO FROM FUNCIONARIOS WHERE ID_FUNCIONARIO = @pID; -- insere na tabela de lançamentos de salario Insert into SALARIO values ( @pID, GETDATE(), (@pSalario * @pPorcentagem)/100); END; -- Cria função Create function sLiquido(@sal decimal, @vdesc decimal) Returns decimal(9,2) as Begin return(@sal-@vdesc); end
C++
Classe – Arquivo .h
// Classe gerada automaticamente // AcessocppDlg.h : header file // #pragma once // Inclui classe de banco de dados MFC #include "afxdb.h" #include "afxcmn.h" #include "afxwin.h" class CAcessocppDlg : public CDialogEx { public: CAcessocppDlg(CWnd* pParent = NULL); // standard constructor enum { IDD = IDD_ACESSOCPP_DIALOG }; protected: virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support protected: HICON m_hIcon; virtual BOOL OnInitDialog(); afx_msg void OnSysCommand(UINT nID, LPARAM lParam); afx_msg void OnPaint(); afx_msg HCURSOR OnQueryDragIcon(); DECLARE_MESSAGE_MAP() public: // Cria métodos e objetos da classe CDatabase db; CString bancodedados; void conectarDB(CString dns, CString usuario, CString senha); afx_msg void OnBnHotItemChangeRadio1(NMHDR *pNMHDR, LRESULT *pResult); afx_msg void OnBnHotItemChangeRadio2(NMHDR *pNMHDR, LRESULT *pResult); afx_msg void OnBnHotItemChangeRadio3(NMHDR *pNMHDR, LRESULT *pResult); afx_msg void OnBnClickedButton1(); CListCtrl m_tabela; CEdit m_funcionario; CEdit m_porcentagem; };
Classe – Arquivo .cpp
// Código gerado automaticamente // AcessocppDlg.cpp : implementation file // #include "stdafx.h" #include "Acessocpp.h" #include "AcessocppDlg.h" #include "afxdialogex.h" #ifdef _DEBUG #define new DEBUG_NEW #endif class CAboutDlg : public CDialogEx { public: CAboutDlg(); enum { IDD = IDD_ABOUTBOX }; protected: virtual void DoDataExchange(CDataExchange* pDX); protected: DECLARE_MESSAGE_MAP() }; CAboutDlg::CAboutDlg() : CDialogEx(CAboutDlg::IDD) { } void CAboutDlg::DoDataExchange(CDataExchange* pDX) { CDialogEx::DoDataExchange(pDX); } BEGIN_MESSAGE_MAP(CAboutDlg, CDialogEx) END_MESSAGE_MAP() CAcessocppDlg::CAcessocppDlg(CWnd* pParent /*=NULL*/) : CDialogEx(CAcessocppDlg::IDD, pParent) { m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME); } void CAcessocppDlg::DoDataExchange(CDataExchange* pDX) { CDialogEx::DoDataExchange(pDX); DDX_Control(pDX, IDC_LIST2, m_tabela); DDX_Control(pDX, IDC_EDIT1, m_funcionario); DDX_Control(pDX, IDC_EDIT2, m_porcentagem); } BEGIN_MESSAGE_MAP(CAcessocppDlg, CDialogEx) ON_WM_SYSCOMMAND() ON_WM_PAINT() ON_WM_QUERYDRAGICON() ON_NOTIFY(BCN_HOTITEMCHANGE, IDC_RADIO1, &CAcessocppDlg::OnBnHotItemChangeRadio1) ON_NOTIFY(BCN_HOTITEMCHANGE, IDC_RADIO2, &CAcessocppDlg::OnBnHotItemChangeRadio2) ON_NOTIFY(BCN_HOTITEMCHANGE, IDC_RADIO3, &CAcessocppDlg::OnBnHotItemChangeRadio3) ON_BN_CLICKED(IDC_BUTTON1, &CAcessocppDlg::OnBnClickedButton1) END_MESSAGE_MAP() BOOL CAcessocppDlg::OnInitDialog() { CDialogEx::OnInitDialog(); ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX); ASSERT(IDM_ABOUTBOX < 0xF000); CMenu* pSysMenu = GetSystemMenu(FALSE); if (pSysMenu != NULL) { BOOL bNameValid; CString strAboutMenu; bNameValid = strAboutMenu.LoadString(IDS_ABOUTBOX); ASSERT(bNameValid); if (!strAboutMenu.IsEmpty()) { pSysMenu->AppendMenu(MF_SEPARATOR); pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu); } } SetIcon(m_hIcon, TRUE); SetIcon(m_hIcon, FALSE); // Desenvolvimento Aberto // Inicializa dialogo // Define variavel padrão para o banco de dados bancodedados = "oracle"; // Cria o modelo de exibição de dados m_tabela.SetView(LV_VIEW_DETAILS); m_tabela.SendMessage(LVM_SETEXTENDEDLISTVIEWSTYLE, 0, LVS_EX_GRIDLINES); return TRUE; } void CAcessocppDlg::OnSysCommand(UINT nID, LPARAM lParam) { if ((nID & 0xFFF0) == IDM_ABOUTBOX) { CAboutDlg dlgAbout; dlgAbout.DoModal(); } else { CDialogEx::OnSysCommand(nID, lParam); } } void CAcessocppDlg::OnPaint() { if (IsIconic()) { CPaintDC dc(this); SendMessage(WM_ICONERASEBKGND, reinterpret_cast<WPARAM>(dc.GetSafeHdc()), 0); int cxIcon = GetSystemMetrics(SM_CXICON); int cyIcon = GetSystemMetrics(SM_CYICON); CRect rect; GetClientRect(&rect); int x = (rect.Width() - cxIcon + 1) / 2; int y = (rect.Height() - cyIcon + 1) / 2; dc.DrawIcon(x, y, m_hIcon); } else { CDialogEx::OnPaint(); } } HCURSOR CAcessocppDlg::OnQueryDragIcon() { return static_cast<HCURSOR>(m_hIcon); } // ************************** // * Desenvolvimento Aberto * // ************************** // Nosso código começa aqui // Seleciona banco de dados Oracle void CAcessocppDlg::OnBnHotItemChangeRadio1(NMHDR *pNMHDR, LRESULT *pResult) { LPNMBCHOTITEM pHotItem = reinterpret_cast<LPNMBCHOTITEM>(pNMHDR); bancodedados = "oracle"; *pResult = 0; } // Seleciona banco de dados IBM DB2 void CAcessocppDlg::OnBnHotItemChangeRadio2(NMHDR *pNMHDR, LRESULT *pResult) { LPNMBCHOTITEM pHotItem = reinterpret_cast<LPNMBCHOTITEM>(pNMHDR); bancodedados = "db2"; *pResult = 0; } // Seleciona banco de dados MSSQL void CAcessocppDlg::OnBnHotItemChangeRadio3(NMHDR *pNMHDR, LRESULT *pResult) { LPNMBCHOTITEM pHotItem = reinterpret_cast<LPNMBCHOTITEM>(pNMHDR); bancodedados = "mssql"; *pResult = 0; } // Evento de clique do botão void CAcessocppDlg::OnBnClickedButton1() { // campo de dado da tabela CString m_campo; // Abre conexão if (bancodedados == "oracle") { conectarDB(L"OracleXE", L"daberto", L"p@55w0rd"); } if (bancodedados == "db2") { conectarDB(L"IBMDB2", L"db2admin", L"p@55w0rd"); } if (bancodedados == "mssql") { conectarDB(L"MSSQLSERVER", L"devaberto", L"p@55w0rd"); } // Cria um set de dados CRecordset dados(&db); // Cria variáveis de entrada CString m_func; CString m_porc; // Recupera valor de entrada m_funcionario.GetWindowTextW(m_func); m_porcentagem.GetWindowTextW(m_porc); // Cria instrução SQL para disparar a trigger CString sqltrigger = L"insert into DESCONTO VALUES (" + m_func + ", " + m_porc + ")"; // Executa instrução SQL db.ExecuteSQL(sqltrigger); // Cria proprietario do banco de dados CString owner = L"dbo."; // SQL Server requer o proprietario para que a função seja executada if (bancodedados != "mssql") owner = ""; // Verfica banco de dados e passa script SQL CString sql = CString("Select A.ID_FUNCIONARIO, A.NOME, A.CARGO, ") + CString(" A.SALARIO, B.PORCENTAGEM,C.VDESCONTO, ") + CString("C.DATA_LANC, ") + owner // Executa função SLIQUIDO - retorna o calculo do salario liquido. + CString("SLIQUIDO(A.SALARIO, C.VDESCONTO) AS SLIQUIDO ") + CString("from FUNCIONARIOS A, DESCONTO B, SALARIO C Where ") + CString("A.ID_FUNCIONARIO = B.ID_FUNCIONARIO AND ") + CString("A.ID_FUNCIONARIO = C.ID_FUNCIONARIO ") + CString("Order by 1 desc"); // Abre set de dados dados.Open(CRecordset::forwardOnly, sql); // Cria item LVITEM lvItem; // cria estrutura para inserir o item typedef struct _LVITEM { UINT mask; int iItem; int iSubItem; UINT state; UINT stateMask; LPTSTR pszText; int cchTextMax; int iImage; LPARAM lParam; #if (_WIN32_IE >= 0x0300) int iIndent; #endif } LVITEM, FAR *LPLVITEM; // Define variaveis de itens int InsertItem(const LVITEM* pItem); int nItem; // Converte CString para LPTSTR atraves de um TCHAR TCHAR sz[1024]; // Verifica colunas short nFields = dados.GetODBCFieldCount(); int colunas = m_tabela.GetHeaderCtrl()->GetItemCount(); // Verifica colunas if (colunas == 0) { // Lê metadata da tabela CODBCFieldInfo field; for (UINT i = 0; i < nFields; i ++) { dados.GetODBCFieldInfo(i, field); m_tabela.InsertColumn(i, field.m_strName, LVCFMT_LEFT, 100); } } // Deleta itens do controle de lista m_tabela.DeleteAllItems(); // Recupera dados da tabela while (!dados.IsEOF()) { for (short index = 0; index < nFields; index++) { dados.GetFieldValue(index, m_campo); // Retorna linha do banco de dados if (index == 0) { // Insere linha lvItem.mask = LVIF_TEXT; lvItem.iItem = 0; lvItem.iSubItem = 0; lvItem.pszText = lstrcpy(sz, m_campo); nItem = m_tabela.InsertItem(&lvItem); } // Retorna colunas da linha m_tabela.SetItemText(nItem, index, lstrcpy(sz, m_campo)); } // Move o cursor para a proxima linha dados.MoveNext(); } // Fecha o set de dados e a conexão dados.Close(); db.Close(); } void CAcessocppDlg::conectarDB(CString dns, CString usuario, CString senha) { // Cria string de conexão ODBC CString conexao; // Cria string de conexão conexao = L"DSN=" + dns + L";UID=" + usuario + L";PWD=" + senha; // Abre conexão db.OpenEx(conexao, 0); }