~楓花雪岳~: 6月 2019

星期二, 6月 25, 2019

[VFP] CursorAdapter 使用 Store Procedure - 回傳 identity

該篇為 [VFP] CursorAdapter 使用 Store Procedure 的延續利用 identity 當成 PK，insert 時都有取回 identity 值的需求，筆記一下

CREATE PROCEDURE [dbo].[dmlEmployee_Insert]
(
  @UserName char(10) ,
  @HireDate datetime ,
  @Age int ,
  @UserID int output
)
AS
BEGIN

  SET NOCOUNT ON;

  INSERT INTO Employee (UserName , HireDate , Age)
   VALUES(@UserName , @HireDate , @Age)

  SET @UserID = SCOPE_IDENTITY()
END
GO

Insert Command 內宣告參數 (@lcUserID、名稱可以自訂) 來接就行

在 VFP 中顯示 identity 值

lcUserID = ""
lbResult = TABLEUPDATE(1,.T.,"Employee")
IF lbResult = .F.
  AERROR(laError)
  MESSAGEBOX(laError(2))
ELSE 
  MESSAGEBOX(lcUserID)
ENDIF

星期一, 6月 24, 2019

[VFP] CursorAdapter 使用 Store Procedure

跟同事討論時突然想到，VFP 都是透過 SPT 來呼叫 SP，所以直覺是 CursorAdapter 無法做到，能呼叫 SP 的話，可以把商業邏輯封在 SP 內，可以解決不少麻煩，查資料發現是可以的，弄個小範例來記錄重點

SQL Server 內相關設定

在 TempDB 內建立 Employee Table

USE [tempdb]
GO

CREATE TABLE [dbo].[Employee](
  [UserID] [int] IDENTITY(1,1) NOT NULL Primary Key,
  [UserName] [char](20) NULL,
  [HireDate] [datetime] NULL,
  [Age] [tinyint] NULL)
GO

INSERT INTO Employee (UserName , HireDate , Age)
  VALUES('張三' , '2019-06-01' , 30)
INSERT INTO Employee (UserName , HireDate , Age)
  VALUES('李四' , '2018-12-11' , 25)

建立 Insert、Update 和 Delete Store Procedure

-- Insert
CREATE PROCEDURE [dbo].[dmlEmployee_Insert]
(
  @UserName char(10) ,
  @HireDate datetime ,
  @Age int ,
  @UserID int output
)
AS
BEGIN

  SET NOCOUNT ON;

  INSERT INTO Employee (UserName , HireDate , Age)
   VALUES(@UserName , @HireDate , @Age)

  SET @UserID = SCOPE_IDENTITY()
END
GO

-- Update
CREATE PROCEDURE [dbo].[dmlEmployee_Update]
(
  @UserID int ,
  @UserName char(10) ,
  @HireDate datetime ,
  @Age int
)
AS
BEGIN

  SET NOCOUNT ON;

  UPDATE Employee
  SET UserName = @UserName , 
   HireDate = @HireDate , 
   Age = @Age
  WHERE UserID = @UserID
END
GO

-- Delete
CREATE PROCEDURE [dbo].[dmlEmployee_Delete]
(
  @UserID int
)
AS
BEGIN

  SET NOCOUNT ON;

  DELETE FROM Employee WHERE UserID = @UserID
END
GO

CursorAdapter 設定

AutoUpdate Tag => Advanced Button

覆蓋自動產生的 insert、update 和 delete 語法

利用 SQL Profile 來側錄 insert、update 和 delete 語法，確定有使用 SP

星期三, 6月 19, 2019

星期二, 6月 18, 2019

[SSMS] SQLFile 預設編碼

對 TSQL Script 進行版控並 push 到 Azure DevOps 上時，才發現 Script 檔案編碼是 big5

手動變更 Script 檔案編碼，先另存該檔案

選擇 [以編碼方式儲存] 該檔案

預設為 [繁體中文 (Big5) - 子碼頁 950]，修改為 [Unicode (UTF-8 有簽章) - 子碼頁 65001]

SSMS TSQL Script 檔案，是以 SQLFile 為範本產生，因此只要修正 SQL File 編碼，以後就通通都是 UTF-8

目前使用的 SSMS 是 V18 版本，可以在 C:\Program Files (x86)\Microsoft SQL Server Management Studio 18\Common7\IDE\SqlWorkbenchProjectItems\Sql 找到 SQLFile，只要根據上述步驟，把該檔案編碼改為 UTF-8，以後新增 TSQL Script 檔案就會是 UTF-8