VB里面比较大小写

StrComp 函数本示例使用 StrComp 函数来比较两个字符串。如果第三个参数值为 1，字符串是以文本比较的方式进行比较；如果第三个参数值为 0 或是缺省，则以二进制比较的方式进行比较。

文本比较方式会将大小写字母视为一样，但二进制比较方式则视为不同。

Dim MyStr1, MyStr2, MyComp

MyStr1 = "ABCD": MyStr2 = "abcd" ' 定义变量。

MyComp = StrComp(MyStr1, MyStr2, 1) ' 返回 0。

MyComp = StrComp(MyStr1, MyStr2, 0) ' 返回 -1。

MyComp = StrComp(MyStr2, MyStr1) ' 返回 1。

这是SQL查询语句。

你用的什么ADO，还是RDO？

下面是ADO查询：

Dim rs As New ADODB.Recordset

Dim num As Integer

num=val(text1)'取出前几名

rs.Open "select top "&num&" * from 表名 order by 字段 desc", cn

ADOGrid1.ShowData rs

rs.Close

前面代码实现 显示某字段内的前几名在表格中显示出具体数据。

---