Advertisement
Guest User

Untitled

a guest
Apr 25th, 2014
39
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.31 KB | None | 0 0
  1. Public Sub QueryFunction(ByVal p1 as Boolean, ByVal p2 as Boolean, ByVal p3 as String)
  2. {
  3. Dim str as String
  4. str = " select * from T1 "
  5. If p1 Then
  6. str &= " join T2 on T2.id = T1.id"
  7. End If
  8.  
  9. If p2 Then
  10. str &= " join T3 on T3.id = T1.id and T2.name = " & p3
  11. End If
  12.  
  13. ExecuteQuery(str)
  14.  
  15. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement