推薦：三個(gè)影響SQL Server性能的關(guān)鍵
1 邏輯數(shù)據(jù)庫(kù)和表的設(shè)計(jì) 數(shù)據(jù)庫(kù)的邏輯設(shè)計(jì)、包括表與表之間的關(guān)系是優(yōu)化關(guān)系型數(shù)據(jù)庫(kù)性能的核心。一個(gè)好的邏輯數(shù)據(jù)庫(kù)設(shè)計(jì)可以為優(yōu)化數(shù)據(jù)庫(kù)和應(yīng)用程序打下良好的基

如果系統(tǒng)數(shù)據(jù)源MYDSN指向PUBS數(shù)據(jù)庫(kù)，也可以這樣用

cnn1.Open strCnn, , , 0 '打開連接

End Sub

Private Sub Command1_Click() '演示字符處理

Dim i As Integer

Dim j As Integer

Set parm = New ADODB.Parameter

Set mycommand = New ADODB.Command

Dim str As String

str = Combo1.Text

str = ProcessStr (str)

mycommand.ActiveConnection = cnn1

'

指定該command 的當(dāng)前活動(dòng)連接

mycommand.CommandText = " select * from

employee where fname = '" & str & "'"

mycommand.CommandType = adCmdText '表明command 類型

Set rstByQuery = New ADODB.Recordset

Set rstByQuery = mycommand.Execute()

i = 0

Do While Not rstByQuery.EOF

i = i 1 ' i 中保存記錄個(gè)數(shù)

rstByQuery.MoveNext

Loop

MSFlexGrid1.Rows = i 1 '動(dòng)態(tài)設(shè)置MSFlexGrid的行和列

MSFlexGrid1.Cols = rstByQuery.Fields.count 1

MSFlexGrid1.Row = 0

For i = 0 To rstByQuery.Fields.count - 1

MSFlexGrid1.Col = i 1

MSFlexGrid1.Text = rstByQuery.Fields.Item(i).Name

Next '設(shè)置第一行的標(biāo)題，用域名填充

i = 0

'Set rstByQuery = mycommand.Execute()

rstByQuery.Requery

Do While Not rstByQuery.EOF

i = i 1

MSFlexGrid1.Row = i '確定行

For j = 0 To rstByQuery.Fields.count - 1

MSFlexGrid1.Col = j 1

MSFlexGrid1.Text = rstByQuery(j) '添充所有的列

Next

rstByQuery.MoveNext

Loop 這個(gè)循環(huán)用來(lái)填充MSFlexGrid的內(nèi)容

End Sub

Private Sub Command2_Click()'參數(shù)方法

Dim i As Integer

Dim j As Integer

Set parm = New ADODB.Parameter

Set mycommand = New ADODB.Command

' parm_jobid.Name = "name1" this line can be ommited

parm.Type = adChar '參數(shù)類型

parm.Size = 10 '參數(shù)長(zhǎng)度

parm.Direction = adParamInput '參數(shù)方向，輸入或輸出

parm.Value = Combo1.Text '參數(shù)的值

mycommand.Parameters.Append parm '加入?yún)��?shù)

mycommand.ActiveConnection = cnn1 '

指定該command 的當(dāng)前活動(dòng)連接

mycommand.CommandText = " select *

from employee where fname =? "

mycommand.CommandType = adCmdText '表明command 類型

Set rstByQuery = New ADODB.Recordset

Set rstByQuery = mycommand.Execute()

i = 0

Do While Not rstByQuery.EOF

i = i 1 ' i 中保存記錄個(gè)數(shù)

rstByQuery.MoveNext

Loop

MSFlexGrid1.Rows = i 1 '動(dòng)態(tài)設(shè)置MSFlexGrid的行和列

MSFlexGrid1.Cols = rstByQuery.Fields.count 1

MSFlexGrid1.Row = 0

For i = 0 To rstByQuery.Fields.count - 1

MSFlexGrid1.Col = i 1

MSFlexGrid1.Text = rstByQuery.Fields.Item(i).Name

Next '設(shè)置第一行的標(biāo)題，用域名填充

i = 0

rstByQuery.Requery

Do While Not rstByQuery.EOF

i = i 1

MSFlexGrid1.Row = i '確定行

For j = 0 To rstByQuery.Fields.count - 1

MSFlexGrid1.Col = j 1

MSFlexGrid1.Text = rstByQuery(j) '添充所有的列

Next

rstByQuery.MoveNext

Loop '這個(gè)循環(huán)用來(lái)填充MSFlexGrid的內(nèi)容

End Sub

查詢部分可以用存儲(chǔ)過(guò)程以提高處理效率，減低網(wǎng)絡(luò)流量。本程序在NT WORKSTATION 4.0 SP4、SQL SERVER 7.0 上調(diào)試通過(guò)。

分享：談SQL Server 數(shù)據(jù)挖掘應(yīng)用于商業(yè)智能中
智能應(yīng)用的平臺(tái) 在過(guò)去的二十年中，經(jīng)濟(jì)快速發(fā)展，組織機(jī)構(gòu)普遍都收集了大量的商業(yè)數(shù)據(jù)。然而，擁有大量的數(shù)據(jù)并不意味著擁有了豐富的商業(yè)信息。因此，商業(yè)智能需要進(jìn)展到下一步數(shù)據(jù)挖掘。 數(shù)據(jù)挖掘能幫助您在瀏覽巨量數(shù)據(jù)的同時(shí)從中發(fā)現(xiàn)潛在有效的模式，并