السلام عليكم
في الفيجوال بيسك 6 إذا كان لدينا قاعدة بيانات
موجودة مثلا في المجلد DATA داخل دليل البرنامج
لكي نحدد مكانها نكتب الأمر التالي:
If Right(App.Path, 1) = "\" Then ap = App.Path + "DATA\" Else ap = App.Path + "\DATA\"
عندما نعمل للمشروع تحديث إلى الفيجوال بيسك نت يصبح الأمر كالتالي:
Dim ap As Object If VB.Right(VB6.GetPath, 1) = "\" Then ap = VB6.GetPath & "DATA\" Else ap = VB6.GetPath & "\DATA\" End If
كل هذا واضح...
لكن المشكلة هي أنني عندما أريد أن أعمل مشروع جديد و أحدد موقع القاعدة...
الأمر السابق يصبح غير معرف
و قد حاولت مرارا استنتاج الأمر الصحيح و لكنني فشلت......
فهل ممكن المساعدة لمعرفة الأمر الصحيح؟
:D سؤال ذكي صح؟؟ :D



