詳解易語言操作sql server實例

最近看到很多初學者在問在易語言中如何操作SQL Server以外部數據庫，也有人提出想要個全面的操作過程，為了讓大家能夠盡快上手，我給大家簡單介紹一下操作SQL的過程，希望能起到拋磚引玉的作用。

由于我本身工作業比較忙，就以我目前做的一個軟件的部份內容列給大家簡單講講吧，高手就不要笑話了，只是針對初學者
第一步，首先需要建立一個數據庫：

以建立一個員工表為例，各字段如下：

3 員工ID int 4 0
0 登陸帳號 nvarchar 30 1
0 密碼 nvarchar 15 1
0 所屬部門 nvarchar 30 1
0 姓名 nvarchar 10 1
0 性別 nvarchar 2 1
0 年齡 nvarchar 10 1
0 當前職務 nvarchar 10 1
0 級別 nvarchar 10 1
0 出生日期 nvarchar 40 1
0 專業 nvarchar 10 1
0 學歷 nvarchar 8 1
0 婚姻狀況 nvarchar 4 1
0 身份證號 nvarchar 17 1
0 籍貫 nvarchar 50 1
0 畢業院校 nvarchar 50 1
0 興趣愛好 nvarchar 600 1
0 電話 nvarchar 11 1
0 家庭成員 nvarchar 20 1
0 工作經歷 nvarchar 600 1
0 銷售行業經驗nvarchar 600 1
0 離職原因 nvarchar 600 1
0 升遷記錄 nvarchar 600 1
0 調崗記錄 nvarchar 600 1
0 特殊貢獻 nvarchar 600 1
0 獎勵記錄 nvarchar 600 1
0 處罰記錄 nvarchar 600 1
0 同事關系 nvarchar 4 1
0 企業忠誠度 nvarchar 4 1
0 入司日期 nvarchar 30 1
0 在職狀態 nvarchar 4 1
0 上級評語 nvarchar 600 1
0 最后登陸時間 nvarchar 20 1
0 登陸次數 nvarchar 50 1
0 照片 image 16 1

一般我習慣用nvarchar，因為這是可變長的的非Unicode數據，最大長度為8000個字符，您可以根據您的情況來設定，我這里只是舉例說明。

第二步：在易言語中建立數據庫連接，用外部數據庫控件，可先建立4個全局變量：

1、建立全局變量：

.版本 2
.全局變量 服務器, 文本型
.全局變量 服務器數據庫, 文本型
.全局變量 服務器用戶名, 文本型
.全局變量 服務器密碼, 文本型

2、給變量賦值：

.版本 2
服務器 ＝ 讀配置項 (取運行目錄 () ＋ “\sys.ini”, “server info”, “server”, “您的服務器地址”)
服務器用戶名 ＝ 讀配置項 (取運行目錄 () ＋ “\sys.ini”, “server info”, “uid”, “您的服務器用戶名”)
服務器密碼 ＝ 讀配置項 (取運行目錄 () ＋ “\sys.ini”, “server info”, “pwd”, “您的服務器密碼”)
服務器數據庫 ＝ 讀配置項 (取運行目錄 () ＋ “\sys.ini”, “server info”, “database”, “您的數據庫名城”) 

3、然后建立外部數據庫的連接。

