الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال و فكرة مهمة

بدأه barcaman17 في 13 يوليو 2012 · 4 رد · 778 مشاهدة · في قواعد بيانات Visual FoxPro
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

اخواني و اخواتي الاعزاء

اتمنى ان تكونوا بتمام الصحة

سؤال حيرني كثيرا ولم اجد له حلا يقنعني

السؤال/ لدي ملفين في احدهما عدد من الحقول تقريبا (60) حقل اود ان انقل هيكل هذه الحقول الى الملف الاخر من خلال كود برمجي فكيف الحل؟؟؟

تم تعديل هذه المشاركة بواسطة barcaman17 في 13 يوليو 2012 في 09:12

#2

السلام عليكم

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

اخي العزيز اسهل طريقة واسرعها

افتح الجدول في شاشة الاوامر او الكموند للفيجوال اكتب

Copy structure اسم الجدول الجديد

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

اليك المثال انسخ وضع الكود الاتي في ملف برنامج ثم احفظه في مجلد خاص وقم بالتشغيل ولاحظ الجدول

CREATE TABLE lion_iraq(name c(5),old n(5))
COPY STRUCTURE TO lion_iraq_new

تم تعديل هذه المشاركة بواسطة lion iraq في 13 يوليو 2012 في 15:38 — السبب: ارفاق مثال

#3
lion iraq كتب:

السلام عليكم

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

اخي العزيز اسهل طريقة واسرعها

افتح الجدول في شاشة الاوامر او الكموند للفيجوال اكتب

Copy structure اسم الجدول الجديد

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

اليك المثال انسخ وضع الكود الاتي في ملف برنامج ثم احفظه في مجلد خاص وقم بالتشغيل ولاحظ الجدول

CREATE TABLE lion_iraq(name c(5),old n(5))
COPY STRUCTURE TO lion_iraq_new

الابن العزيز

تحياتى

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

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

لذا ارجو تجربة البرنامج التالى

على اعتبار ان الملف الاول اسمه db1

والملف الثانى اسمه db2

لذلك اذار اردت تنفيذ البرنامج على ملفاتك يبقى غير الاسماء

********************

SET SAFETY off

SET DELETED ON

CLOSE ALL

USE db1.dbf

COPY STRUCTURE EXTENDED TO tmp

USE db2.dbf

COPY STRUCTURE EXTENDED TO tmp1

USE tmp EXCLUSIVE

APPEND FROM tmp1

GOTO top

DO WHILE NOT EOF()

fld=field_name

rec=RECNO()

DELETE ALL FOR field_name=fld AND RECNO()!=rec

LOCATE FOR RECNO()>rec

ENDDO

PACK

CREATE newdbf FROM tmp

USE newdbf

*فى حالة رغبتك فى استيراد البيانات الموجودة بالملف الاول

*APPEND FROM db1

*فى حالة رغبتك فى استيراد البيانات الموجودة فى الملف الثانى

*APPEND FROM db2

brow

tmp.rar

تم تعديل هذه المشاركة بواسطة alaaqasem في 14 يوليو 2012 في 10:24

#4

السلام عليكم تحياتي لك استاذ علاء

وعلى الاضافة المميزة

وانا قمت بالرد بالشي السهل والسريع لاني اعتقدت انه يريد نسخ هيكل التصميم جدول معين الى جدول او ملف ثاني

واذا كان نصف الرد على المشاركات يجعل المنتدى نار في مشاركاتك

فتحضر استاذنا المبدع

علي نصف وعليك الباقي بنفس الفكرة او بفكرة ثانية

تحياتي لك وللجميع وسلامي لباقي الاعضاء الغائبين

عسى ان يكونوا بتمام الصحة وسلامة الاهل والاصدقاء

#5

شكرا جزيلا للجميع وشكر خاص للخبير الاستاذ علاء

مواضيع مشابهة