(حذف البيانات من الجدول عند الربط)VB6 + FoxPro

السلام عليكم 

اخي الكريم تم تعديل العنوان ليكون اكثر ايضاح للمحتوى

 بخصوص حذف قيد من الجدول باستخدام الفيجوال فوكس برو هي

delete
واذا اردنا حذف القيد نهائيا نستخدم بعد الايعاز الاول الايعاز
pack

 اما عن موضوعك

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

وتكون قاعدة البيانات للفيجوال فوكس برو  مضيفه للفيجوال بيسك

تحياتي للجميع "وسوف يتم النقل الموضوع لقسم الفيجوال بيسك "

طيب ممكن حضرتك تمنحني مثال علي pack وطريقة تركيبها البرمجية ؟؟؟

ملحوظة : الموضوع ليس له علاقة بفيجوال بيزيك 6.0 لكنه بالفعل يتحدث عن FoxPro !!!

فهناك جملة إستعلام تساعد علي حذف السجلات وهي كما يلي :

Delete From TableName Where Condation

وهذه الطريقة متبعة مع :

Access

SQL Server

Oracle

DB2

وكذلك FoxPro

لكنني أري أن الـ FoxPro لا يحذف نهائياً بهذا الأمر Delete ،،، لكن يتطلب أمر الـ Pack لإجراء تلك العملية النهائية

ولكن هذا الأمر للأسف متاح فقط داخل الـ FoxPro ولا يقدر الـ Visual Basic 6.0 بتنفيذ هذا الأمر مباشرتاً عن طريق

الأدوات المتحاله له مثل ADO !!!

نفس الكلام ينطبق علي SQL Server ولكن هناك إجرائات تساعد لغات البرمجة علي تطبيقها مثل :

Call SP_Execute_Sql 'Delete From TableName'

فهل هناك أجراء يساعدني علي تنفيذ الأمر Pack للفوكس برو من فيجوال 6.0 ؟؟؟

مثلاً مثلاً لو هنقول أن هناك أمر يدعي  Execute داخل الفوكس برو يساعد علي كتابة أوامر نصية بداخلة ويقوم بتطبيقها كما يفعل الـ SQL Server مع لغات البرمجة .... مثال :

Execute 'Pack'

السلام عليكم

اخي العزيز نلجا الى الربط مع قواعد بيانات اخرى ويكون السبب في امتيازات ما تقدمهُ هذا القاعدة

ولتطبيق الاوامر والدالات على القاعدة بواسطة اللغه المربطة اليها

اي اذا استخدمنا vb6  والقاعدة vfp  يكون استخدام الايعازات vb6

او استخدمنا قواعد بيانات الاوراكل مع الفيجوال فوكس برو  هل تعتقد استخدام اوامر للتعامل مع القاعدة هي للوراكل ام الفيجوال فوكس برو ؟

وعلى حد معرفتي البسيطة بلغة vb6  ان ايعاز الحذف يكون بالشكل    DATA1.RECORDSET.DELETE

اما عن سوالك لهيكلية استخدام PACK  في الفيجوال فوكس برو

SELECT MYTABLE

DELETE

PACK

وارجو من مشرف القسم الرد عليك لوضع الاجابة المناسبة باعتبار الموضوع من اختصاص القسم

أستاذي الكريم ،،، فيجوال بيزيك 6.0 يعتمد علي مكتبة تدعي ADO وهي أداة كل وظيفتها إرسال جمل SQL لمدير إدارة قواعد البيانات DBMS ومن ثم ينفذ هذا المدير تلك الأوامر المسلة !!!

مثال :

Cn.Execute "Insert Into Emp(ENo,EName) Values(1,'Mostapha')"
Cn.Execute "Update Emp Set EName = 'Ahmed' Where ENo = 1"
Cn.Execute "Delete From Emp Where ENo = 1"

إذاً ،،، فأنا فقط أرسل الأوامر لمدير إدارة قواعد البيانات DBMS في صورة جمل SQL ليطبقها بنفسة !!!!

تعالي ننظر لـ FoxPro !!!

أحببت أحذف سجل كتبت الجملة التالية :

Cn.Execute "Delete From Emp Where ENo = 1"

الجملة نفذت بتفوق ،،، ولكن عندما حاولت أنفذ الجملة التالية عرضت ليا رسالة خطأ :

Cn.Execute "PACK"

والرسالة الخطأ هي :

File must be opened exclusively.

طيب هبسط لحضرتك الموضوع !!!

هل هناك طريقة تساعد علي ضغط قاعدة البيانات كما نفعل مع أكسيس ؟؟؟

السلام عليكم ..

جرب :

