السلام عليكم
اخواني و اخواتي الاعزاء
اتمنى ان تكونوا بتمام الصحة
سؤال حيرني كثيرا ولم اجد له حلا يقنعني
السؤال/ لدي ملفين في احدهما عدد من الحقول تقريبا (60) حقل اود ان انقل هيكل هذه الحقول الى الملف الاخر من خلال كود برمجي فكيف الحل؟؟؟
السلام عليكم
اخواني و اخواتي الاعزاء
اتمنى ان تكونوا بتمام الصحة
سؤال حيرني كثيرا ولم اجد له حلا يقنعني
السؤال/ لدي ملفين في احدهما عدد من الحقول تقريبا (60) حقل اود ان انقل هيكل هذه الحقول الى الملف الاخر من خلال كود برمجي فكيف الحل؟؟؟
تم تعديل هذه المشاركة بواسطة barcaman17 في 13 يوليو 2012 في 09:12
السلام عليكم
اخوتي الاعزاء قرات جميع مشاركاتكم ولكني حاليا استطيع الرد على هطة المشاركة فقط كوني استخدم الموبايل الان
اخي العزيز اسهل طريقة واسرعها
افتح الجدول في شاشة الاوامر او الكموند للفيجوال اكتب
Copy structure اسم الجدول الجديد
تحياتي للجميع
اليك المثال انسخ وضع الكود الاتي في ملف برنامج ثم احفظه في مجلد خاص وقم بالتشغيل ولاحظ الجدول
CREATE TABLE lion_iraq(name c(5),old n(5)) COPY STRUCTURE TO lion_iraq_new
تم تعديل هذه المشاركة بواسطة lion iraq في 13 يوليو 2012 في 15:38 — السبب: ارفاق مثال
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
تم تعديل هذه المشاركة بواسطة alaaqasem في 14 يوليو 2012 في 10:24
السلام عليكم تحياتي لك استاذ علاء
وعلى الاضافة المميزة
وانا قمت بالرد بالشي السهل والسريع لاني اعتقدت انه يريد نسخ هيكل التصميم جدول معين الى جدول او ملف ثاني
واذا كان نصف الرد على المشاركات يجعل المنتدى نار في مشاركاتك
فتحضر استاذنا المبدع
علي نصف وعليك الباقي بنفس الفكرة او بفكرة ثانية
تحياتي لك وللجميع وسلامي لباقي الاعضاء الغائبين
عسى ان يكونوا بتمام الصحة وسلامة الاهل والاصدقاء
شكرا جزيلا للجميع وشكر خاص للخبير الاستاذ علاء