تغییر آدرس جدول های لینک شده [بایگانی]

View Full Version : تغییر آدرس جدول های لینک شده

sajjad_kochekian

جمعه 14 اسفند 1388, 20:54 عصر

چطور میشه اگه چند تا جدول که به برنامه لینک کردیم در صورتی که موجود نباشه آدرس جدول رو از کاربر بپرسه

یا محل فعلی برنامه رو به عنوان آدرس لینک بذاره

ممنون میشم جواب بدید

amirzazadeh

شنبه 15 اسفند 1388, 12:30 عصر

چطور میشه اگه چند تا جدول که به برنامه لینک کردیم در صورتی که موجود نباشه آدرس جدول رو از کاربر بپرسه

یا محل فعلی برنامه رو به عنوان آدرس لینک بذاره

ممنون میشم جواب بدید
سلام
از اين تاپيك كمك بگيريد:
http://barnamenevis.org/forum/showthread.php?p=900426
...................
موفق باشيد

sajjad_kochekian

شنبه 15 اسفند 1388, 17:21 عصر

سلام
از اين تاپيك كمك بگيريد:
http://barnamenevis.org/forum/showthread.php?p=900426
...................
موفق باشيد

سلام
بابت لینکی که دادید ممنون خیلی کارم را جلو انداخت

ولی یک سوال دیگه نمیشه فقط آدرس رو ما بهش بدیم بقیه کار که کدوم جدول انتخاب بشند رو با کد نویسی انجام داد
چون به این صورت کاربر ممکن یک بانک اشتباه انتخاب کنه

smderfan

شنبه 15 اسفند 1388, 22:07 عصر

برای این کار می تونی از جداول سیستمی اکسس مثل MSysObjects استفاده کنید سپس جداول لینک شده رو بررسی کنید.

amirzazadeh

یک شنبه 16 اسفند 1388, 12:48 عصر

سلام
بابت لینکی که دادید ممنون خیلی کارم را جلو انداخت

ولی یک سوال دیگه نمیشه فقط آدرس رو ما بهش بدیم بقیه کار که کدوم جدول انتخاب بشند رو با کد نویسی انجام داد
چون به این صورت کاربر ممکن یک بانک اشتباه انتخاب کنه
سلام
نمونه تكميل شده رو آپلود كردم (بدون نياز به آدرس دهي.فقط هر دو فايل بايد تو يك پوشه باشند).
...........................
موفق باشيد

sajjad_kochekian

دوشنبه 17 اسفند 1388, 09:51 صبح

سلام
نمونه تكميل شده رو آپلود كردم (بدون نياز به آدرس دهي.فقط هر دو فايل بايد تو يك پوشه باشند).
...........................
موفق باشيد

سلام
فایل رو گرفتم ولی در قسمت Function link2BE خیلی پیغام خطا داد یکمش رو فهمیدم چیه ولی از
If Left(tdf.Name, 4) <> "msys" Then
به بعد متوجه نشدم
ممنون میشم مشکل من رو حل کنید

amirzazadeh

دوشنبه 17 اسفند 1388, 10:45 صبح

سلام
فایل رو گرفتم ولی در قسمت Function link2BE خیلی پیغام خطا داد یکمش رو فهمیدم چیه ولی از
If Left(tdf.Name, 4) <> "msys" Then
به بعد متوجه نشدم
ممنون میشم مشکل من رو حل کنید
سلام
رفرنس هاي اضافي فايلو حذف كردم اگر بعد از دانلود مجددا پيام خطا دريافت كردين متن خطا رو آپلود كنيد.(البته با اكسس 2003)
...................
موفق باشيد

sajjad_kochekian

دوشنبه 17 اسفند 1388, 14:46 عصر

باز هم پیغام خطا داد
پیغام خطا زو ضمیمه کردم

amirzazadeh

دوشنبه 17 اسفند 1388, 21:17 عصر

باز هم پیغام خطا داد
پیغام خطا زو ضمیمه کردم
سلام لطفا رفرنس microsoft dao 3.6 object library به ليست رفرنس هاتون اضافه كنيد.