ĐẠI HỌC THÁI NGUYÊN TRƯỜNG ĐẠI HỌC CÔNG NGHỆ THÔNG TIN & TRUYỀN THÔNG VY ĐẠI NGHĨA PHÁT HIỆN MỐI QUAN HỆ TRONG CƠ SỞ DỮ LIỆU VÀ ỨNG DỤNG TRONG Y HỌC LUẬN VĂN THẠC SĨ KHOA HỌC MÁY TÍNH Thái Nguyên - 2015 Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn ĐẠI HỌC THÁI NGUYÊN TRƯỜNG ĐẠI HỌC CÔNG NGHỆ THÔNG TIN & TRUYỀN THÔNG VY ĐẠI NGHĨA PHÁT HIỆN MỐI QUAN HỆ TRONG CƠ SỞ DỮ LIỆU VÀ ỨNG DỤNG TRONG Y HỌC Chuyên ngành: Khoa học máy tính Mã số: 60 48 01 LUẬN VĂN THẠC SĨ KHOA HỌC MÁY TÍNH NGƯỜI HƯỚNG DẪN KHOA HỌC: PGS.TS Đỗ Trung Tuấn Thái Nguyên - 2015 Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn i Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn ii Lời cảm ơn Trước tiên, xin gửi lời cảm ơn đến tất quý thầy cô giảng dạy chương trình Cao học Trường Đại học Công nghệ thông tin truyền thông tổ chức, người truyền đạt cho kiến thức hữu ích khoa học máy tính làm sở cho thực tốt luận văn Tôi xin chân thành cảm ơn PGS TS Đỗ Trung Tuấn tận tình hướng dẫn cho thời gian thực luận văn Mặc dù trình thực luận văn có giai đoạn không thuận lợi Thầy hướng dẫn, bảo cho nhiều kinh nghiệm thời gian thực đề tài Tôi xin gửi lời cảm ơn đến tất Thầy Cô làm việc Phòng khám đa khoa trường Cao đẳng Y tế Phú Thọ tận tình giúp đỡ việc thu thập thông tin, lấy số liệu bệnh thuốc làm sở liệu cho luận văn Sau xin gửi lời biết ơn sâu sắc đến anh chị lớp gia đình tạo điều kiện tốt cho suốt trình học thực luận văn Do thời gian có hạn kinh nghiệm nghiên cứu khoa học chưa nhiều nên luận văn nhiều thiếu sót, mong nhận ý kiến góp ý Thầy/Cô anh chị học viên Phú Thọ, tháng năm 2015 Học viên Vy Đại Nghĩa Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn iii Lời cam đoan Tôi cam đoan những kế t quả luâ ̣n văn là của viê ̣c tìm hiể u, có trích dẫn và tham chiế u đế n nguồn tư liê ̣u tin cậy Nội dung luận văn không chép từ kế t quả của các luâ ̣n văn, luận án khác Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn iv MỤC LỤC Lời cảm ơn i Lời cam đoan iii MỤC LỤC iv DANH MỤC CÁC TỪ VIẾT TẮT vi DANH MỤC CÁC BẢNG, HÌNH VẼ .vii MỞ ĐẦU CHƯƠNG TỔNG QUAN VỀ PHÁT HIỆN MỐI QUAN HỆ GIỮA CÁC DỮ LIỆU TRONG CƠ SỞ DỮ LIỆU 1 Mục tiêu việc phát mối quan ̣ liệu Các bước trình khai phá tri thức Các dạng liệu khai phá Các hướng tiếp cận khai phá liệu Phân loại ứng dụng hệ thống khai phá liệu 11 Phân loại hệ thống khai phá liệu 11 Ứng dụng khai phá liệu 12 Kết luận chương 12 CHƯƠNG 13 MỘT SỐ MỐI QUAN HỆ DỮ LIỆU ĐƯỢC PHÁT HIỆN THÔNG QUA NGÔN NGỮ TRUY VẤN 13 Luật kết hợp 13 1 Các khái niệm 13 2 Bài toán khai phá luật kết hợp 16 2 Khai thác tập phổ biến dựa ngôn ngữ truy vấn 17 2 Ngôn ngữ truy vấn 17 2 Tìm tập phổ biến K-way join 20 Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn v 2 Kết thử nghiệm phương pháp đếm độ hỗ trợ 27 2 Phân tích cải tiến thuật toán k-way join 32 2 Phát sinh luật kết hợp 38 2 Rút luật kết hợp 42 Kết luận chương 49 CHƯƠNG 51 ỨNG DỤNG TRONG TÍNH TOÁN THỬ NGHIỆM 51 Các toán 51 1 Bài toán tìm luật kết hợp dạng X Y 51 Bài toán tìm độ hỗ trợ độ tin cậy luật 52 3 Bài toán đánh giá độ tin cậy luật theo ngưỡng 53 Giải pháp giúp thực toán 54 Chương trình thử nghiệm 56 Cơ sở liệu toán 57 2 Kết khai phá liệu thực toán 58 3 Kết luận chương 65 KẾT LUẬN 67 PHỤ LỤC 68 TÀI LIỆU THAM KHẢO 76 Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn vi DANH MỤC CÁC TỪ VIẾT TẮT ADO Active X Data Object ANSI Chuẩn quốc gia Hoa Kì Client/ server Khách/ chủ confidence Độ tin cậy CSDL Cơ sở liệu DB2 Tên hệ quản trị sở liệu IBM DBMS Hệ quản trị sở liệu HQTCSDL Hệ quản trị sở liệu ISO Tổ chức tiêu chuẩn hóa quốc tế MOLAP multidimensional OLAP OLAP Online Analysis Processing ORACLE Tên công ty ORACLE, tên hệ quản trị sở liệu ROLAP Relational OLAP SQL Ngôn ngữ truy vấn support Độ hỗ trợ, trợ giúp Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn vii DANH MỤC CÁC BẢNG, HÌNH VẼ Hình Thí dụ xử lí liệu y tế trường Cao đẳng Y tế Phú Thọ Hình 1: Các bước trình khai phá tri thức Hình 2: Các kiến trúc khai phá tích hợp với sở liệu Hình 3: Kiến trúc gắn kết lỏng Hình 4: Kiến trúc thủ tục nội hàm người dùng định nghĩa 10 Hình 5: Kiến trúc dựa truy vấn SQL 10 Hình 1: Minh họa luật kết hợp 16 Bảng 1: Cấu trúc bảng ban đầu 20 Bảng 2: Cấu trúc bảng dùng để khai khác 21 Hình 2: Tiến trình phát sinh tập ứng viên Ck 23 Hình 2: Đếm độ hỗ trợ cách tiếp cận K-way Join 24 Hình 3: Biểu đồ hình cho Sub Query Qi 26 Hình 4: Đồ thị thời gian thực thi thuật toán minsup=10% D=100000 28 Hình 5: Đồ thị thời gian thực thi thuật toán minsup=10% D=50000 29 Hình 7: Đồ thị thời gian thực thi thuật toán minsup=10% D=10000 29 Hình 6: Đồ thị tổng hợp thời gian thực thi thuật toán minsup lớn 29 Hình 7: Đồ thị thời gian thực thi thuật toán minsup=5% D=100000 30 Hình 8: Đồ thị thời gian thực thi thuật toán minsup=5% D=50000 30 Hình 9: Đồ thị thời gian thực thi thuật toán minsup=5% D=10000 30 Hình 10: Đồ thị tổng hợp thời gian thực thi thuật toán minsup trung bình 31 Hình 11: Đồ thị thời gian thực thi thuật toán minsup = 1% D = 100000 31 Hình 12: Đồ thị thời gian thực thi thuật toán minsup = 1% D= 50000 32 Hình 13: Đồ thị thời gian thực thi thuật toán minsup =1% D=10000 32 Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn viii Hình 154: Đồ thị tổng hợp thời gian thực thi thuật toán minsup nhỏ 32 Bảng 3: Cơ sở liệu ban đầu D 44 Bảng 4: Cơ sở liệu sau chuyển đổi 44 Bảng 5: Kết F1 45 Bảng 6: Kết F2 46 Bảng 7: Kết C3 46 Bảng 8: Kết Comb3 47 Bảng 9: Kết F3 47 Bảng 10: Kết C4 48 Bảng 11: Kết Comb4 49 Bảng 12: Kết F4 49 Bảng 13 Kết 49 Bảng Cấu trúc bảng liệu ban đầu 55 Bảng Cấu trúc bảng dùng để khai phá liệu 56 Hình Mẫu đơn thuốc Phòng khám đa khoa Trường cao đẳng Y Phú Thọ 57 Hình Minh họa cấu trúc liệu ban đầu 58 Hình 3 Cấu trúc liệu dùng để khai phá 58 Hình Tính độ hỗ trợ độ tin cậy luật {Cefalecin} => {Paracetamol} 61 Hình Tính độ hỗ trợ độ tin cậy một luật {Decolgen}=>{Vitamin C} 61 Hình 3.6 Đánh giá độ tin cậy luật {Decolgen}=>{Vitamin B1} 65 Hình 3.7 Đánh giá độ tin cậy luật {Cefalecin}=>{Vitamin C} 65 Hình PL1: Minh họa liệu đầu vào 68 Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn 63 mh=ltrim(rtrim(@string1)) select @t3=count(distinct magd) from data_daxuly2 where mh=ltrim(rtrim(@string2)) select @t10=supp from bang_2mh2 where (mathang1=ltrim(rtrim(@string1)) and mathang2=ltrim(rtrim(@string2))) if NOT exiStS(select*from data_daxuly2 where mh=ltrim(rtrim(@string1))) OR NOT exiStS(select*from data_daxuly2 where mh=ltrim(rtrim(@string2))) BEGIN Set @s=0 @t10/@t1 Set @c=0 @t10/@t2 Set @D='TRONG LUAT CHUA MAT HANG KHONG TON TAI TRONG CSDL D' Insert into @temptable(MH1, MH2, supp, conf, danhgia) values (@hienthi1, @hienthi2, @s, @c, @D) end ELSE begin if @t10>0 or @t10=0 if (@t10/@t1){Vitamin C} 3 Kết luận chương Ở chương 3, luận văn đưa cụ thể toán tính độ hỗ trợ, tính độ tin cậy luật đánh giá một luật có tin cậy hay không Các toán minh Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn 66 họa chạy thử nghiệm qua phần mềm viết từ Microsoft Visual Basic 0, chạy máy tính PC CPU Intel (R) Pentium (R), bộ nhớ 2GB RAM, sử dụng hệ điều hành Windows XP Professional Cơ sở liệu hàng trăm đơn thuốc phòng khám đa khoa Trường Cao đẳng Y tế Phú Thọ bệnh cúm từ năm 2014 đến Kết giúp ích cho sinh viên y dược trình học tập bác sĩ, dược sĩ có tri thức hay thuốc, giúp ích cho công việc hàng ngày Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn 67 KẾT LUẬN Kết đạt luận văn Về mặt lý thuyết: Đề tài tìm hiểu cách tiếp cận khai thác liệu dựa ngôn ngữ truy vấn SQL-92 trọng vào cách tiếp cận K-way join Đề phân tích, thử nghiệm, đánh giá đề xuất cải tiến cho K-way join, đưa phương pháp phát sinh rút gọn luật kết hợp Về mặt thực hành: Đề tài đưa phương án, cách thức để tìm tri thức tốt thuốc với sở liệu đơn thuốc Kết luận: Khai phá liệu một lĩnh vực thu hút nhà nghiên cứu tính khoa học ứng dụng cuộc sống Những thử thách lĩnh vực khai phá nhiều, khai phá tri thức theo kiểu luật kết hợp một khối khổng lồ, đặc biệt cách tiếp cận khai phá liệu dựa truy vấn SQL Hướng phát triển luận văn  Mở rộng thuật toán sang HQTCSDL quan hệ-đối tượng (sử dụng đặc tính quan hệ-đối tượng SQL như: UDFs, BLOBs, Table functions)  Đưa ràng buộc vào khai phá liệu  Mở rộng sang khai phá mẫu phổ biến chuỗi (sequential partern mining) Vì lĩnh vực có phạm vi ứng dụng rộng có nghiên cứu chuyên sâu SQL để khai phá loại liệu  Với luật có độ tin cậy nhỏ 100%, vấn đề luật thừa cần phải xem lại Lấy ví dụ, có luật AB luật (A, C)  B luật thừa Nhưng thực tế (A, C)  B phần lớn có độ tin cậy cao hơn, luật có độ tin cậy cao luật cần quan tâm tin tưởng Những luật mà vế trái nhiều items quí, giống công việc điều tra mà có nhiều chứng tốt Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn 68 PHỤ LỤC Luận văn sử dụng ngôn ngữ lập trình Microsoft Visual Basic 0, hệ quản trị sở liệu SQL Sever 2005 để tính toán thử nghiệm với liệu đơn thuốc cúm phòng khám đa khoa Trường cao đẳng Y tế Phú Thọ Dữ liệu đầu vào: Tập đơn thuốc bệnh cúm Hình PL1: Minh họa liệu đầu vào Chương trình: Giao diện chính: Private Sub mnubaitoan2_Click() baitoan2 Show End Sub Private Sub mnubaitoan3_Click() baitoan3 Show End Sub Private Sub mnubaitoan4_Click() baitoan4 Show End Sub Private Sub mnuketnoidulie_Click() Dim str As String Set myCn = New Connection str = "Provider=SQLOLEDB 1;User ID=" & mUser & ";Password=" & mPwd & _ ";Initial Catalog=" & mData & ";Data Source=" & mDataSource & "" myCn Open str MsgBox "Ket noi cong!!!", vbOKOnly, "Thong bao" End Sub Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn 69 Tính độ hỗ trợ tin cậy luật: Private Sub cmscluat_Click() Dim str1 As String Set myCn1 = New Connection str1 = "Provider=SQLOLEDB 1;User ID=" & mUser & ";Password=" & mPwd & _ ";Initial Catalog=" & mData & ";Data Source=" & mDataSource & "" myCn1 Open str1 Dim sqlstr1 As String Dim rs As ADODB Recordset sqlstr1 = "select * from dbo doluat_sc('" & txtstr1 Text & "', '" & txtstr2 Text & "')" 'myCn Execute (sqlstr) 'ket noi Set rs = New ADODB Recordset rs Open sqlstr1, myCn1, adOpenStatic, adLockOptimistic Call HienKQLenGrid1(rs) rs Close MsgBox "Da luat!!!" End Sub Private Sub Cmthemgd_Click() Dim str1 As String Set myCn1 = New Connection 'myCn CursorLocation = adUseClient str1 = "Provider=SQLOLEDB 1;User ID=" & mUser & ";Password=" & mPwd & _ ";Initial Catalog=" & mData & ";Data Source=" & mDataSource & "" myCn1 Open str1 Dim sqlstr As String Dim rsmathang As New Recordset sqlstr = "exec dbo themgiaodich '" & txtdsmathang Text & "'" rsmathang Open sqlstr, myCn1, adOpenStatic, adLockOptimistic 'MsgBox "Them cong!!!" Call hienthidsmh End Sub Private Sub Cmxulydata_Click() Dim str1 As String Set myCn1 = New Connection 'myCn CursorLocation = adUseClient str1 = "Provider=SQLOLEDB 1;User ID=" & mUser & ";Password=" & mPwd & _ ";Initial Catalog=" & mData & ";Data Source=" & mDataSource & "" myCn1 Open str1 Dim sqlstr As String sqlstr = "exec dbo taodata_daxuly3" myCn1 Execute (sqlstr) MsgBox "Xu ly du lieu xong!!!" End Sub Private Sub HienKQLenGrid1(rs As ADODB Recordset) Dim i As Integer 'load du lieu len grid Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn 70 grdketqua1 Rows = If (rs EOF = False) Then i=0 While (Not rs EOF) i=i+1 If (i >= grdketqua1 Rows - 1) Then grdketqua1 Rows = grdketqua1 Rows + grdketqua1 TextMatrix(i, 0) = i End If grdketqua1 TextMatrix(i, 1) = rs!mh1 grdketqua1 TextMatrix(i, 2) = rs!mh2 grdketqua1 TextMatrix(i, 3) = rs!supp grdketqua1 TextMatrix(i, 4) = rs!conf rs MoveNext Wend End If 'danh so thu tu cho cac cot Dim stt As Integer grdketqua1 Col = For stt = To grdketqua1 Rows - grdketqua1 Row = stt grdketqua1 Text = stt Next stt End Sub Private Sub KtGird() grdketqua1 Clear grdketqua1 Rows = grdketqua1 TextMatrix(0, 0) = "STT" grdketqua1 TextMatrix(0, 1) = "Mat hang 1" grdketqua1 TextMatrix(0, 2) = "Mat hang 2" grdketqua1 TextMatrix(0, 3) = "Supp" grdketqua1 TextMatrix(0, 4) = "Conf" grdketqua1 ColWidth(0) = 500 grdketqua1 ColWidth(1) = 2000 grdketqua1 ColWidth(2) = 2000 grdketqua1 ColWidth(3) = 1000 grdketqua1 ColWidth(4) = 1000 End Sub Public Sub KhoiTaoGird_2() grdthemgd Clear grdthemgd Rows = grdthemgd TextMatrix(0, 0) = "Stt" grdthemgd TextMatrix(0, 1) = "ID" grdthemgd TextMatrix(0, 2) = "Magd" grdthemgd TextMatrix(0, 3) = "Mathang" grdthemgd ColWidth(0) = 500 Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn 71 grdthemgd ColWidth(1) = 500 grdthemgd ColWidth(2) = 600 grdthemgd ColWidth(3) = 5000 End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load() Dim str1 As String Set myCn1 = New Connection str1 = "Provider=SQLOLEDB 1;User ID=" & mUser & ";Password=" & mPwd & _ ";Initial Catalog=" & mData & ";Data Source=" & mDataSource & "" myCn1 Open str1 baitoan2 Show Call KtGird Call KhoiTaoGird_2 Call hienthidsmh End Sub Public Sub hienthidsmh() Dim i, ii As Integer Dim sqlstr2 As String Dim rs1 As ADODB Recordset Dim str As String Set myCn = New Connection str = "Provider=SQLOLEDB 1;User ID=" & mUser & ";Password=" & mPwd & _ ";Initial Catalog=" & mData & ";Data Source=" & mDataSource & "" myCn Open str i=1 ii = sqlstr2 = "select * from transaction2" Set rs1 = New ADODB Recordset grdthemgd Rows = rs1 Open sqlstr2, myCn, adOpenDynamic, adLockBatchOptimistic With rs1 If (Not ( BOF And EOF)) Then Do Until rs1 EOF grdthemgd AddItem "" grdthemgd TextMatrix(i, 0) = "" & ii + grdthemgd TextMatrix(i, 1) = Trim( Fields(0) Value) grdthemgd TextMatrix(i, 2) = "" & Trim( Fields(1) Value) grdthemgd TextMatrix(i, 3) = "" & Trim( Fields(2) Value) ' grdthemgd TextMatrix(i, 4) = "" & Trim( Fields(3) Value) ii = ii + i=i+1 MoveNext Loop MoveFirst Else Exit Sub Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn 72 End If End With End Sub Đánh giá độ tin cậy luật: Option Explicit 'Dim WithEvents rsKhoa As Recordset Dim myCn As Connection Dim rsmathang As New Recordset Dim sqlstr As String Private Sub cmkiemtraluat_Click() Dim str As String Set myCn = New Connection str = "Provider=SQLOLEDB 1;User ID=" & mUser & ";Password=" & mPwd & _ ";Initial Catalog=" & mData & ";Data Source=" & mDataSource & "" myCn Open str Dim sqlstr As String Dim rs As ADODB Recordset sqlstr = "select * from dbo doluat_dg('" & txtstring1 Text & "', '" & txtstring2 Text & "', " & txtminsup Text & ", " & txtmincof Text & ")" 'myCn Execute (sqlstr) 'ket noi Set rs = New ADODB Recordset rs Open sqlstr, myCn, adOpenStatic, adLockOptimistic Call HienKQLenGrid(rs) rs Close MsgBox "Da kiem tra luat!!!" End Sub Private Sub Cmthemgd_Click() Dim str As String Set myCn = New Connection 'myCn CursorLocation = adUseClient str = "Provider=SQLOLEDB 1;User ID=" & mUser & ";Password=" & mPwd & _ ";Initial Catalog=" & mData & ";Data Source=" & mDataSource & "" myCn Open str Dim sqlstr As String Dim rsmathang As New Recordset sqlstr = "exec dbo themgiaodich '" & Me txtdsmathang & "'" rsmathang Open sqlstr, myCn, adOpenStatic, adLockOptimistic MsgBox "Them cong!!!" Call hienthidsmh 'myCn Execute (sqlstr) End Sub Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn 73 Private Sub Cmxulydata_Click() Dim str As String Set myCn = New Connection 'myCn CursorLocation = adUseClient str = "Provider=SQLOLEDB 1;User ID=" & mUser & ";Password=" & mPwd & _ ";Initial Catalog=" & mData & ";Data Source=" & mDataSource & "" myCn Open str Dim sqlstr As String sqlstr = "exec dbo taodata_daxuly3" myCn Execute (sqlstr) MsgBox "Xu ly du lieu xong!!!" End Sub Private Sub HienKQLenGrid(rs As ADODB Recordset) Dim i As Integer 'load du lieu len grid grdketqua Rows = If (rs EOF = False) Then i=0 While (Not rs EOF) i=i+1 If (i >= grdketqua Rows - 1) Then grdketqua Rows = grdketqua Rows + grdketqua TextMatrix(i, 0) = i End If grdketqua TextMatrix(i, 1) = rs!mh1 grdketqua TextMatrix(i, 2) = rs!mh2 grdketqua TextMatrix(i, 3) = rs!danhgia rs MoveNext Wend End If 'danh so thu tu cho cac cot Dim stt As Integer grdketqua Col = For stt = To grdketqua Rows - grdketqua Row = stt grdketqua Text = stt Next stt End Sub Private Sub Form_Load() 'frmketqua Show Call KhoiTaoGird Call KhoiTaoGird_2 Call hienthidsmh End Sub Private Sub KhoiTaoGird() Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn 74 grdketqua Clear grdketqua Rows = grdketqua TextMatrix(0, 0) = "STT" grdketqua TextMatrix(0, 1) = "Mat hang 1" grdketqua TextMatrix(0, 2) = "Mat hang 2" grdketqua TextMatrix(0, 3) = "Danh gia" grdketqua ColWidth(0) = 500 grdketqua ColWidth(1) = 2000 grdketqua ColWidth(2) = 2000 grdketqua ColWidth(3) = 5000 End Sub Public Sub KhoiTaoGird_2() grdthemgd Clear grdthemgd Rows = grdthemgd TextMatrix(0, 0) = "Stt" grdthemgd TextMatrix(0, 1) = "ID" grdthemgd TextMatrix(0, 2) = "Magd" grdthemgd TextMatrix(0, 3) = "Mathang" grdthemgd ColWidth(0) = 500 grdthemgd ColWidth(1) = 500 grdthemgd ColWidth(2) = 600 grdthemgd ColWidth(3) = 5000 End Sub Public Sub hienthidsmh() Dim i, ii As Integer Dim sqlstr2 As String Dim rs1 As ADODB Recordset Dim str As String Set myCn = New Connection str = "Provider=SQLOLEDB 1;User ID=" & mUser & ";Password=" & mPwd & _ ";Initial Catalog=" & mData & ";Data Source=" & mDataSource & "" myCn Open str i=1 ii = sqlstr2 = "select * from transaction2" Set rs1 = New ADODB Recordset grdthemgd Rows = rs1 Open sqlstr2, myCn, adOpenDynamic, adLockBatchOptimistic With rs1 If (Not ( BOF And EOF)) Then Do Until rs1 EOF grdthemgd AddItem "" grdthemgd TextMatrix(i, 0) = "" & ii + grdthemgd TextMatrix(i, 1) = Trim( Fields(0) Value) grdthemgd TextMatrix(i, 2) = "" & Trim( Fields(1) Value) grdthemgd TextMatrix(i, 3) = "" & Trim( Fields(2) Value) ' grdthemgd TextMatrix(i, 4) = "" & Trim( Fields(3) Value) ii = ii + i=i+1 Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn 75 MoveNext Loop MoveFirst Else Exit Sub End If End With End Sub Private Sub Text1_Change() End Sub Private Sub thoat_Click() Unload Me End Sub Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn 76 TÀI LIỆU THAM KHẢO Tiếng Việt [1] Trương Ngọc Châu - Phan Văn Dũng (2002), “Nghiên cứu tính ứng dụng khai phá luật kết hợp sở liệu giao dịch”, Trường đại học Bách khoa, Đại học Đà Nẵng [2] Nguyễn Thanh Thủy, Khai phá liệu – Kỹ thuật ứng dụng, Hà nội 2001 [3] Nguyễn Huy Đức (2003), “Khai phá luật kết hợp sở liệu lớn”, Kỷ yếu Hội thảo khoa học Quốc gia lần thứ nghiên cứu ứng dụng CNTT, Hà Nội, 10/2003, tr 128-136 [4] Đỗ Thái Hòa, “Tổ chức khai phá liệu dựa ngôn ngữ truy vấn, áp dụng vào bán hàng” Luận văn Thạc sĩ công nghệ thông tin, Đại học Đà Nẵng, 2009 [5] Vũ Đức Thi, Nguyễn Huy Đức (2008), “Thuật toán hiệu khai phá tập mục thường xuyên cổ phần cao”, Kỷ yếu Hội thảo Một số vấn đề chọn lọc CNTT TT, Huế, 12/2008, tr 431-444 [6] Nguyễn Huy Đức (2010), “Khai phá tập mục cổ phần cao lợi ích cao sở liệu” Luận án Tiến sĩ toán học, Viện khoa học công nghệ Việt Nam Tiếng Anh [7] Agrawal.R and Shim.K (1995), Developing tightly-couple Data mining Applications on a Relational Database system IBM Almaden Research Center: San Jose, California [8] Jiawei Han and Micheline Kamber: Data mining – Concepts and Techniques, 1999 [9] Mehmed Kantardzic: Data mining – Concepts, Models, Methods, and Algorithms Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn 77 [10] Meo R, Psaila G and Ceri S (1996), A New SQL-like Operator for Mining Association Rules Proceedings of the 22nd VLDB Conference, Mumbai, India [11] Ye Nong: The hand book of data mining, 2003 [12] Pratyush Mishra, S.Chakravarthy, Peformance Evaluation and Analysis of SQL based Approaches for Association Rule Mining, 2003 [13] Pratyush Mishra, S.Chakravarthy, Evaluation of K-way Join and its variants for Association Rule Mining, Year book BNCOD, 2002 [14] Erwin A., Gopalan R.P & Achuthan N.R (2007), “CTU-Mine: An Efficient High Utility Itemset Mining Algorithm Using the Pattern Growth Approach”, Paper presented at the IEEE 7th International Conferences on Computer and Information Technology, Aizu Wakamatsu, Japan [15] Cai C.H., Chee Fu A.W, Cheng C.H., and Kwong (2005), “Mining Association Rules with Weighted Items”, Proceedings of the Sixth International Conference on Intelligent Data Engineering and Automated Learning (IDEAL 2005) [16] Rakesh Agrawal, Ramakrishnan Srikant, “Fast Algorithms for Mining Association Rules”, 1993 Số hóa Trung tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn ...ĐẠI HỌC THÁI NGUYÊN TRƯỜNG ĐẠI HỌC CÔNG NGHỆ THÔNG TIN & TRUYỀN THÔNG VY ĐẠI NGHĨA PHÁT HIỆN MỐI QUAN HỆ TRONG CƠ SỞ DỮ LIỆU VÀ ỨNG DỤNG TRONG Y HỌC Chuyên ngành: Khoa học m y tính Mã số:... tâm Học liệu – ĐHTN http://www.lrc.tnu.edu.vn CHƯƠNG TỔNG QUAN VỀ PHÁT HIỆN MỐI QUAN HỆ GIỮA CÁC DỮ LIỆU TRONG CƠ SỞ DỮ LIỆU 1 Mục tiêu việc phát mối quan ̣ liệu Mục tiêu việc khai khác liệu. .. TỔNG QUAN VỀ PHÁT HIỆN MỐI QUAN HỆ GIỮA CÁC DỮ LIỆU TRONG CƠ SỞ DỮ LIỆU 1 Mục tiêu việc phát mối quan ̣ liệu Các bước trình khai phá tri thức Các dạng liệu khai phá