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

اكرهكم كلكم ...................

مغلق
بدأه alimaeed في 19 مايو 2007 · 10 رد · 2,788 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

يعني اول طلب واهم طلب ولا احد عبرني لو بكلمه وقال ما نعرف

اتوقع ان السؤال سهل بس ما تبون تجاوبوني

هذا رابط طلبي له اسبوع

/index.php?showtopic=126659

والي يبيني اشرحه بشرحه بس اهم شي احصل اجابه

انا ابي ادرج بينات صفحة ويب في خليه

يعني زي عمليه النسخ واللصق من داخل البرنامج دون الحاجه للصق ونسخ

#2

اخي الكريم

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

هون عليك لنا رب كريم

الله في عون الغلابا امثالنا

#4

بسم الله الرحمن الرحيم

اخواني بارك الله فيكم

اولا الاخ alimaeed ما هذا اخي الكريم تكرهنا كلنا.... لان سؤالك لم يتم الاجابة عليه ما هذا .... هل قمت بعمل تصفح للموقع وشاهدت كم المساعدات ....هل قمت بمتابعة نشاط عضو مبتدئ ولكن قديم ... انا شخصيا اعرف عضو كان مبتدئ جدا في البداية وهو بفضل الله ثم بفضل مثابرته ونشاطه وهذا المنتدى اصبح الان من الخبراء الذين يقومون بالاجابة على الاسئلة

وهم لا يتأخرون ابدا

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

ثانيا الاخsas_kik كان من الاولى وقد بلغت مشاركتك الان 88 مشاركة ان تقوم بتهدئة اخاك وتحاول معه ان كنت تعلم لا ان تهاجم اخواتك انت الاخر وتتهمهم بما ليس فيهم

ارجو ان تتقبلوا نصيحتي بصدر رحب وارجو من المشرفين اقفال مثل هذه المواضيع

#5

اخي الفاضل

هل من الممكن تضع رابط صفحة الـ HTML المطلوب استيراد البيانات منها الى جدول قاعدة بيانات الأكسيس

لأن الموضوع سهل ان شاء الله

وحتى لو كرهت الأعضاء والمنتدى كلهم سوف نجيب على سؤالك لتعلم ان كل من في المنتدى يقدرك ويحترمك ويعزك لشخصك الكريم .

طبعا الخطأ من البداية انك لم تضع رابط الصفحة التي بها الجدول

عموما سوف نجرب على هذه الصفحة التي على الأنترنت

http://www.bennetyee.org/ucsd-pages/area.html

ويوجد بها جدول ونحاول تعبئة الجدول الخاص بنا في قاعدة البيانات بالبيانات التي في الصفحة بهذه بطريقة الإتصال ADODB بحيث نضع هذا الكود في حدث عند النقر على زر أمر .

Dim conn As ADODB.Connection

Set conn = New ADODB.Connection
Call conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & _
			   "Data Source=http://www.bennetyee.org/ucsd-pages/area.html;" & _
			   "Extended Properties=""HTML Import;HDR=YES;IMEX=1""")

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset
Call rs.Open("select count(*) from [Area Code Listing, by Number]", conn, adOpenDynamic, adLockReadOnly)
Debug.Print rs.Fields(0).Value
Call rs.Close

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

Dim db As DAO.Database
Dim td As DAO.TableDef

' Assumes we're in Access and adding the linked TableDef to the current database.  You could
' do this external to Access, but you'd have to create a Connection and open the database yourself.

Set db = CurrentDb()

Set td = db.CreateTableDef("AreaCodes")
td.Connect = "HTML Import;HDR=YES;IMEX=1;DATABASE=http://www.bennetyee.org/ucsd-pages/area.html"
td.SourceTableName = "Area Code Listing, by Number"
Call db.TableDefs.Append(td)

Dim rs As DAO.Recordset

Set rs = db.OpenRecordset("select count(*) from AreaCodes")
Debug.Print rs.Fields(0).Value
Call rs.Close

واذا كانت هذه ايضا صعبه عليك سوف نقوم بتطبيق الطريقه هذه عن طريق الـ ADO

Dim conn  As ADODB.Connection

Set conn = New ADODB.Connection
Call conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\whatever\somefile.mdb")

Dim cat   As ADOX.Catalog
Dim table As ADOX.table

Set cat = New ADOX.Catalog
Set cat.ActiveConnection = conn

Set table = New ADOX.table
With table
  .Name = "AreaCodes"
  Set .ParentCatalog = cat
  .Properties("Jet OLEDB:Create Link").Value = True
  .Properties("Jet OLEDB:Link Provider String").Value = "HTML Import;HDR=YES;IMEX=1;DATABASE=http://www.bennetyee.org/ucsd-pages/area.html"
  .Properties("Jet OLEDB:Remote Table Name").Value = "Area Code Listing, by Number"
End With

Call cat.Tables.Append(table)

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset
Call rs.Open("select count(*) from AreaCodes", conn, adOpenDynamic, adLockReadOnly)
Debug.Print rs.Fields(0).Value
Call rs.Close

Call conn.Close

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

post-15367-1179566487_thumb.gif

وضعنا لك ثلاث حلول الآن قم بالتطبيق ولا عاد تكرهنا مره ثانية

1
#6

السلام عليكم

اخي sx1

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

هذا من ناحية ومن آخرى لماذا لا نتقبل النقد كما نرحب بالكر والثناء أليس النقد هو الدافع الاساسي لدفع عجلة التقدم

#7

عقب رد اختنا المشرفه زهره

اوتقع انك تقول احبكم كلكم وخصوصا الاخت زهره

اتق الله حيث ماكنت

#8

اخي الكريم / at_aziz

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

واكرر من جديد بانني قد عنيت الظاهرة ولا اقصد الاشخاص

اشكرك

تم تعديل هذه المشاركة بواسطة sas_kik في 19 مايو 2007 في 13:45

#9

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

ياظالمني :(

#10

بارك الله فيك أختي زهره دائماً ضهورك في الوقت المناسب.

يا أخي أكره على راحتك ومدى حياتك ولكن سنكون عكسك تماما فكلما زاد كرهك لنا زدناك حبا وأحتراماً وتقديراً.

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

أنت أخونا ولك علينا حق المساعدة في حدود الطاقة .

تم تعديل هذه المشاركة بواسطة مصلح الحريصي في 19 مايو 2007 في 15:46

#11

الحين احبكم كلكم

وربي ما اشيل في قلبي لاي احد مثقال ذره من كره بس نبي نتدلع عليكم

وبعدين لولا الله ثم هل عنوان محد عبرني خاصه بعض ناس يعرفون الاجابه ومطنشين

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

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

عموما لمن علق الف شكر حتى الي سبني الف شكر لاني انا حبيت اولع الموضع شوي احد يعبرني يعني

وفعلا انتو فخر لي وربي وانا اتمنى يوم اكون معكم باني لهذا الصرخ الكبير الي يستاهل كل خير

ملاحظة اخت زهره ترى ارسلنا عليك على الخاص من زمان قال صندوق الرسايل عندك مفلل يعني شيكي كل يومين وامسحي رسايلك (( ههه لقافه ))

ترى فيه ضعوف يبون يسالونك واسال الله انه يزيدك من علمه يارب

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

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