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语句也要变化哦!