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

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

مغلق
بدأه egypt_man في 18 فبراير 2007 · 23 رد · 3,022 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

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

يارب تقدروا تساعدوني

وشكرا

تم تعديل هذه المشاركة بواسطة egypt_man في 18 فبراير 2007 في 20:46

zsO56863.jpg
#2

ممكن توضح شل مطلوب بالضبط لكي لا نتعب انفسنا بالاجابة وفي النهاية لا تكون المطلوبه

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#3

انا عاوز أحط اي أداة من أدوات الجداول

flexgrid مثلا

ومنها اعمل حاجة شبه ال access

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

وكل ما يكتب صف يظهر صف جديد في أخر الجدول عشان لو عاوز يكتب صف جديد

انا حاولت اعمل الحكاية دي بس flexgrid مابيخليش المستخدم يكتب البيانات فيه

ياريت اكون وضحت الموضوع شوية

هو عامة شبه الأكسس

لما تفتح جدول وتكتب بيانات فيه

zsO56863.jpg
#4

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

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

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

مصطفى زيداني

#5

شكرا اخي mostafazidani

لكن الخاصية additem دي لو انا من خلال الكود اللي هاضيف صفوف

لكن اللي انا عاوزه هو ان المستخدم اللي يكتب جوه الجدول مباشرة مش شرط بال flexgrid

ممكن لو في أي أداة تانية تسمح بالموضوع ده

zsO56863.jpg
#6

ياريت حد يرد عليا

zsO56863.jpg
#7

ايه يا جماعة

انت سيبتوني لوحدي ليه

تم تعديل هذه المشاركة بواسطة egypt_man في 20 فبراير 2007 في 16:58

zsO56863.jpg
#8

الأخ الفاضل ...

أرجوا ان يساعدك هذا المثال فى ما تريد إنجازه

بأستخدام (MS-VB 6.0)

DatabaseGrid.zip

وهو يعتمد على أستخدام الأداة (Microsoft DataGrid Control 6.0) ملف "MSDATGRD.OCX"

شكراً

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible

#9

الف شكر Eng. Usama El-Mokadem

انا جربت المثال وشغال كويس قوي

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

بس هو شكله سهل

والف 100 مليون شكر ليك

zsO56863.jpg
#10

اول مشكلة تقابلني يا أخي الكريم

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

وللأسف ظهرت الرسالة دي

INVALID USE OF NEW KEYWORD

وبعدها علملي على السطر ده

Dim conn As New Connection

zsO56863.jpg
#11
egypt_man كتب:
اول مشكلة تقابلني يا أخي الكريم

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

وللأسف ظهرت الرسالة دي

INVALID USE OF NEW KEYWORD

وبعدها علملي على السطر ده

Dim conn As New Connection

الأخ الفاضل ...

لأنك نسيت أن تضيف مرجع قواعد البيانات ( Microsoft ActiveX Data Objects)

post-98027-1172014498_thumb.jpg

شكراً

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible

#12

أخي Eng. Usama El-Mokadem

انا كنت ضايف Microsoft ActiveX Data Objects

وكانت مابتشتغلش

بس كنت ضايف برده

Microsoft DAO 3.51 Object Library

ولما شلته أشتغل عادي

هل في تعارض بينهم وماينفعش أحطهم الأثنين في مشروع واحد؟

لأني لما جربت لاحظت إن اللي بتنضاف الأول هي اللي بتشتغل والتانية مش بتشتغل

يعني لو اضفت ال Microsoft DAO 3.51 Object Library الأول وبعدها Microsoft ActiveX Data Objects ال DAO تشتغل

اما لو العكس فال ActiveX Data هي اللي بتشتغل

ياريت لو في تعارض بينهم ممكن تقولي هل ممكن أشغل المثال ده بال Microsoft DAO 3.51 Object Library

ولا لازم احول البرنامج بتاعي كله يشتغل بال Microsoft ActiveX Data Objects

اسف على إزعاجك بأسألتي والف شكر ليك

zsO56863.jpg
#13

ايه يا أخي انت زهقت منى ولا أيه

zsO56863.jpg
#14

الأخ الفاضل ...

معذرة - فلم ارى مشاركتك سوى الان

يمكنك استعمال اى منهما والاسهل لك بناءاً على استخدامك السابق للبرنامج، بالنسبه لى غالباً باستخدم Microsoft ActiveX Data Objects بدون مشاكل

شكراً

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible

#15

مشكور أخي بس ياريت لو تقدر تديني مثال

لأني بحاول اعملها لكن مش قادر خالص

او حتى تقولي على الغلط في الكود ده


Dim RS As Recordset
Set db = DBEngine.OpenDatabase(App.Path & "\data.mdb", False, False, ";pwd=12345")
Set RS = db.OpenRecordset("select * from table1")
Set DataGrid1.DataSource = RS
Dim db As Database

zsO56863.jpg
#16

up

zsO56863.jpg
#17

up

zsO56863.jpg
#18

الأخ افاضل ...

إذا أردت أن تستخدم الأثنين معاً (ADO & DAO) ، فلتعريف الـ (ADO) أستخدم التالى:

Dim conn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset

ولتعريف الـ (DAO) استخدم التالى:

Dim conn2 As DAO.Connection
Dim rs2 As DAO.Recordset

لاحظ أن (ADO) اختصار لـ (ActiveX Data Objects)، فأغلب أدوات الـ (ActiveX) تتعامل فقط مع ADO

شكراً

تم تعديل هذه المشاركة بواسطة Eng. Usama El-Mokadem في 24 فبراير 2007 في 21:15

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible

#19

شكرا لك أخي الكريم

وأرجو ان لا اكون ازعجتك بأسألتي

للعلم الكود الثاني الخاص ب dao

لم يعمل معي بحاله ولكن عندما مسحت كلمة new

Dim conn2 As DAO.Connection
Dim rs2 As DAO.Recordset
zsO56863.jpg
#20

الأخ الفاضل ...

أرجوا التوضيح أكثر، الحقيقه انا مش فاهم أنت تقصد ايه فى أخر رد؟؟؟؟

ممكن تحدد أيه المطلوب بالظبط، أقصد ايه المشلكه؟ يعنى عاوز تعمل ايه ومش نافع معاك، أو عاوز تعمل ايه ومش عارف؟؟؟

شكراً

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible

#21

اسف يا أخي

الغلطة من عندي انا

الكود اللي انت كاتبه شغال

وشكرا على تعبك

zsO56863.jpg
#22

ياريت لو ماكنش فيها غلاسة مني

لو ممكن طريقة تانية تكون بعيدة عن قاعدة بيانات

بمعنى اعمل الجدول بدون ما اربطه بقاعدة بيانات معينة

zsO56863.jpg
#23

الأخ الفاضل ...

يمكن ذلك بأستخدام ADOR - مرفق مثال للتوضيح

DatabaseGrid_up1.zip

شكراً

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible

#24

مش عارف اشكرك ازاي يا أخي

انا فهمت المثال الأخير خلاص

ربنا يخليك يا رب

انا تعبتك معايا أوي

ربنا يجعلها في ميزان حسناتك

zsO56863.jpg

هذا الموضوع مغلق.

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