رفع اشکال یک کد [بایگانی]

hentjanson

پنج شنبه 02 اسفند 1386, 12:53 عصر

سلام این کد من کجاش اشتباه هستش

IF OpenPictureDialog1.Execute Then
Image1.Picture.Bitmap.LoadFromFile(OpenPictureDial og1.FileName);
adoTable1.fieldbyname('file').asstring:=OpenPictur eDialog1.FileName;

با این می خوام در بانک ذخیره کنه ................

Amir_Safideh

پنج شنبه 02 اسفند 1386, 13:08 عصر

خوب در ظاهر اشکالی وجود نداره ولی شما موقع وارد نمودن اطلاعات در جدولتون باید اول اون رو در حالت Insert یا Edit قرار داده باشید تا این جدولتون مقدار بگیره . یعنی اگر ما فرض کنیم که شما میخواهید که آدرس این تصویر در جدول Insert بشه در اینصورت باید کدتون رو اینجوری بنویسی :

IF OpenPictureDialog1.Execute Then
Image1.Picture.Bitmap.LoadFromFile(OpenPictureDial og1.FileName);
ADOTable1.Insert;
adoTable1.fieldbyname('file').asstring:=OpenPictur eDialog1.FileName;
موفق باشید.

arshia_

پنج شنبه 02 اسفند 1386, 13:16 عصر

شما بدون begin ,end نوشتی
یعنی در هر صورت برنامه یک insert انجام می ده
شاید منظور شما اینه که اگر عکسی انتخاب شد این کار صورت بگیره؟
این کد رو هم امتحان کن شاید نتیجه داد

IF OpenPictureDialog1.Execute Then
begin

Image1.Picture.Bitmap.LoadFromFile(OpenPictureDial og1.FileName);
ADOTable1.Insert;
adoTable1.fieldbyname('file').asstring:=OpenPictur eDialog1.FileName;
end;

hentjanson

پنج شنبه 02 اسفند 1386, 13:20 عصر

این رو روی یک دکمه گزاشتم .

Amir_Safideh

پنج شنبه 02 اسفند 1386, 13:32 عصر

Arshia ممنون از تذکرت من اصلا توجه نکردم درسته Begin و End حتما باید گزاشته بشه .

این رو روی یک دکمه گزاشتم .
خوب مهم نیست که این کد رو روی یک دکمه گزاشته باشید مهم اینه که این دستورات درازای برقرار بودن اون شرط باید انجام بشن پس Begin و End لازمه که اضافه بشه .

mohinsoft

جمعه 03 اسفند 1386, 18:27 عصر

IF OpenPictureDialog1.Execute Then
Image1.Picture.Bitmap.LoadFromFile(OpenPictureDial og1.FileName);
adoTable1.fieldbyname('file').asstring:=OpenPictur eDialog1.FileName;

با سلام
1-هدف شما از این کد چیه؟
2-منظور از 'file' همون نام فیلد هست؟
3-میخوایین مسیر فایل رو در جدول ذخیره کنید؟چون خط آخری شما فقط نام فایل رو در بانک ذخیره میکنه:متفکر:

hentjanson

شنبه 04 اسفند 1386, 08:56 صبح

سلام اره راستی ببین یک سوال من در بانک ذخیره کردم حالا چطوری صداش بزنم موقعی که برنامه را در حالت ویرایش قرار بدم .
من واسه edit اینو می نویسم تا فیلد ها دوباره از بانک اطلاعاتشون پر بشه واسه image چی بنویسم .

begin

Adotable1.Edit;
ADOTable1.FieldByName('code').AsString:=MaskEdit1. Text;
image1.??????????????

میشه راهنماییم کنید اینم کد ارسال عکس

IF OpenPictureDialog1.Execute Then
begin

Image1.Picture.Bitmap.LoadFromFile(OpenPictureDial og1.FileName);
ADOTable1.Insert;
adoTable1.fieldbyname('file').asstring:=OpenPictur eDialog1.FileName;
end;

hentjanson

شنبه 04 اسفند 1386, 08:57 صبح

وقتی در بانک ذخیره شد .
بلاخره باید یک روز برنامه ویرایش شه اطلاعاتش چطور عکس در بانک رو چطور در image 1 صدا بزنم .