机房问题总结之改变select语句中的变量

【背景】

在敲机房的时候，总是要到数据库中查询信息、获取数据，每个模块里都要写老三句，代码显得很繁琐，然后就想着把查询语句写成函数，把查询的字段、表名等，写成变量，这样在其他的模块里就可以直接调用。

</pre>【解决方案】       <pre name="code" class="vb">

'定义一个函数用来存放查询过程
Public Function query(ByVal X As String, ByVal Y As String)
    txtSQL = "select " & X & " from " & Y & " where userid='" & Combo1.Text & "'"
    Set mrc = ExecuteSQL(txtSQL, msgtext)
End Function
下面是调用过程
 '连接一般用户数据库，查看共注册了几张卡
    X = "count（*）"
    Y = "student_Info"
    Call query(X, Y)
    Text1.Text = mrc.Fields(0)
    mrc.Close
    '连接一般用户的表，查看临时用户的钱
    X = "sum(cash)"
    Y = "student_info"
    Call query(X, Y)
    Text4.Text = mrc.Fields(0)
    mrc.Close

【注意】

传值和传址是函数参数传递的两种方式；

1、按地址传递(关键字ByRef)：VB默认的数据传递方式 把实参变量的内存地址传递给被调过程(如Sub过程)，即形参与实参使用相同的内存地址单元，这样通过过程就可以改变变量本身的值。 实参必须是变量，不能采用常量或表达式 。

2、按值传递(关键字ByVal)：通过常量传递实际参数，即传递参数值而不是传递它的地址 因为通用过程不能访问实参的内存地址，因而在通用过程中对形参的任何操作都不会影响实参 。

【总结】

在敲机房的之前，虽然有学生做了铺垫，可是当自己真正的去实践的时候，有很多东西还是不一样的，有句话说得是：欠的总是要还的。之前VB学习的不细致的地方，在这里我们再一次学习、补充。知识，还是要经常回来看看。