Access 2007 VBA Programmer’s Reference phần 6

có thể lấy dữ liệu mà nó nhà. Trong nhiều trường hợp, với an ninh mạng thích hợp, người dùng có thể mở, sao chép, hoặc thậm chí xóa cơ sở dữ liệu. Ngoài ra còn có một số tùy chọn để làm việc với an ninh. Nhiều nhà phát triển có thể muốn sử dụng một sự kết hợp của Wizard An User-Level và mã. | Chapter 15 SQL and VBA The following code does the same thing for the Having clause find length of HAVING portion If intStartHAVING 0 Then start with longest it could be intLenHAVING intLenSQL -intStartHAVING 1 If intStartWHERE 0 And intStartWHERE intStartHAVING _ And intStartWHERE intStartHAVING intLenHAVING Then we found a new portion closer to this one intLenHAVING intStartWHERE -intStartHAVING End If If intStartORDERBY 0 And intStartORDERBY intStartHAVING . And intStartORDERBY intStartHAVING intLenHAVING Then we found a new portion closer to this one intLenHAVING intStartORDERBY -intStartHAVING End If If intStartGROUPBY 0 And intStartGROUPBY intStartHAVING . And intStartGROUPBY intStartHAVING intLenHAVING Then we found a new portion closer to this one intLenHAVING intStartGROUPBY -intStartHAVING End If End If And this code does the same thing for the Order By clause find length of ORDERBY portion If intStartORDERBY 0 Then start with longest it could be intLenORDERBY intLenSQL -intStartORDERBY 1 If intStartWHERE 0 And intStartWHERE intStartORDERBY _ And intStartWHERE intStartORDERBY intLenORDERBY Then we found a new portion closer to this one intLenORDERBY intStartWHERE -intStartORDERBY End If If intStartGROUPBY 0 And intStartGROUPBY intStartORDERBY And intStartGROUPBY intStartORDERBY intLenORDERBY Then we found a new portion closer to this one intLenORDERBY intStartGROUPBY -intStartORDERBY End If If intStartHAVING 0 And intStartHAVING intStartORDERBY _ And intStartHAVING intStartORDERBY intLenORDERBY Then 533 Chapter 15 SQL and VBA we found a new portion closer to this one intLenORDERBY intStartHAVING -intStartORDERBY End If End If Finally the length of the Where clause is determined find length of WHERE portion If intStartWHERE 0 Then start with longest it could be intLenWHERE intLenSQL -intStartWHERE 1 If intStartGROUPBY 0 And intStartGROUPBY intStartWHERE _ And intStartGROUPBY intStartWHERE intLenWHERE Then we found a new portion closer to this one .