一个在数据库中用到的多功能函数

 Public Function h1(ByVal selected As String, ByVal item As String, ByVal index As String) As Boolean
        Dim sql As String, int As Integer
        sql = "update member set [" & selected & "] ='" & cq(item) & "'"
        sql &= "where index=" & index
        SqlQuery(sql, "update", , , int)
        If int > 0 Then
            Return True
        Else
            Return False
        End If
    End Function

 

当然你可以 把UPDATE该为其他类型的响应的SQL语句也要变化哦！