我是一个新手,现在在做vb6.0和sql server 2000结合的系统.想请问各位大侠,在vb进行数据库中数据查询时怎么进行区分数据大小写的查询?在此先谢过了!

因为SQL 2000里没有这个字符串比较函数，所以要自定义一个StrComp函数（进行二进制比较）。
定义如下：
------------------------------------------------------------------------------------------
CREATE FUNCTION StrComp(@Str1 VARCHAR(50),@Str2 VARCHAR(50))
--ALTER FUNCTION StrComp(@Str1 VARCHAR(50),@Str2 VARCHAR(50))
RETURNS INTEGER
AS
BEGIN
DECLARE @i INTEGER
--DECLARE @Str1 VARCHAR(50)
--DECLARE @Str2 VARCHAR(50)
DECLARE @y INT
--SET @Str1='a'
--SET @Str2='A'
SET @i=0
--SELECT ASCII(SUBSTRING(@Str1,@i+1,1))
SET @y=1
DECLARE @iLen INT
SET @iLen = LEN(LTRIM(RTRIM(@Str1)))
IF LEN(LTRIM(RTRIM(@Str1))) < LEN(LTRIM(RTRIM(@Str2))) --THEN
SET @iLen = LEN(LTRIM(RTRIM(@Str2)))
WHILE (@i < @iLen)
BEGIN
IF (ASCII(SUBSTRING(@Str1,@i+1,1))=ASCII(SUBSTRING(@Str2,@i+1,1))) --THEN
SET @i = @i +1
ELSE
BEGIN
SET @y=0
BREAK
END
END
RETURN @y
END
--------------------------------------------------------------------------------------------
然后再用这个语句看看效果。
rs.Open "select * from hblx where dbo.StrComp(hblx, 'Abc')=1", myado, 1, 1

非常感谢你能回答我的问题.这两天我查了一些sql 2000中的区分大小写的查询方法：
select * from 表
where fd collate Chinese_PRC_CS_AS_WS like '%A%'
--就是在字段名后加 collate Chinese_PRC_CS_AS_WS
但我用这个方法查询时却遇到了一些问题：
Adodc3.RecordSource = "select 氧化物 from 氧化物表 where 氧化物 collate Chinese_PRC_CS_AS_WS like'" + Trim(Text2.Text) + "'"
Adodc3.Refresh
数据库中氧化物为SiO2,我用command１控制查询.
１.我在Text2.Text中输入SiO2,当我第一次点command１时,可以查到结果，这是正确的．
２.然后我把Text2.Text中该改为sio2，点下command１后查不到结果，这也是正确的．
３.之后我又把Text2.Text中该改回SiO2，点下command１后却又查不到结果了，这里我就不明白了．
是这个查询语句的问题，还是我程序中的问题？你能告诉我这是为什么吗？