چطور میشه اطلاعات را از یک فایل اکسل(micosoft Excel )خواند و آن را در یک بانک اطلاعاتی ثبت کرد....
چطور میشه اطلاعات را از یک فایل اکسل(micosoft Excel )خواند و آن را در یک بانک اطلاعاتی ثبت کرد....
دوست من! براي اين كار بايد component مربوط به اون رو داشته باشی چون برای تخلیه اطلاعات از یک فایل
excel باید از ساختار اون فایل مطلع باشی ...
بنابر این دنبال component بگرد!
![]()
سلام
در اين مورد قبلا در انجمن بحث شده است!
قبل از درخواست نمودن , از امكان جستجو استفاده نماييد.
یک راهی که من خودم استفاده کردم البته در افیس 2007 اینه کا توسط کلیک راست کردن بر روی تیبل وکلمه اکسپرت export
به یکی از فایلهای دیتا بیس یا پاراداکس تبدیل کنی
سلام دوستان من اين مطالب را از سايت برنامه نويس گرفتم و اينجا قرار مي دهم تا دوستان هم استفاده كنند:
شما ميتونيد از ADO براي اينكار استفاده كنيد به اين صورت كه:
از يك ADOConnection استفاده كنيد و روي اون دوبار كليك كنيد
تا ويرايشگر ConnectionString باز بشه، روي دگمه Build كليك كنيد تا
فرم Data Link Properties باز بشه، از صفحه اول از بين Provider ها
Microsoft.Jet.OLEDB.4.0 رو انتخاب كنيد و به صفحه بعد يعني Connection بريد
تو اين صفحه آدرس فايل و نام فايل رو در جايي كه مشخص هست تايپ كنيد و به
صفحه آخر يا همون All بريد و از بين ويژگيهاي ليست شده Extended Properties رو
دوبار كليك كنيد و در فرمي كه باز ميشه در قسمت Value عبارت Excel 8.0 رو بنويسيد.
فرمهاي باز شده رو يكي يكي OK كنيد .
ADOConnectionرو انتخاب كنيد و ويژگي LoginPrompt رو False كنيد تا ديگه ازتون Username و
Password رو نپرسه.
حالا يك ADOTable روي فرمتون بگذاريد و اون رو به ADOConnection وصل كنيد.
موقعيكه ميخواهيد ليست جداول (Tablename) رو ببينيد تمام صفحات فايل Excel رو به همراه
يه علامت $ مياره كه اگه به همين شكل هم شما انتخاب كنيد و اون رو Open كنيد با Error
مواجه ميشيد ، پس جدول رو انتخاب كنيد و اون رو داخل براكت [] بگذاريد.
حالا ميتونيد استفاده كنيد.
سلام
Delphi_Online999 جان
برای خواندن و نوشتن فایل در اکسس
از کامپوننت XLSReadWrite استفاده
کن
موفق باشی
ممنون از روشت.نوشته شده توسط Delphi_Online999
خيلي راحت و دم دست بود.
ممنون كه اينجا هم جواب رو گذاشتي.
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)