Cn.Execute "Delete From Emp Where ENo = 1"
Cn.Execute "PACK  Emp "

لكن يجب أن لا يكون الـــ Cn  قد قام بأي عملية SELECT , و إذا كنا قد قمنا بعملية SELECT  نقوم بإغلاقه و فتحه مرة أخرى .

Visual FoxPro Driver - Pack Error

أشكركم جميعاً ،،، والحمد لله عرفت سبب عدم تنفيذ الأمر لدي وهي كما أخبرتني أستاذ houssam11350_11350 ،،، فكان من الواجب علي أغلاق كائن الإتصال ومن ثم فتحة من جديد لتنفيذ المهمة ،،، وتوصلت لعمل إجراء لضغط جدول ما بقاعدة البيانات ،،، وهي كما يلي :

Private Sub CompressTable(vTableName As String)
On Error GoTo ExitError
    Dim strConnection As String
    
    ''1- معرفة نص الإتصال السليم
    strConnection = Cn.ConnectionString
    
    ''2- غلق الإتصال وإعادة فتحة من جديد
    Set Cn = Nothing
    Set Cn = New ADODB.Connection
    Cn.Open strConnection

    ''3- تنفيذ أمر الحذف لكل البيانات المخفية
    Cn.Execute "Set Exclusive On", , adCmdText
    Cn.Execute "Select * from " & vTableName
    Cn.Execute "Pack", , adCmdText
    Cn.Execute "Set Exclusive Off", , adCmdText
    
    ''4- غلق الإتصال وإعادة فتحة من جديد
    Set Cn = Nothing
    Set Cn = New ADODB.Connection
    Cn.Open strConnection
    Exit Sub
ExitError:
    MsgBox Err.Number & ": " & Err.Description, vbOKOnly + vbExclamation, "Error"
End Sub

شكراً مرة أخري لمتابعتكم الكريمة

وأكثر الله من أمثالكم

لكن ممكن سؤال أخير ؟؟؟

أنا كل هدفي جدول واحد فقط ليس أكثر من ذلك

قمت بصناعة جدول مكون من 3 ملفات :

emp.CDX

Emp.DBF

emp.FPT

فهل هناك طريقة تجعلة ملف واحد ؟؟؟

وهل هناك طريقة تساعدني علي تغيير أمتداداتهم ،،، مثلاً :

Emp.dat

؟؟؟

وكيف يمكنني عمل جدولين منفصلين ،،، وعمل علاقة بينهم ؟؟؟

MMA_EG_Cairo كتب:

أستاذي الكريم ،،، فيجوال بيزيك 6.0 يعتمد علي مكتبة تدعي ADO وهي أداة كل وظيفتها إرسال جمل SQL لمدير إدارة قواعد البيانات DBMS ومن ثم ينفذ هذا المدير تلك الأوامر المسلة !!!

 

مثال :

 

Cn.Execute "Insert Into Emp(ENo,EName) Values(1,'Mostapha')"
Cn.Execute "Update Emp Set EName = 'Ahmed' Where ENo = 1"
Cn.Execute "Delete From Emp Where ENo = 1"

 

إذاً ،،، فأنا فقط أرسل الأوامر لمدير إدارة قواعد البيانات DBMS في صورة جمل SQL ليطبقها بنفسة !!!!

 

تعالي ننظر لـ FoxPro !!!

 

أحببت أحذف سجل كتبت الجملة التالية :

 

Cn.Execute "Delete From Emp Where ENo = 1"

 

الجملة نفذت بتفوق ،،، ولكن عندما حاولت أنفذ الجملة التالية عرضت ليا رسالة خطأ :

Cn.Execute "PACK"

 

والرسالة الخطأ هي :

File must be opened exclusively.

 

 

طيب هبسط لحضرتك الموضوع !!!

هل هناك طريقة تساعد علي ضغط قاعدة البيانات كما نفعل مع أكسيس ؟؟؟

اخي العزيز

الموضوع ليس صعبا لتبسطهُ لي 

ذكرت لك عند الربط مع قاعدة فان القاعدة تخضع لطرق اللغة المربوط اليها "وهذا ما اعرفهُ"

واوامر الذي ذكرتها انت ليست اوامر فيجوال فوكس برو ولكن هنالك اوامر تشابه مع بعض اللغات والربط المشترك بين اللغات هي sql 

لاحظ انت الطريقة والايعازات هل هي للفيجوال فوكس برو ام للفيجوال بيسك؟

مثلا

في الفيجوال فوكس برو 

select * from tab

وعندما يكون بالصيغة

select * from tab;

يكون الايعاز للوراكل 

