IFIX連接SQL讀寫數(shù)據(jù)和制作excel報表圖文教程(共10頁)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上IFIX連接SQL讀寫數(shù)據(jù)和制作excel報表圖文教程IFIX連接SQL數(shù)據(jù)庫、制作excel報表詳細教程 一、 IFIX連接SQL數(shù)據(jù)庫讀寫數(shù)據(jù) IFIX連接SQL數(shù)據(jù)庫有多種方法，其中最為方便的兩種方法是: (1)使用IFIX本身為SQL數(shù)據(jù)庫提供的接口SQT和SQD; (2)VB+ADO。 下面分別介紹著兩種方法的實現(xiàn)步驟。 1、使用SQT和SQD讀寫SQL數(shù)據(jù)庫 1.1 安裝SQL2008 (只列出關鍵步驟，其余直接點擊“下一步”或“安裝”) 打開SQL安裝中心，點擊“安裝”; SQL2008簡體中文版安裝包下載鏈接: 點擊“全新SQL Server獨立安裝或

2、向現(xiàn)有安裝添加功能”; 點擊“輸入產(chǎn)品密匙”，點擊“下一步”:(根據(jù)版本選擇) sql server2008密鑰 Developer: PTTFM-X467G-P7RH2-3Q6CG-4DMYB Enterprise: JD8Y6-HQG69-P9H84-XDTPG-34MBB Microsoft SQL Server 2008 R2序列號密鑰 開發(fā)版32位:MC46H-JQR3C-2JRHY-XYRKY-QWPVM 開發(fā)版64位:FTMGC-B2J97-PJ4QG-V84YB-MTXX8 工組版:XQ4CB-VK9P3-4WYYH-4HQX3-K2R6Q WEB版:FP4P7-YKG22-W

3、GRVK-MKGMX-V9MTM 數(shù)據(jù)中心版32位:PTTFM-X467G-P7RH2-3Q6CG-4DMYB 數(shù)據(jù)中心版64位:DDT3B-8W62X-P9JD6-8MX7M-HWK38 企業(yè)版32位:R88PF-GMCFT-KM2KR-4R7GB-43K4B 企業(yè)版64位:GYF3T-H2V88-GRPPH-HWRJP-QRTYB 標準版32位:CXTFT-74V4Y-9D48T-2DMFW-TX7CY 標準版64位:B68Q6-KK2R7-89WGB-6Q9KR-QHFDW 功能選擇界面，選擇安裝全部功能，點擊“下一步”; 進入實例配置界面，選擇默認實例，點擊“下一步”; 進入服務器配置

4、界面，啟動類型均選為“自動”;點擊“對所有SQL Server服務使用相同的賬戶”，在彈出的界面中選擇第一個賬戶，密碼不用填;返回服務器配置界面點擊下一步; 進入數(shù)據(jù)庫引擎配置界面，選擇混合模式，輸入自己設定的密碼，點擊“添加當前用戶”，點擊下一步，直至安裝完成，關閉安裝中心。 1.2 進入SQL server新建SQL登錄名和數(shù)據(jù)庫 打開SQL，以Windows身份驗證登錄; 連接完后，點擊“安全性”-“登錄名”，右擊選擇“新建登錄名”: 在彈出的界面中，點擊左上角的“常規(guī)” ，輸入登錄名、密碼，不要勾選強制密碼過期，之后點 擊左上角“服務器角色”; 在彈出的界面中，根據(jù)需要勾選所需權限，這

5、里全部勾選，再點擊“用戶映射”; 在彈出的界面中，“映射到此登錄名的用戶”內(nèi)勾選所有數(shù)據(jù)庫，并在每個數(shù)據(jù)庫的“數(shù)據(jù)庫角色成員身份”中勾選db_owner和public，而后點擊“確定”，完成新建登錄名。 完成登錄名創(chuàng)建后，斷開當前連接或是退出SQL重新進入軟件，以SQL身份驗證登錄，輸入剛剛新建的登錄名，點擊“連接”; 連接后，右擊“數(shù)據(jù)庫”，選擇“新建數(shù)據(jù)庫”，以默認配置完成新建，如這里新建數(shù)據(jù)庫，取名為db1。 進入db1，新建三張表，新建右擊“表”，選擇“新建表”，輸入如下圖的列名及數(shù)據(jù)類型;點擊保存，輸入表名為sqllib，用于保存SQL命令; 新建第二張表，列名及數(shù)據(jù)類型如下圖，取名

6、為sqlerr，用于保存各類錯誤: 新建第三張表，用于保存需要的工業(yè)歷史數(shù)據(jù)，這里將表取名為data，添加兩個列COL1和COL2，數(shù)據(jù)類型都為float。 接下來為sqllib表添加SQL命令，這里添加一條向data表的COL1、COL2寫入數(shù)據(jù)的語句，右擊“abo.sqllib”，選擇“編輯前200行”;寫入如下圖的內(nèi)容，點擊保存。 注:如果要讀取數(shù)據(jù)庫內(nèi)的數(shù)據(jù)，只要將該SQL命令換成相應的select語句。 1.3 創(chuàng)建ODBC數(shù)據(jù)源 打開控制面板，依次點擊“管理工具”-“數(shù)據(jù)源(ODBC)”，進入如下界面: 在點擊“系統(tǒng)DSN”-點擊“添加”按鈕，在如下界面中選擇“SQL Server

7、”，點擊“完成”。 在以下界面中填寫名稱命名數(shù)據(jù)源，服務器填寫自己的計算機名 (獲取計算機名按照如下步驟: 右擊桌面的“計算機”-選擇“屬性”，在彈出的界面上就可以看到)，點擊“下一步”; 按照下圖配置，填入剛剛在SQL中新建的登陸名和密碼，點擊下一步; 勾選“更改默認的數(shù)據(jù)庫為”，在下拉框中選擇剛剛新建的數(shù)據(jù)庫名，點擊下一步; 直接點擊“完成”按鈕。 之后你可以在彈出的界面中點擊“測試數(shù)據(jù)源”，若測試成功，則可以進入下一步驟。 1.4 在SCU內(nèi)配置SQL 打開IFIX，點擊“SCU”，進入配置界面; 在如下界面中點擊“配置”-選擇“SQL”， 在彈出的界面中點擊“增加”按鈕，填入相應信息，

8、點擊“確定”。 選中剛剛添加的SQL賬戶，點擊“配置SQL任務”; 啟用SQL支持，選擇我們所創(chuàng)建的數(shù)據(jù)庫ID，點擊“確定”，完成配置。 1.5 在IFIX內(nèi)創(chuàng)建SQT和SQD數(shù)據(jù)塊 打開IFIX的數(shù)據(jù)庫管理器，創(chuàng)建數(shù)字量輸入數(shù)據(jù)塊DI1，當DI1的值發(fā)生變化時就觸發(fā)SQT(當然也可以采用時間事件來觸發(fā)SQT，下面也會有介紹)，點擊界面內(nèi)的“高級”標簽。 進入高級標簽，勾選“啟用輸出”和“手動”; 一般要保存到關系數(shù)據(jù)庫的歷史數(shù)據(jù)都是模擬量，因此本教程以模擬量為例子，將其存入SQL數(shù)據(jù)庫。創(chuàng)建模擬量寄存器數(shù)據(jù)塊AR_1和AR_2: 創(chuàng)建數(shù)據(jù)塊SQT，在數(shù)據(jù)庫管理器中新建數(shù)據(jù)塊，選擇SQT類型，

9、如下圖; 進入如下的界面，若要采用DI1數(shù)值變化來觸發(fā)SQT，則如下圖填寫信息。在剛剛創(chuàng)建的db1數(shù)據(jù)庫中，我們建立了sqllib表，并在表內(nèi)添加了sqlname為cmd1，sqlcmd為“Insert into data?”這條語句。在如下界面中，SQL名填寫“cmd1”，數(shù)據(jù)庫ID填寫“db1”(所建ODBC數(shù)據(jù)源名稱)，事件標簽寫入“DI1.F_CV”，事件類型勾選“值變化”，這樣，當DI1的值變化時，SQT就會觸發(fā)，找到db1數(shù)據(jù)庫下的sqllib表內(nèi)sqlname等于cmd1的這條語句，并執(zhí)行。 在上圖中的“下一塊”中填寫SQD_1，構成數(shù)據(jù)鏈，此時會彈出如下界面，點擊“yes”;

10、創(chuàng)建SQD數(shù)據(jù)塊，如下圖填寫，因為是向數(shù)據(jù)庫添加數(shù)據(jù)，所以方向選為OUT。 保存數(shù)據(jù)庫管理器。這樣，就建立了一個DI1值變化觸發(fā)的SQT和SQD。 如果我們希望以時間事件來觸發(fā)SQT，應在建立SQT數(shù)據(jù)塊的時候，設置觸發(fā)時間，其余步驟相同。例如，我們希望每天晚上23:00至23:59這段時間內(nèi)，每5分鐘記錄一次數(shù)據(jù)到SQL數(shù)據(jù)庫，建立SQT數(shù)據(jù)塊時應如下圖填寫: 在IFIX主界面點“應用程序”，打開“任務控制”; 驗證SQL服務是否啟動，如下圖所示說明注冊成功。 作進一步驗證，在數(shù)據(jù)庫管理器內(nèi)更改DI1 的當前值，如將CLOSE 改為OPEN, 按 Ctrl + R, 觀察到SQT_1 的當前

