PDA

View Full Version : کمک در مورد باز کردن یک سند WORD از برنامه



mohs1592002
دوشنبه 18 اردیبهشت 1391, 15:14 عصر
سلام
من میخوام یک فیل ورد رو از برنامم اجرا کنم

"توضیح بیشتر:
یوزر با استفاده از برنامهOpenFileDialog یک فایل (doc or docx) انتخاب کرده و اون فایل بصورت string به database میره بعد در مرحله مشاهده ، مسیر اون فایلی رو که انتخاب کرده بصورت یک Link Lable میبینه.
حال مشکل اینه که میخوام یوزر با کلیک روی اون لینک همون فایل رو در برنامه مادرش(یعنیWinWord) مشاهده کنه راه هایی رو میدونم مثلا

process.start("winword","c:\test.doc")
ولی همونطور که مستحضرید این دستور برای من کارایی نداره چرا که قسمت آدرس(c:\test.doc) در این دستور ثابته ولی با OpenFileDialog یوزر می تونه از هر جایی فایل انتخاب کنه"

از دوستان اگه کسی میتونه لطفا راهنمایی کنه:لبخندساده:
در ضمن من کاملا آماتورم:خجالت:

ROSTAM2
دوشنبه 18 اردیبهشت 1391, 16:10 عصر
یک فیل ورد :لبخند:

منظورت و متوجه نشدم
اون فایل بصورت string به database میره، فایل که انتخاب شده ، شما اگه آدرس فایل رو وارد db کنید

به جای آدرس(c:\test.doc) می تونی آدرس ذخیره شده رو استفاده کنی

hakim22
دوشنبه 18 اردیبهشت 1391, 16:14 عصر
حقیقتش یکی از اولین اصول برنامه نویسی کار با متغیرهاست که شما لازمه یکمی در موردش بیشتر تمرین کنید.

از openfiledialog.filename استفاده کنید و اونو به یک متغیری به نام مثلا myFileName بریزید .
بعد خط آخر رو به صورت زیر تغییر دهید :

dim myfilename as string
myfilename=openFileDialog1.FileName
process.start("winword",myFileName(

mohs1592002
دوشنبه 18 اردیبهشت 1391, 19:04 عصر
واقعا باید بیشتر تمرین کنم !
این کدی که HAKIM22 نوشتند در واقع زمانی جواب میده که همون لحظه با OpenFileDialog فایل رو انتخاب کنی در غیر اینصورت نه!
اون چیزی هم که ROSTAM میگن درسته ولی متاسفانه هر کاری میکنم نمیتونم (بلد نیستم) از OleDbDataReader استفاده کنم.
در واقع در گرفتن مقدار از table مربوط به database مشکل دارم

Dim selectSql As String
selectSql = "Select link from table1 where shom = '" & sabt.Text & "'"
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\ED.mdb")
con.Open()
dr = cmdSelect.ExecuteReader
Dim myfilename As String = dr.Read()
Process.Start("winword", myfilename)

Hybrid
دوشنبه 18 اردیبهشت 1391, 21:07 عصر
سلام ، :لبخندساده::لبخندساده: !

mohs1592002
دوشنبه 18 اردیبهشت 1391, 22:57 عصر
سلام ، :لبخندساده::لبخندساده: !
سلام
من با VB.net 2008 کار میکنم و فکر کنم این سورس که شما گذاشتین ورژنش بالاتره.
البته میتونم کدهاش رو باز کنم ولی solution باز نمیشه که کامل اجراش کنم.
میتونید با vb.net2008 بذارین

Hybrid
سه شنبه 19 اردیبهشت 1391, 17:04 عصر
سلام
من با VB.net 2008 کار میکنم و فکر کنم این سورس که شما گذاشتین ورژنش بالاتره.
البته میتونم کدهاش رو باز کنم ولی solution باز نمیشه که کامل اجراش کنم.
میتونید با vb.net2008 بذارین

نسخه جدید ویژوال استودیو هم داره میاد شما دارین از نسخه 2008 استفاده میکنین !!

solution رو اجرا نکن برو داخل پوشه پروژه و فایل اصلی پروژه رو اجرا کن.اگه notepad++ داری هم میشه راحت کد ها رو دید.

متاسفانه ویژوال استودیو 2008 رو ندارم .