|
|
|
|
|
سلام به همگي
من برنامه اي در دست دارم که لازم است با پايگاه داده اي در اکسس ارتباط برقرار کنم . کار را بطور مرحله اي توضيح مي دهم تا درست متوجه شويد که موضوع از چه قرار است : - من يک DB دارم با تعداد زيادي جدول و Query - مي خواهم در برنامه از چندين جدول و يکي از Query ها استفاده کنم - در ابتدا يک DataEnvironment تعريف کردم و Connection آن را به نوع jet4.0 براي اکسس گذاشتم و آدرس DB را هم تعيين کردم . - يک Command1 تعريف کردم و در آن دستورات SQL نوشتم و SQL Builder را زدم و جداول را در زير آن ليست کرد در همان نمودار شاخه اي زير DataEnvironment . - براي نمايش آن در فرم VB مجبور شدم از Hierarchical FlexGrid استفاده کنم چرا که Flexgrid يا DataGrid نتوانستند در قسمت Datamember ، Command1 را که در آن از Query درون DB هم استفاده شده بود ، تشخيص دهند . يعني در Flexgrid يا DataGrid با انتخاب DataEnvironment بعنوان Data Source در بخش DataMember گزينه اي را نشان نمي داد و فقط در Hierarchical FlexGrid آن را مي شناخت . - يک Hierarchical FlexGrid گذاشتم و ارتباطش را به Command1 ايجاد کردم و فيلدهاي مورد نظر را در آن نمايش دادم . ----------- تا اينجا همه چيز خوب و درست کار مي کند ------------------------ حالا بايد شرطي را در آن جدول اعمال کنم - در جايي از فرم دو تاريخ از کاربر مي گيرم - بايد محتواي ستون تاريخ از جدول نمايش داده شده در Hierarchical FlexGrid را بتوانم با تاريخ هاي Textbox ها مقايسه کنم و بر آن اساس اطلاعات را نمايش دهم . به نظرم بايد به طريقي در داخل برنامه دستور SQL بنويسم . اين کار هم با استفاده از ConnectionString تا حدي انجام شد اما تنها مي توانم چند فيلد را نمايش دهم و تازه هنوز هم نتوانستم مقايسه اي انجام دهم - علاوه براين شروطي دارم که گاهي طبق شرايطي بعضي فيلدها را نمايش دهد و گاهي نمايش ندهد يا مقدار صفر برايشان بگذارد يا حتي اطلاعات جديد را به پايگاه داده اضافه کند و .... - خلاصه هر جوريه بايد در خود VB دستور SQL آن هم طولاني بنويسم ولي فقط دستورات SQL کوتاه را قبول مي کند . من بايد پروزه را هرچه سريعتر تحويل دهم . خواهش مي کنم کمکم کنيد . ايميل خود را هم مي گذارم تا مستقيما جواب را سريعتر به خودم هم ميل بزنيد : tm_online@yahoo.com بي نهايت ممنون . منتظرم |
||
|
|
|
|
|
همه عاشق خورشيد بودند و به دنبال يافتن خورشيد خودشان ، کسي که در رؤياهايشان بود . هيچ کس به ستاره ها توجهي نمي کرد و به نور کوچکشان اهميتي نمي داد . نور ستاره اي دلم را لرزاند . هرگز به دنبال يافتن برترين خورشيد نبودم . نور شفاف ستاره ها را برتر از تلالؤ سوزنده خورشيد مي دانستم . يادم نبود که هر ستاره پاکي در آسمان ، صاحبي روي زمين دارد . کسي که شايد آن ستاره برايش حکم خورشيد را داشته باشد . خيلي زود صاحب ستاره آمد و نور کوچکش را از شب هاي بي مهتابم گرفت . هنوز هم خورشيد نمي خواهم . هنوز هم ستاره ها را پاک تر مي دانم و خورشيدها را مغرور مي يابم . کاش مي شد همان ستاره ، خورشيد هميشگي ام باشد . چشم به آسمان تيره دلم دوخته ام . گرچه مي دانم بي فايده است . آن ستاره ديگر هرگز نورش را نشانم نخواهد داد . مي دانم که روزي مجبور مي شوم با عينک دودي به آسمان نگاه کنم تا ديگر نور پاک هيچ ستاره اي اسيرم نکند . شايد هم ديگر هرگز سر را به سمت آسمان برنگردانم تا ستاره هايش را ببينم و حسرت بخورم . در عمق آسمان تيره و تار دلم هنوز کورسويي از نور ستاره رؤيايي ام را مي بينم . او تنها در دلم است . بدون آنکه واقعا وجود داشته باشد . آرزوي محال زندگيم شده . يک سراب ، که اميد به نور دروغينگش بسته ام . و انگار ديوانه وار از اينکه با حقيقي دانستن نورش خودم را گول بزنم احساس آرامش مي کنم . |
||