کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی
کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی

ADO Charset & State & Type Property + Some Methods



ویژگی Charset مقداری را تنظیم میکند یا برمی گرداند که مشخص می کند محتویات Stream باید به کدام مجموعه کاراکتر ترجمه شود( زمانیکه در بافر  شئ  Stream ذخیره می شود) . پیش فرض Unicode است.


BSTR یا Basic String یک نوع داده ساختاریافته است که شامل یک رشته کاراکتر و طول رشته است.



این ویژگی برای تبدیل داده های صادره و وارده از Stream استفاده می شود.برای مثال اگر Stream حاوی داده  ISO-8859-1 باشد و داده به یک BSTR کپی شود ، شئ Stream داده را به Unicode تبدیل خواهد کرد. برعکس آنهم صحیح است.


یادداشت : این ویژگی فقط با اشیاء جریان متنی استفاده میشود ( نوع آن adTypeText است )

یادداشت : برای باز کردن یک شئ Stream ، موقعیت جاری باید در ابتدای آن باشد تا این ویژگی تنظیم یا اعمال گردد.


ویژگی State : 


این ویژگی مقداری رو برمی گرداند که نشان می دهد شئ باز ، بسته ، در حال اتصال ، اجرا یا بازیابی داده است. >>> ObjectStateEnum ... پیش فرض adStateClosed است.

این ویژگی می تواند با Command ، Connection ، Record ، RecordSet و شئ Stream استفاده شود.

ویژگی State می تواند دارای ترکیبی از مقادیر باشد . اگر داکیومنتی در حال اجراست ، این ویژگی دارای مقدا adStateOpen و adStateExecuting است.


مقدار 0 بسته ، 1 باز و  4 در حال اجرا 


ویژگی Type:


این ویژگی یک مقدار StreamTypeEnum ، تنظیم کرده یا بر می گرداند که مشخص کننده نوع داده ی شئ Stream است . پیش فرض adTypeText است.

یادداشت : این ویژگی زمانی که موقعیت در ابتدای Stream است read/Write است ( هم می شود خواند و هم نوشت ) در غیر اینصورت فقط خواندنی است.


متد LoadFromFile :


این مِتُد برای بارگزاری محتویات فایل اجرائی داخل شئ Stream باز استفاده می شود . تمام داده موجود در این شئ دوباره نوشته خواهد شد منظور OverWrite.

یادداشت : بعد از فراخوانی متد ، موقعیت جاری به صفر یا ابتدای شئ Stream تنظیم می شود.

نکته : این متد می تواند برای آپلود محتویات یک فایل به سرور استفاده شود .


ویژگی SaveToFile :


این ویژگی برای ذخیره محتویات باینری یک شئ Stream باز به فایل Local استفاده می شود.

یادداشت : بعد از فراخوانی ، موقعیت جاری به ابتدای Stream یعنی صفر تنظیم می شود.


ویژگی ReadText : 


این متد برای خواندن تمام Stream ، یک خط یا تعداد مشخصی از کاراکترها از شئ جریان متنی استفاده می شود و نتیجه داده را بعنوان یک رشته باز می گرداند.

یادداشت : این متد یا روش تنها با Stream متنی استفاده می شود و برای باینری از متد Read

StreamReadEnum













بهمن ۱۴۰۱

دنی آلوز، مدافع راست سابق بارسلونا، روز جمعه به اتهام تجاوز جنسی روانه زندان شد. پس از دستگیری آلوز، همسرش ژوآنا سانز در شبکه‌های اجتماعی از رسانه‌ها خواست تا به حریم خصوصی او احترام بگذارند، و توضیح داد که چند روز پیش مادرش را از دست داده است.

سانز نوشت: «از خبرنگاران و رسانه‌های خارج از خانه‌ام می‌خواهم که لطفاً در این شرایط به حریم خصوصی من احترام بگذارند. مادر من یک هفته قبل از دنیا رفت و هنوز با مرگ مادرم کنار نیامده‌ام و حالا با وضعیت همسرم من را شکنجه می‌کنند. من دو ستون زندگی خود را از دست دادم. کمی همدلی داشته باشید به جای اینکه در درد و رنج دیگران دنبال خبر بگردید، متشکرم


ملکه مادر در این باره معتقد است فرح «عمداً و عالماً کاری می‌کرد که به محمدرضا لطمه بخورد.» تاج‌الملوک مادر محمدرضا پهلوی که به گفته خودش از سال ۱۳۵۲ با فرح قهر کرده و کلمه‌ای با او سخن نگفته بود، بارها برخوردهای تند و خشنی در قبال رفتارهای فرح داشت: «یک بار آقای رئیس خدمه کاخ‌های سلطنتی با ترس و لرز و هزار، اما و اگر و ببخشید و جایی نگویید و اینگونه مقدمات گفت: قربانت گردم، آیا این درست است که شهبانوی مملکت دوست‌پسر داشته باشد و او را با خود به داخل کاخ بیاورد؟ البته ما می‌دانستیم که فرح با فریدون جوادی قاطی شده است، اما نه اینکه او را به کاخ بیاورد! این بود که یک روز، خود فرح را خواستم و به او نهیب زدم که زنیکه گدا ! خجالت نمی‌کشی این قبیل کارها را در جلوی چشم کارکنان دربار انجام می‌دهی؟ فرح گفت: درست گفته‌اند که شاه می‌بخشد، شیخ علیخان نمی‌بخشد! خود محمدرضا مرا آزاد گذاشته، آن وقت باید به تو حساب پس بدهم؟ من آزاد هستم و اختیار پایین‌تنه‌ام را دارم! خلاصه خیلی بی‌حیایی کرد.

























