السلام عليكم
تحية طيبة اعضاء منتداي العزيز والمفضل

لدي سؤال وهو
لدي نافذه تحتوي على
1- الرقم التسلسلي
2- -الاسم
3- الباث
----------------------
علما ان خيه الباث سيكون فيها المسار افتراضي او كتابتا المهم عند النقر عليه من خلال النافذخ يفتح لي الملف او البرنامج فرضا اذا اذا كتبنا ملف الوورد ينفتح لنا ملف الوورد او كتبنا باث الصورة تنفتح لنا الصورة باي برنامج كان من خلال ال اي سي دي سي او برنامج اخر غير مهم لدي المهم ينفتح


علما ان احد الاخوه زودني بكد ولكنن للاسف لم يعمل لدي ولا اعلم ما المشكلة
راجين مساعدي
وهذا الكود الذي زودني به

declare
x varchar2(15)
begin
x : = 'c:\mariam\ ll : mariam.loma ll '.exe' ;
host (x);
end;


ولكن للاسف لم يعمل لدي هذا الكود

الاخت العزيزة
لن يتم فتح البرنامج باستخدام ذلك الكود
لانة لابد من وجود المسار الخاص بالبرنامج ثم اسمة مثل
host ('c:\program_files\office\word.exe c:\mariam.doc');
ولذلك عليك تخزين المسار بقاعدة البانات
سلام

الاخت العزيزة
لن يتم فتح البرنامج باستخدام ذلك الكود
لانة لابد من وجود المسار الخاص بالبرنامج ثم اسمة مثل
host ('c:\program_files\office\word.exe c:\mariam.doc');
ولذلك عليك تخزين المسار بقاعدة البانات
سلام

اخي العزيز هذا الكود كان كاتبة الاستاذ وكان يعمل ولكن حصل عندي خطا اثناء النقل والاستاذ اختفى ولم اراه بعد

اختي العزيزة حاولي تكبير قيمة المتغير x

اجعليها 30 بدلا من 15

اختي العزيزة حاولي تكبير قيمة المتغير x

اجعليها 30 بدلا من 15

انا اشكركم في البداية واعتذر عن ازعاجكم ولكن انتم اخوتي ومعيني الوحيد
اخواني
انا غيرت القيم ولكن عند نقري على
COMPILE
للتركر تظهر لي رسالة
ARROR 103 AT LINE 3, COLUMN 1
''BEGIN'' عند توقع التالي تم مواجهة الرمز
:=NOT NULL
DEFAULT CHARACTER

اعينوني اعانكم الله

والافضل ان تعطوني كد جديد لفتح لينك لا اكثر اريد كد فقط لفتح لينك
يعني كد لفتح ملف او برنامج وهكذا
واشكركم واسفة على الازعاج

اختي العزيزة حاولي تكبير قيمة المتغير x

اجعليها 30 بدلا من 15

انا اشكركم في البداية واعتذر عن ازعاجكم ولكن انتم اخوتي ومعيني الوحيد
اخواني
انا غيرت القيم ولكن عند نقري على
COMPILE
للتركر تظهر لي رسالة
ARROR 103 AT LINE 3, COLUMN 1
''BEGIN'' عند توقع التالي تم مواجهة الرمز
:=NOT NULL
DEFAULT CHARACTER

اعينوني اعانكم الله

والافضل ان تعطوني كد جديد لفتح لينك لا اكثر اريد كد فقط لفتح لينك
يعني كد لفتح ملف او برنامج وهكذا
واشكركم واسفة على الازعاج

اما من مجيب لوجه الله تعالى
اخواني اني محرجة بهذا الموضع فهل من معين

انا استخدم اوفيس 2007
وكتبت هادا الكود واشتغل

HOST('C:\Program Files\Microsoft Office\Office12\WINWORD.EXE F:\GBT_SYS\CERTIFICATE.DOC');

السلام عليكم ورحمة الله وبركاته بالنسبة لتشغيل ملف وورد هذا هو الكود منقول عن الاخ حسين عبد الله احمد

DECLARE
-- Declare the OLE objects
MyApplication OLE2.OBJ_TYPE;
MyDocuments   OLE2.OBJ_TYPE;
MyDocument    OLE2.OBJ_TYPE;
MySelection   OLE2.OBJ_TYPE;

-- Declare handle to the OLE argument list
args OLE2.LIST_TYPE;

BEGIN
-- Create the Word.Application object and make Word visible
-- by setting the 'Visible' property to true
MyApplication := OLE2.CREATE_OBJ('Word.Application'); 
OLE2.SET_PROPERTY(MyApplication, 'Visible', 1);

-- get a handle on Documents collection
MyDocuments:= OLE2.GET_OBJ_PROPERTY(MyApplication, 'Documents');

-- Add a new document to the Documents collection
Mydocument := OLE2.INVOKE_OBJ(MyDocuments, 'Add');

-- Get a handle on Selection object
MySelection:=OLE2.GET_OBJ_PROPERTY(MyApplication, 'Selection');

-- Insert the text 'Hello Word97!' into word document
OLE2.SET_PROPERTY(MySelection, 'Text', 'Hello Word97!');

-- Save the document to the filesystem as EXAMPLE.DOC
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, 'C:\DOCS\EXAMPLE.DOC');
OLE2.INVOKE(MyDocument, 'SaveAs', args);
OLE2.DESTROY_ARGLIST(args);

-- Close the document
OLE2.INVOKE(MyDocument, 'Close'); 

-- Release the OLE objects
OLE2.RELEASE_OBJ(MySelection);
OLE2.RELEASE_OBJ(MyDocument);
OLE2.RELEASE_OBJ(MyDocuments);
OLE2.RELEASE_OBJ(MyApplication);
END;

تم تعديل 23 ديسمبر 200817 سنة بواسطة مصعب اسامة