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

اخي الكريم

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

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

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

هون عليك

يمكن في اشياء مستحيلة ومش عارفين لها اجابة او حلها صعب

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

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

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

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

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

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

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

اخي الفاضل

هل من الممكن تضع رابط صفحة الـ 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

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

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

السلام عليكم

اخي sx1

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

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

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

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

اخي الكريم / at_aziz

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

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

اشكرك

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

ياظالمني :(

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

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

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

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

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

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

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

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

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