马小玲的眼泪

转移话题了。。- -

我可能知道问题了，有朋友说此程序是VB5编写的，我这里编译环境都是VB6，有些语法变了。。

wowshell

你们开辩论会呢？

.lemon.

.额...

好的,你们赢了..

之前我是把一个几乎没人去关心的问题潜移默化的当做即存事实..

是饿..2007年了,语言都应该来用区别大小证明它是否更高级..

tenshinx

翻baidu也是学习，有不懂的呢就要学习

蜡烛鞭三郎

原帖由 .lemon. 于 2007-6-28 16:22 发表


不想扯这个问题了..

翻baidu我也会..

SQL在安装的时候是有一个大小敏感的问题..

之前教我软件的那人给过我一个先入为主的概念,即,SQL类VB语言在默认情况下不区别大小写..

在C# 之前 VB和 VB.NET 都不区分大小写

但是现在已经2007年了....

.lemon.

原帖由 tenshinx 于 2007-6-28 16:16 发表

看我31楼的贴。。。。别无事我- -

不想扯这个问题了..

翻baidu我也会..

SQL在安装的时候是有一个大小敏感的问题..

之前教我软件的那人给过我一个先入为主的概念,即,SQL类VB语言在默认情况下不区别大小写..

tenshinx

没必要要这东西干嘛。。。你当ms傻子啊

.lemon.

............

原来不是摘过来的..

tenshinx

原帖由 .lemon. 于 2007-6-28 16:10 发表
回28楼..

你在国内市场上买的无论哪一款SQL2000 or 2005. 在默认设置下,是绝对不区别大小写的.

你有这种情况,只能说是特例.. 要么你的环境特别设置过,要么日文版的问题.

看我31楼的贴。。。。别无事我- -

马小玲的眼泪

程序的是lolicon给的，他说，这程序再某些机器上没有问题，但在某些机器上报错。。

程序出处是某书上附送的，以前他可以用，现在他数据库坏了，无法调试。。。- -

[ 本帖最后由 马小玲的眼泪 于 2007-6-28 16:15 编辑 ]

.lemon.

原帖由 tenshinx 于 2007-6-28 16:08 发表
来。关于区分大小写问题，我们补充一个基本知识。
关于区分大小写问题,sqlserver是可以区分的，默认是不区分。

那么怎么样做到可以区分呢？
我们在create table时经常会碰到这样的语句，例如：CityName nv ...

有意义么？

有必要单独设置一下,到时候出现兼容问题？

蜡烛鞭三郎

原帖由 .lemon. 于 2007-6-28 16:10 发表
回28楼..

你在国内市场上买的无论哪一款SQL2000 or 2005. 在默认设置下,是绝对不区别大小写的.

你有这种情况,只能说是特例.. 要么你的环境特别设置过,要么日文版的问题.

现在不区分大小写的很少了吧

基本都会区分的

不要争论这个问题了

我CTRL+F5 了下LZ的程序

无数变量没定义 甚至好有用到的函数连主体都没的

一个个注释 注释了几十个还是有错

LZ这程序到底哪弄来的

有原代码伐..

.lemon.

原帖由 蜡烛鞭三郎 于 2007-6-28 16:08 发表
ExecuteSQL没有封装

在MOD模块里

Public Function ExecuteSQL(ByVal SQL _
   As String, MsgString As String) _
   As ADODB.Recordset
'executes SQL and returns Recordset
   Dim cnn As ADODB. ...

那就是我记不大得了..

你有vb环境把她改下就好了..

很简单的一个登陆 扯这么多出来..

.lemon.

回28楼..

你在国内市场上买的无论哪一款SQL2000 or 2005. 在默认设置下,是绝对不区别大小写的.

你有这种情况,只能说是特例.. 要么你的环境特别设置过,要么日文版的问题.

蜡烛鞭三郎

ExecuteSQL没有封装

在MOD模块里

Public Function ExecuteSQL(ByVal SQL _
   As String, MsgString As String) _
   As ADODB.Recordset
'executes SQL and returns Recordset
   Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim sTokens() As String
   
   On Error GoTo ExecuteSQL_Error
   
   sTokens = Split(SQL)
   Set cnn = New ADODB.Connection
   cnn.Open ConnectString
   If InStr("INSERT,DELETE,UPDATE", _
      UCase$(sTokens(0))) Then
      cnn.Execute SQL
      MsgString = sTokens(0) & _
         " query successful"
   Else
      Set rst = New ADODB.Recordset
      rst.Open Trim$(SQL), cnn, _
         adOpenKeyset, _
         adLockOptimistic
      'rst.MoveLast     'get RecordCount
      Set ExecuteSQL = rst
      MsgString = "ｲ鰉ｯｵｽ" & rst.RecordCount & _
         " ﾌ?ﾇﾂｼ "
   End If
ExecuteSQL_Exit:
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
   
ExecuteSQL_Error:
   MsgString = "ｲ鰉ｯｴ﨔・ " & _
      Err.Description
   Resume ExecuteSQL_Exit
End Function


我这里日文VB6  没办法显示出中文..