کاربرد Tempvars در Query

• آموزش کاربرد Tempvars در Query

در این مطلب آموزشی قصد دارم تا شما را با کاربرد Tempvars در Query آشنا کنم. یکی از روشهایی که از طریق آن میتوان ارجاعات کوئری را تنظیم نمود استفاده از متغییر Tempvars می باشد. در ادامه با یک مثال نحوه بکارگیری این متغیر را ملاحظه خواهید نمود. مطابق تصویر زیر جدولی با سه فیلد ؛ نام ، نام خانوادگی و سن را ایجاد نموده و آن را با نام Table1 ذخیره میکنیم ؛ و آن را با اطلاعات فرضی پر میکنیم.

1. 1. Nam
   2. Famil
   3. Sen

در ادامه یک فرم ایجاد کرده و یک عدد TextBox و دکمه روی آن قرار می دهیم. سپس وارد محیط کد نویسی دکمه در رویداد On Click می شویم و کدهای زیر را در داخل آن قرار می دهیم.

Private Sub Command2_Click() 
Dim S As Integer 
S = Text1.Value 
TempVars.Add "b", S 
End Sub

در مرحله بعد یک کوئری ایجاد می کنیم و در فیلدی که قرار است عمل فیلتر براساس آن انجام شود بصورت تصویر زیر عمل نموده و در بخش Criteria کد مورد نیاز را قرار می‌دهیم.

برای تست عملکرد کدهای نوشته شده کافی است که فرم ساخته شده را اجرا کنیم و با توجه به اینکه در کوئری ایجاد شده معیار فیلتر را بر روی سن قرار دادیم ؛ سن یکی از افراد را در داخل TextBox وارد نموده و روی دکمه کلیک می‌کنیم. پس از انجام اینکار مطابق کدهای تعریف شده عدد وارد شده در داخل متغیر S و سپس وارد متغیر Tempvars b خواهد شد.

حالا در صورتی که کوئری ساخته شده را اجرا کنید ؛ ملاحظه خواهید نمود که نام و نام خانوادگی فردی که سن او را در داخل TextBox وارد کردیم به نمایش درخواهد آمد.