论坛 › 『电脑DIY』 › 威力强大的SQL语言

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

威力强大的SQL语言

今晚作了一个简单的测试，求一个字段的总和。我用的是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辛苦。

david 发表于 2003-3-13 11:29:00

聽老人言。。。。學VB無前途。。。。

渣王 发表于 2003-3-13 17:49:00

那就宵Delphi吧！

阿Q 发表于 2003-3-14 06:06:00

VC 最有前途。。。最好学标准C

david 发表于 2003-3-14 18:21:00

講有前途當然系JAVA啦，我學緊JSP！

渣王 发表于 2003-3-15 13:14:00

全部有前途！只要你学得精

Nev 发表于 2003-3-15 15:06:00

这也是VB
两种方法都是VB

渣王 发表于 2003-3-15 21:09:00

VBScript也可以应用于网页，和JSP一样

闪舞元素 发表于 2003-3-15 22:08:00

我只学两个字：
0,1

Nev 发表于 2003-3-15 23:30:00

以下是引用闪舞元素在2003-3-15 22:08:21的发言：
我只学两个字：
0,1

那我比你多学一个英文Enter   ^_^

查看完整版本: 威力强大的SQL语言