شئ Stream در ADO




Save and restore data in files with the SaveToFileand LoadFromFile methods.


Stream.LoadFromFile FileName

Stream.SaveToFile FileName,SaveOptions


داکیومنت دو مورد بالا با نوشتاری آنها و آرگومانشان ارائه شده که قبلش حتما باید Stream را فراخوانی کنید بعد از متد Open استفاده کنید.


در لینک زیر متدها و ویژگیها را می توانید ببینید

learn.microsoft.com



ویژگی Type فقط زمانی خواندنی / نوشتنی می شود که موقعیت فعلی در ابتدای Stream باشد (     Position = پوزیشن 0   ) و در هر موقعیت دیگری فقط خواندنی است.این ویژگی تعیین می کند که کدام متدها باید برای خواندن و نوشتن Stream استفاده شوند.برای Stream های متنی از ReadText و WriteText استفاده نُمائید . برای باینری ها از  Read و Write استفاده کنید.


String = Stream.ReadText ( NumChars)

Stream.WriteText Data, Options



Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1 'binary type



یک جریان متن یا Text Stream از یک یا چند خط متن تشکیل شده است که می توان آنها را روی یک صفحه نمایش متن محورنوشت تا بتوان آنها را خواند.وقتی آن از یک جریان متنی می خواند، برنامه یک خط جدید در انتهای هر خط 


شئ TextStream برای دسترسی به محتوای فایل های متنی استفاده می شود.("!f.WriteLine("Hello World برای ساختن نمونه ای از شئ TextStream می توان از CreateTextFile یا OpenTextFile متدهای شئ FileSystemObject یا از متد شئ File یعنی OpenAsTextStream استفاده کرد.




مرجع برای استاندارد برنامه نویسی در اکسس البته موارد بالا جزء آموزش اکسس نیست ،  کتابش گرونه ولی مفید

ACCESS  2019 PROGRAMMING : 


  • Teaches you how to programmatically create and access database tables and fields.
  • Shows you how to insert, update, and delete data via programming code using various data access techniques.
  • Gets you proficient creating and running simple and parameterized queries against your Access databases.
  • Gets you comfortable using external data sources with Access (Excel, Word, flat files, XML, and SQL Server).
  • Teaches you how to take control of your forms and reports by writing programming code known as event procedures.
  • Shows you how to use various types of macros and templates.







دیماه ۱۴۰۱ ... اتفاق نادر در مهر آباد :

این فرد گفت: پس از دو ساعت معطلی در داخل هواپیما و گلایه از بابت تأخیر پیش آمده مهمانداران اعلام کردند که به گفته خلبان وزن هواپیما سنگین‌تر از حد مجاز است.

وی ادامه داد: مهمانداران مدعی شدند وزن هواپیما ۱۵۰ کیلوگرم بیشتر از وزنی است که پرواز بتواند در ایمنی کامل و در شرایط آب و هوایی خرم آباد بر زمین بنشیند.


معتمدآریا


قطار یخ زده مشهد ( زائرین امام هشتم و معصومه ) دیماه ۱۴۰۱

این مسافر قطار قم ـ مشهد عنوان کرد: خدمت رسانی، پاسخگویی بسیار ضعیف است حتی به مسافران آب، چای و یا نانی در این ساعات داده نشده است و ما با توجه به اینکه به اردو میرفتیم مواد غذایی که برای اردو تهیه کرده بودیم را بین مردم توزیع کردیم و پس از این اقدام ما تازه خدمه قطار کیک و آبمیوه بین مردم توزیع کردند.



خبرآنلاین: سید علی خان محمدی سخنگوی ستاد امر به معروف و نهی از منکر از امضای تفاهم نامه ای بین این ستاد و قوه قضاییه و بسیج خبرداده تا در هر محله «مساجد» محور اقدامات در حوزه «آسیب‌های اجتماعی» قرار گیرند.


بازدید بانوان شهر تهران به مدت سه روز در روزهای شنبه، یکشنبه و دوشنبه هفته آینده (۲۴ الی ۲۶ دی ماه ۱۴۰۱ ) از ساعت ۹ الی ۱۵ از مجموعه میلاد بازدید کنند.

بانوان علاقه مندان می‌توانند برای بازدید از برج میلاد، در سامانه miladticket.com ثبت نام کرده و روز و ساعت بازدید خود را رزرو کنند.




شرکت بیمه پاسارگاد از سال ۱۳۹۳ تا کنون نسبت به اعطای پوشش هزینه های بیمارستانی (بستری و جراحی) به بیمه شدگان بیمه نامه های عمر و تأمین آتیه اقدام نموده است. چنانچه ذخیره ریاضی (ارزش بازخرید) بیمه نامه به حدنصاب ۲۰,۰۰۰,۰۰۰ ریال رسیده باشد و از تاریخ شروع یا تاریخ تغییرات مالی در بیمه نامه مدت شش ماه سپری شده باشد، این پوشش فعال می شود. سقف پوشش هزینه های بیمارستانی (درمان تکمیلی) در حال حاضر ۳۰۰,۰۰۰,۰۰۰ ریال است.

































ConnectionString در Access 2013




To reference ADO from Microsoft Visual Basic

  1. In Visual Basic, from the Project menu, select References....

  2. Select Microsoft ActiveX Data Objects x.x Library from the list


ADO Recordset Object 


objRecordset.Open 

source,actconn,cursortyp,locktyp,opt


CursorType







Set objRecordset= objConnection.OpenSchema(adSchemaTables)




(("Set rs = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE
Do While Not rs.EOF
Debug.Print rs.Fields("TABLE_NAME").Value
rs.MoveNext
Loop
rs.Close