ورساله الخطا تفيد لك في انه يجب اليكون العمل على الجدول مباشراً وليس كشير

في فيجوال فوكس برو استطيع الحذف الكلي مع وجود select 

select ctable1

delete 

pack

المهم وجدت الحل والحمد لله

اما عن طرق ضغط او تشفير القاعدة او قفلها 

في الفيجوال فوكس برو 

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

تحياتي لك وللجميع

لك وجهه نظرك وليا وجهه نظري !!

فأنا تعاملت مع DAO, RDO, ADO, ADO.Net ،،، وأعلم جيداً أنهم بالفعل لهم أستخداماتهم الخاصة ،،، ولكنهم في الأساس هم مجرد منفذ أوامر لجمل الإستعلام لنوع قاعدة البيانات المربوط بينهم ،،، فمثلاً :

Access :

Select Format(BDate, 'yyyy/mm/dd') as Dat From Emp



Oracle :

Select To_Char(BDate, 'yyyy/mm/dd') as Dat From Emp

وكلا الجملتين يتم تنفيذهم بهذا الشكل :

Cn.Execute "Input Query"

لذلك لو لاحظت في طريقة الحل ستجدها FoxPro كاملاً ،،، ولكن للأسف الفوكس برو له قيود وتم حلها بحمد الله !!!

علي كل حال أشكرك مجدداً علي المساعدة ،،، وجزاك الله كل خير

MMA_EG_Cairo كتب:

لك وجهه نظرك وليا وجهه نظري !!

 

فأنا تعاملت مع DAO, RDO, ADO, ADO.Net ،،، وأعلم جيداً أنهم بالفعل لهم أستخداماتهم الخاصة ،،، ولكنهم في الأساس هم مجرد منفذ أوامر لجمل الإستعلام لنوع قاعدة البيانات المربوط بينهم ،،، فمثلاً :

 

 

Access :

Select Format(BDate, 'yyyy/mm/dd') as Dat From Emp



Oracle :

Select To_Char(BDate, 'yyyy/mm/dd') as Dat From Emp

 

وكلا الجملتين يتم تنفيذهم بهذا الشكل :

 

 

Cn.Execute "Input Query"

 

لذلك لو لاحظت في طريقة الحل ستجدها FoxPro كاملاً ،،، ولكن للأسف الفوكس برو له قيود وتم حلها بحمد الله !!!

 

علي كل حال أشكرك مجدداً علي المساعدة ،،، وجزاك الله كل خير

اخي العزيز  اتمنى ان لاتجد في نقاشي معك غير النقاش العلمي وتبادل الاراء

وكما قلت بما يخص وجهات النظر وهذا مايميز  البرمجة ولاختلاف الاراء يكون تبادل الخبرات

وكما قلت جميع عمليات الربط تخضع لعمل sql  من استعلام وتحديث واضافه

والفوكس برو يعتمد في اكثر الاحيان على لغة sql  او لغة الاستعلام ولكن لكل لغة صيغة في تنفيذها لاحظ مثالك عن الاكسس والاوراكل وهنا ملاحظة عند الاوراكل لغة الاستعلام لا تنفذ الابعد ان يكون في اخر الجمله الرمز ";"

وهنالك فرق بين نسخة واخرى للفيجوال فوكس برو في تطبيق لغة الاستعلام فالنسخة السابعة تختلف في عدد من الصيغ باستخدام الاستعلام بـsql  عن النسخة التاسعة

وانت ذكرت "لكن للأسف الفوكس برو له قيود وتم حلها بحمد الله" ارجو لتوضيح اكثر لي واذا لم يتعبك ذكر القيود وكيف تم حلها ؟

ولهذا نقلت لك الموضوع الى هذا القسم العزيز ووجدت الحل اليس كذلك

لان موضوعك كان يعتمد على ضيغة لغة الاستعلام معها

وللتوضيح اكثر  اطلع ان حبيت على صيغة الربط في الفيجوال فوكس برو مع القواعد الاخرى في موضوع الاخ العزيز شادو المثبت /index.php/topic/191455-التعامل-مع-قواعد-البيانات-الاخرى-sql-–-mysql-–-mdb-من-خلال/?p=957547

ويااخي العزيز صحيح هنالك اوامر طبق الاصل للفيجوال فوكس برو ولكنها بصيغة تختلف عنه

مثلا هذا صيغة اضافه بطريقة sql عن طريق استخدام insert

Insert Into Emp(ENo,EName) Values(1,'Mostapha')

ولكن هذة الصيغة

Cn.Execute "Insert Into Emp(ENo,EName) Values(1,'Mostapha')"

ليس للفيجوال فوكس برو  ولكن نعم الطريقتين تعتمد على لغة الاستعلام

وخير مثال لك وكما ذكرت لا يتم التنفيذ لغة الاستعلام في الاوراكل الا باضافة ";" بعد نهاية الجمله

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

أستاذي الكريم أنا لم أقصد شيء ،،، فأنا كل ما أراه لحل المشكلة من أتجاه قاعدة البيانات ،،، لكن بخصوص التعامل مع الـ ADO فكما أخبرت حضرتك هو منفذ أوامر ....... وسؤالي كان متعلقاً بفيجوال فوكس برو كقاعدة بيانات وكيفية حل المشكلة ... أما عن أوراكل أو أكسيس فحديثنا ليس له علاقة بأوراكل أو سيكوال !!!

أما بخصوص الجملة التالية (Cn.Execute "Insert Into Emp(ENo,EName) Values(1,'Mostapha')") ،،، فراقبها جيداً !!!

كائن الـ ADO يتضمن مكتبة داخلية تدعي Connection ،،، وهذه المكتبة تتضمن إجراء يدعي Execute ،،، وهذا الإجراء ما عليه إرسال جملة الإستعلام لقاعدة البيانات لتنفيذها ،،، وتركيبتها كما يلي :

Cn.Execute "<Enter Query>"

إذاً ،،، فهو مجرد منفذ أوامر مثل الـ Command.com ولكن لجمل الإستعلام !!!

حديثي ببساطة شديدة كان عن الـ FoxPro ،،، وهذا ما أحببت أن أوضحه لحضرتك

عموما أنا آسف وأتمني أن تكون فهمت وجهه نظري كنوع من التبادل العلمي

شكراً لك ،،، وسعدت كثيراً بمعرفة حضرتك

السلام عليكم 

اخي العزيز اتمنى انك تفهم قصدي وهو بسيط جداُ 

انهُ اي قاعدة بيانات تقوم باتصال مع لغة تخضع هذة القاعدة لضوابط هذة اللغة

مثال  اذا ربطت قاعدة بيانات ما بلغة فيجوال بيسك تخضع لاوامر الاتصال الخاصة به كما ذكرت 

Cn.Execute "<Enter Query>"

واذا طبقنا هذة الايعازات او الاوامر في الفيجوال فوكس برو واذا كان متصل بقواعده (يمكن اتصال قواعد بيانات او جداول  فيجوال فوكس برو بالفيجوال فوكس برو نفسة)

او بقواعد اخرى مثل اوراكل او سكول او اكسس او الاكسل  وغيرها لا تعمل هذة الايعازات او الاوامر 

وانما تعمل عند استخدام SQLEXEC  لاحظ الهيكل البرمجي للامر الخاص بارسال التعليمات للقواعد المتصلة او المربوطة 

SQLEXEC(lnHandle, "SELECT <long list of fields> " + ;

   "FROM <several tables> " + ;

   "WHERE <complex filter expression>")

اما عن ذكري للاوراكل وغيرها هو للتوضيح فقط

تحياتي لك وتشرفت بمعرفتك

السلام عليكم ورحمة الله وبركاته

أستاذ MMA_EG_Cairo

بعد أن حُلّت مشكلة الـ Pack لديك أتمنى أن تطلع على آلية عمل هذا الأمر خاصة ان كان برنامجك موجهاً للاستخدام من قبل أكثر من مستخدم

راجع مشاركة رقم  10  في هذا الموضوع

/index.php/topic/203307-qu-about-grid/?p=1011502

وباختصار فهذا الأمر أساسي ان تعلق الموضوع بعمليات صيانة الجداول واعادة الفهرسة وحذف السجلات بشكل دائم، ويحتاج استخدامه لفتح الجدول بشكل حصري من قبل المستخدم

فاذا لم يكن الموضوع متعلق بصيانة الملفات، والمطلوب هو اخفاؤها فقط

فانظر لأمر Deleted المرافق للـ Connection String  هنا... http://www.connectionstrings.com/visual-foxpro

وبالنسبة للثلاثة أنواع من الملفات التي ذكرتها فهي :

DBF    الجدول الاساسي

CDX    الفهرس التابع للجدول الاساسي، ولا بد من وجوده ان قمت بعمل Index لأحد الحقول

FPT    ملف مساعد للجدول الاول يتم انشاؤه تلقائيا ان كان نوع أحد الحقول Memo أو General

ولا يمكن تضمينها في ملف واحد نهائياً

انما يمكن احتواؤها ضمن قاعدة بيانات بامتداد DBC

ومع ذلك تبقى ظاهرة كما هي

مع التحية للجميع

شكراً لحضرتك ،،، لكن واجهتني مشكلة أخري !!!

لما الفوكس برو لا يعمل مع Windows 7 ؟؟؟؟

فهناك بروتوكولات لم تكن موجوده بـ ODBC مثل :

DBase *.dbf

Microsoft DBase Driver *.dbf

Microsoft Fox Pro Driver

هل لديك حلاً ؟؟؟

السلام عليكم ..

1. ربما انت بحاجة لتثبيت (Microsoft OLE DB Provider for Visual FoxPro 9.0) رابط . و لكن في الــ System requirement  لم يذكروا  Windows 7  ...!!!
2. إذا كنت تعمل على فيجوال استديو , اختر ترجمة المشروع x86  بدلا من x64  .

أنا فعلاً حملت البرنامج وحاولت أشتغل عليه في Windows 7 x64 ،،،، ولم يعمل !!!!

وللأسف ،،، لازم أهيأ عملي ليعمل علي كل المنصات

فأنا أبحث دائماً عن ذلك !!!

السلام عليكم ...

ارجو أن يكون مفيدا ...

كيف أجعل البرنامج يعمل على نظام تشغيل 64 بت

السلام عليكم

بالنسبة للـ OLE DB Provider فهو يعمل على W7 بلا مشاكل،

وعلى ما يبدو أن المشكلة في موضوع الـ 64Bit

بالبحث قليلا:

يبدو أن MS تترك دعم Ole وتتجه للـ ODBC

http://blogs.msdn.com/b/sqlnativeclient/archive/2011/08/29/microsoft-is-aligning-with-odbc-for-native-relational-data-access.aspx

وأن هذا الموضوع يسبب مشكلة للجميع، واستطاع البعض حلها حسب طريقة الأخ حسام

بصراحة لا يوجد  لدي 64Bit بالوقت الحالي لأجرب أي شيء وأفيدك بشكل أكثر من هذا

ولكن أثار اهتمامي موضوع odbcad32.exe الذي يوجد بنسختين على اجهزة الـ 64 واحدة تخص 32 والاخرى تخص 64

أتمنى أن تصل لحل...وتفيدنا معك

ودمتم..

بس أنا شغال علي الـ OLE DB مع 64Bit ؟؟؟

وعلي حد علمي أن الـ ODBC غير موجود مع 64Bit خصوصاً مع FoxPro !!!

لكن لما مثلاً أحاول أتعامل مع الـ OLE DB للربط مع الـ FoxPro أجد رسالة خطأ تقول أن بروفيدر ODBC غير موجود !!!

نص الإتصال من خلال ODBC كما يلي :

Cn.Open "Provider=MSDASQL;Driver={Microsoft Visual FoxPro Driver};SourceDB=" & strPath & ";SourceType=dbf"

مبدئياً معلومة أنه يعمل على الـ 64bit جيدة....ولا توافق ما قرأت عنها

لذلك لن ينفع أن أضيف أي معلومة ما لم أجرب بيدي على 64bit....

أوافيك هنا باذن الله....اذا تمكنت من هذا غداً

شكراً لحضرتك

MMA_EG_Cairo كتب:

شكراً لحضرتك ،،، لكن واجهتني مشكلة أخري !!!

 

لما الفوكس برو لا يعمل مع Windows 7 ؟؟؟؟

 

 

فهناك بروتوكولات لم تكن موجوده بـ ODBC مثل :

 

DBase *.dbf

Microsoft DBase Driver *.dbf

Microsoft Fox Pro Driver

 

 

هل لديك حلاً ؟؟؟

السلام عليكم

اخي الكريم كما سبقني الاعضاء في الشرح الجميل  والتوضيح

فيجوال فوكس برو وبنسختة التاسعه خاصة يعمل بجميع الانظمة

فانا حاليا اعمل عليه ونظام windows 8

وقبلها w7 بنوعيه

ولكن المشاكل الحاصل مع النسخ السابقه لهُ وفي بعض الاحيان مع التاسعه والسبب يكون في امتداد المجلد الرئيسي "C:\Program Filesx86\Microsoft Visual FoxPro 9" حيث يكون هنا

والايعازات للنظام يبحث هنا "C:\Program Files\Microsoft Visual FoxPro 9"

ولتجاوز هذة المشكلة شغل قبل  التثبيت ملف التثبيت بصيغة مدير  run as admin.....  واذا كان موجود فعلاً قم بتشغيلهُ كــ مدير ومنهم من يشغلهُ في بيئة وندوز قديم

من خلال خصائص الملف الرئيسي ومن على التبويب لتوافق يختار الوندوز او بيئة الوندوز

والسلام عليكم ورحمة الله