11、值增加1，意味著SQT 被觸發(fā)一次，打開SQL也可以發(fā)現(xiàn)data表增加了一行記錄。 以上就是使用SQT和SQD讀寫SQL數(shù)據(jù)庫的詳細步驟。 2、使用ADO訪問數(shù)據(jù)庫 2.1 定時向數(shù)據(jù)庫添加記錄 首先，參照1.1-1.3的內(nèi)容建立數(shù)據(jù)庫(只需建立data表，sqllib和sqlerr不需創(chuàng)建)，創(chuàng)建ODBC數(shù)據(jù)源。 打開IFIX，雙擊下圖左下角的“數(shù)據(jù)定時寫”，新建基于時間項; 假設我們要在每晚23:00自動存數(shù)據(jù)，則如下圖設置: 點擊“VB編輯器”，寫入如下代碼: 填上代碼后，一定要選擇如下圖這一步:點擊“工具”-“引用”，在下圖界面中，勾上microsoft activex data ob

12、jects 2.1 library，否則會報錯。 確定后保存。 右鍵點擊FIXTIME8這一條，選擇“調(diào)度程序?qū)傩浴?，在如下畫面中選擇“后臺運行”，點確定; 在后續(xù)彈出的窗口中都選擇“是”，直至完成，fixtimer8激活，時間一到，程序就會自動添加記錄。 2.2從數(shù)據(jù)庫讀數(shù)據(jù) 從數(shù)據(jù)庫讀數(shù)據(jù)一般采用按鈕觸發(fā)，可以在ifix里新建一個畫面，添加一個按鈕，在按鈕 的腳本里添加代碼，最后記得引用microsoft activex data objects 2.1 library。代碼基本和2.1相同，只是把相應的insert命令換成select語句。 二、 IFIX制作excel報表 1、在建好數(shù)

13、據(jù)庫和數(shù)據(jù)源(參照1.1-1.3)后，新建一個ifix畫面，添加一個ole對象，選擇“Microsoft Web Browser”,用來顯示報表; 2、新建一張excel報表模板，放到工程目錄的APP文件夾下，如“人工數(shù)據(jù)日報表.xls”; 3、新建一個按鈕，為其編寫腳本，粘貼如下代碼(覆蓋新建畫面原有的代碼): Option Explicit Dim a As Single 定義中間變量，用來暫存從數(shù)據(jù)庫中取出的數(shù)據(jù) Dim b As Single Dim rsADO As ADODB.Recordset 定義連接數(shù)據(jù)庫的ADO變量 Dim conn As New ADODB.Connect

14、ion Public CmdTruck As New ADODB.Command Public dbUpdata As New ADODB.Command Public rstUpdata As New Recordset Private Sub CommandButton3_Click() 點擊按鈕的響應函數(shù) Call showbb 調(diào)用顯示報表的函數(shù)showbb Call closeDB1 調(diào)用關閉數(shù)據(jù)庫的函數(shù)closeDB1 End Sub Private Sub showbb() Dim Rs As New ADODB.Recordset '定義連接數(shù)據(jù)庫的ADO變量

15、openDB1 打開DB1數(shù)據(jù)庫，該函數(shù)在后面有定義 CmdTruck.ActiveConnection = conn CmdTruck.CommandText = "select max(COL1) as COL1,max(COL2) as COL2 from data" 從data表讀取COL1和COL2的最大值 Set Rs = CmdTruck.Execute 執(zhí)行SQL語句 a = 0 b = 0 If Not (Rs.BOF Or Rs.EOF) Then 將讀出來的數(shù)據(jù)傳給中間變量a、b If (Rs!col1) Then a = Rs!col1 b = Rs

16、!col2 End If End If Dim xlApp As Object '定義報表對象 Dim xlBook As Object Dim xlSheet As Object On Error GoTo errorhandle Set xlApp = New Excel.Application Set xlBook = xlApp.Workbooks.Open(System.ProjectPath & "app人工數(shù)據(jù)日報表.xls") 打開報表模板 Set xlSheet = xlBook.Worksheets(1) xlApp.Di

17、splayAlerts = False '警告禁用 xlApp.Visible = False 'EXCEL隱藏 xlSheet.Cells(10, 4) = a & "" 將中間變量的值寫到對應excel的單元格 xlSheet.Cells(11, 4) = b & "" xlSheet.SaveAs System.ProjectPath & "app人工數(shù)據(jù)日報表.htm", FileFormat:=xlHtml '工作表另存為 xlA

18、pp.DisplayAlerts = True '警告使能 xlApp.Quit Me.WebBrowser1.Navigate System.ProjectPath & "app人工數(shù)據(jù)日報表.htm" 在WebBrowser控件上顯示報表 xlApp.Quit Set xlSheet = Nothing '釋放內(nèi)存 Set xlBook = Nothing Set xlApp = Nothing Set CmdTruck = Nothing Set Rs = Nothing Exit Sub errorhandle: MsgBox "報表生成錯誤", vbOKOnly + vbInformation, "信息."