.版本 2
.如果真 (外部數據庫1.打開 (“DRIVER=SQL Server;SERVER=” ＋ 服務器 ＋ “;UID=” ＋ 服務器用戶名 ＋ “;PWD=” ＋ 服務器密碼 ＋ “;WSID=” ＋ 服務器 ＋ “;DATABASE=” ＋ 服務器數據庫, ) ＝ 真)
.如果真 (外部數據庫1.打開SQL數據庫 (服務器, 服務器用戶名, 服務器密碼, 服務器數據庫, , ) ＝ 假)
信息框 (“打開數據庫失敗”, #警告圖標, )
結束 ()
.如果真結束

此，您已經完成了與SQL數據庫的連接，可以開始使用，以下講講在數據庫中要到的增加、查詢、修改、刪除命令：

建立全局變量：

.版本 2 
.全局變量 腳本, 文本型
.全局變量 記錄集句柄 

1、 SQL增加語句的使用：

.版本 2 
腳本 ＝ “insert into 員工表 ([姓名],[性別],[年齡],[出生日期],[專業],[學歷],[婚姻狀況],[身份證號],[籍貫],[畢業院校],[興趣愛好],[電話],[家庭成員],[工作經歷],[銷售行業經驗],[離職原因],[所屬部門],[當前職務],[升遷記錄],[調崗記錄],[特殊貢獻],[獎勵記錄],[處罰記錄],[同事關系],[企業忠誠度],[入司日期],[在職狀態],[上級評語],[照片]) values ('” ＋ 編輯框_職員信息_姓名.內容 ＋ “','” ＋ 編輯框_職員信息_性別.取項目文本 (編輯框_職員信息_性別.現行選中項) ＋ “','” ＋ 編輯框_職員信息_年齡.內容 ＋ “','” ＋ 編輯框_職員信息_出生日期.內容 ＋ “','” ＋ 編輯框_職員信息_專業.內容 ＋ “','” ＋ 組合框_職員信息_學歷.取項目文本 (組合框_職員信息_學歷.現行選中項) ＋ “','” ＋ 組合框_職員信息_婚姻狀況.取項目文本 (組合框_職員信息_婚姻狀況.現行選中項) ＋ “','” ＋ 編輯框_職員信息_身份證號.內容 ＋ “','” ＋ 編輯框_職員信息_籍貫.內容 ＋ “','” ＋ 編輯框_職員信息_畢業院校.內容 ＋ “','” ＋ 編輯框_職員信息_興趣愛好.內容 ＋ “','” ＋ 編輯框_職員信息_電話.內容 ＋ “','” ＋ 編輯框_職員信息_家庭成員.內容 ＋ “','” ＋ 編輯框_職員信息_工作經歷.內容 ＋ “','” ＋ 編輯框_職員信息_銷售行業經驗.內容 ＋ “','” ＋ 編輯框_職員信息_離職原因.內容 ＋ “','” ＋ 編輯框_職員信息_所屬部門.內容 ＋ “','” ＋ 編輯框_職員信息_當前職務.內容 ＋ “','” ＋ 編輯框_職員信息_升遷記錄.內容 ＋ “','” ＋ 編輯框_職員信息_調崗記錄.內容 ＋ “','” ＋ 編輯框_職員信息_特殊貢獻.內容 ＋ “','” ＋ 編輯框_職員信息_獎勵記錄.內容 ＋ “','” ＋ 處罰記錄編輯框.內容 ＋ “','” ＋ 組合框_職員信息_同事關系.取項目文本 (組合框_職員信息_同事關系.現行選中項) ＋ “','” ＋ 組合框_職員信息_企業忠誠度.取項目文本 (組合框_職員信息_企業忠誠度.現行選中項) ＋ “','” ＋ 編輯框_職員信息_入司日期.內容 ＋ “','” ＋ 組合框_職員信息_在職狀態.取項目文本 (組合框_職員信息_在職狀態.現行選中項) ＋ “','” ＋ 編輯框_職員信息_上級評語.內容 ＋ “',?)”

.如果 (SQL數據庫.執行 (腳本, 照片圖片框.圖片) ＝ 真)
信息框 (“保存員工信息成功!”, 0, )
.否則
信息框 (“保存員工信息失敗!”, 0, )
.如果結束

SQL數據庫.關閉記錄集 (記錄集句柄)

需要注意的是，在上面紅色部分有個？，這是保存圖片的字段，在藍色部分可以看見，(SQL數據庫.執行 (腳本, 照片圖片框.圖片) 照片圖片框.圖片是字節集數據，也就是數據庫中對應的照片字段，image類型

易語言操作SQL Server數據庫之二

2、 SQL查詢語句的使用：

.版本 2
腳本 ＝ “select 員工ID,姓名 from 員工表 where 姓名” ＋ “= ” ＋ “'” ＋ 編輯框_職員信息_姓名.內容 ＋ “'”
記錄集句柄 ＝ SQL數據庫.查詢 (腳本)
.如果真 (編輯框_職員信息_姓名.內容 ＝ SQL數據庫.讀 (記錄集句柄, “姓名”))
信息框 (“您要錄入的員工姓名：” ＋ 編輯框_職員信息_姓名.內容 ＋ “已經存在！”, 0 ＋ #詢問圖標, “銷售管理系統提醒您！”)
返回 ()
.如果真結束

SQL數據庫.關閉記錄集 (記錄集句柄)

以上是查詢的時候，需要注意的是，如果是文本型數據，需要用單引號，紅色部分樣式，
如果需要多表查詢，select可以這樣寫：，
select A.*,B.* from A,B where A.ID=B.ID
介紹一個小技巧，如果您SQL數據庫操作的很熟悉，可以用視圖來幫您建立多表的查詢，如果把視圖里的SQL語句稍微改動一下就可以放到易語言中使用了，
如我這里需要把客戶表與其他的表關聯，用視圖得到的SQL語句是這樣的：
SELECT dbo.客戶表.客戶ID, dbo.客戶表.客戶姓名, dbo.客戶表.身份證號,
dbo.客戶表.客戶等級, dbo.客戶表.性別, dbo.客戶表.年齡, dbo.客戶表.電話,
dbo.客戶表.手機, dbo.客戶表.電子郵件, dbo.客戶表.聯系地址,
dbo.員工資料.姓名 AS 銷售顧問, dbo.客戶表.拜訪時間, dbo.客戶進程表.回訪次數,
dbo.客戶進程表.意向房號, dbo.客戶進程表.接待人員, dbo.客戶進程表.主要問題,
dbo.客戶進程表.跟蹤次數, dbo.客戶進程表.跟蹤人員, dbo.客戶進程表.付款金額,
dbo.客戶進程表.預訂日期, dbo.客戶進程表.首付日期, dbo.客戶進程表.預訂金額,
dbo.客戶進程表.退定時間, dbo.客戶進程表.退定原因, dbo.客戶進程表.收款人,
dbo.客戶進程表.備注
FROM dbo.員工資料 INNER JOIN
dbo.客戶表 ON dbo.員工資料.員工ID = dbo.客戶表.員工ID INNER JOIN
dbo.客戶進程表 ON dbo.客戶表.客戶ID = dbo.客戶進程表.客戶ID
修改成我們要在易語言中使用的SQL語句就應該寫成這樣：
SELECT客戶表.客戶ID,客戶表.客戶姓名,客戶表.身份證號,客戶表.客戶等級,客戶表.性別,客戶表.年齡,客戶表.電話,客戶表.手機,客戶表.電子郵件,客戶表.聯系地址,員工資料.姓名 AS 銷售顧問,客戶表.拜訪時間,客戶進程表.回訪次數,客戶進程表.意向房號,客戶進程表.接待人員,客戶進程表.主要問題,客戶進程表.跟蹤次數,客戶進程表.跟蹤人員,客戶進程表.付款金額,客戶進程表.預訂日期,客戶進程表.首付日期,客戶進程表.預訂金額,客戶進程表.退定時間,客戶進程表.退定原因,客戶進程表.收款人,客戶進程表.備注
FROM 員工表，客戶表 ，客戶進程表
WHERE 員工資料.員工ID =客戶表.員工AND 客戶表.客戶ID =客戶進程表.客戶ID
細心的讀者應該可以看到，把上面的DBO，全部取消了，后面多加了一個WHERE和AND語句，只要大家多動動腦，復雜的語句也可以用SQL Server數據庫來為我們完成。

3、 SQL修改語句的使用：

.版本 2
SQL數據庫.關閉記錄集 (記錄集句柄)
.判斷開始 (選定項目2 ＝ 1)
腳本 ＝ “update 員工表 set ” ＋ 選定項目1 ＋ “='” ＋ 刪首尾空 (新員工名稱編輯框.內容) ＋ “', 備注” ＋ “='” ＋ 刪首尾空 (備注編輯框.內容) ＋ “' where ” ＋ 選定項目1 ＋ “='” ＋ 項目文本1 ＋ “'”
.判斷 (選定項目2 ＝ 2)
腳本 ＝ “update 員工表 set ” ＋ 選定項目1 ＋ “='” ＋ 刪首尾空 (新員工名稱編輯框.內容) ＋ “', 備注” ＋ “='” ＋ 刪首尾空 (備注編輯框.內容) ＋ “' where ” ＋ 部門編號1 ＋ “= ” ＋ “'” ＋ “1” ＋ “' and ” ＋ 選定項目1 ＋ “='” ＋ 項目文本1 ＋ “'”
.默認
.判斷結束
.判斷開始 (SQL數據庫.執行 (腳本, ) ＝ 真)
部門管理窗口.讀取并顯示當前記錄集 ()
SQL數據庫.關閉記錄集 (記錄集句柄)
銷毀 ()

.默認
信息框 (“修改員工姓名失敗!”, #警告圖標, )

上面用了一個判讀語句，用來選擇要使用的SQL語句，第一個腳本是直接修改員工的名字，第二個腳本是修改某個部門下的員工的名字，必須是在那個部門下的人員才可以修改。相信大家應該可以看得明白。

4、 SQL刪除語句的使用：

版本 2
腳本 ＝ “delete from 員工表 where ” ＋ 選定姓名1 ＋ “='” ＋ 姓名 ＋ “' and 員工ID='”+取得的ID+”'”
.判斷開始 (SQL數據庫.執行 (腳本, ) ＝ 真)
信息框 (“刪除員工成功!”, #信息圖標, )
員工管理窗口.讀取并顯示當前記錄集 ()
SQL數據庫.關閉記錄集 (記錄集句柄)
銷毀 ()
.默認
信息框 (“刪除員工失敗!”, #警告圖標, )

上面出現的 選定姓名1、 姓名、 取得的ID、三個，是我用的臨時的變量，是為了從其他地方動態的取得要刪除的內容，簡化以后得到的SQL語句就是這樣。

delete from 員工表 where 員工姓名 = ‘姓名' and 員工ID=1

以上是我目前開發的我們公司的一個銷售管理系統的程序，把大家想知道的內容提出來并簡化給大家做個參考，源代碼我就不送上了，相信大家也應該可以看的明白，由于工作一直比較忙，沒有截圖，也沒有細心整理，不過語句都沒有錯誤的，大家放心使用，等有時間給大家出一個專門操作SQL Server數據庫網絡版軟件的教程，這里只是簡單的操作而已，給初學者一個借鑒。

發布完才發現其中有幾個錯誤的地方,

1、到此，您已經完成了與SQL數據庫的連接，可以開始使用，以下講講在數據庫中要到的增加、查詢、修改、刪除命令：
后面應該是：以下講講數據庫中要用到的增加……

2、如我這里需要把客戶表與其他的表關聯，用視圖得到的SQL語句是在于的：
后面應該是：用視圖得到的SQL語句是這樣的

3、FROM員工表，客戶表 ，客戶進程表
應該是： FROM 員工表，客戶表 ，客戶進程表
FRMO與員工表之間加一個空格