威力强大的SQL语言

AK48 · 发表于 2003-3-12 22:51:00

今晚作了一个简单的测试，求一个字段的总和。我用的是VB，使用ADO控件，数据库用SQL，里面有6万多条记录。 Private Sub Command1_Click() Select Case Text1.Text Case "vb" Dim i, y Adodc1.Recordset.MoveLast i = Adodc1.Recordset.RecordCount Adodc1.Recordset.MoveFirst Sum = 0 For y = 1 To i Sum = Adodc1.Recordset("Feld") + Sum ' Feld为字段名称 Adodc1.Recordset.MoveNext Next y Case "sql" Dim Asum Adodc1.RecordSource = "SELECT SUM(Feld) FROM Table1" Adodc1.Refresh Asum = Adodc1.Recordset.Fields(0) End Select End Sub 计算结果是一个11位数的数字当TEXT1=“VB”时，用了4分多钟才计算完毕，当TEXT1=“SQL”时，只用了不到1秒的时间，后来再用GRID显示看着VB运行第一个条件时一行一行地计算的过程，呵呵，真替VB辛苦。