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

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

数据库中密码字段用text型，然后保存密码的时候 用一个MD5函数加密放入数据库。

输入密码用MD5加密得到加密字符串，与从数据库中取出的密码字符串比对。

这种方式是对密码大小写敏感的。

---