اريد ربط برنامجي مع قاعدة بيانات اكسس على النت .... كيف ؟؟

السلام عليكم

هناك طريقة لذلك وهي عن طريق الموقع التالي

http://domaindlx.com/

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

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
cn.Provider = "microsoft.jet.oledb.4.0"
cn.Open "data source=//bb.domaindlx.com/Mohmed/db.mdb"
rs.CursorLocation = adUseClient
rs.Open "customers", cn, adOpenDynamic, adLockOptimistic

End Sub

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

السلام عليكم

مثل ما قال زميلي Mady لابد تكون مكتبه الأدو ADO هي الرابط , و أيضا أضيف بأن قاعدة بيانات آكسس غير عمليه على الانترنت .

الله يعطيكم العافيه ماقصرتم

طيب اذا ربطت باستخدام الادو اين اضع كود الاتصال هل في زر او في تحميل الفورم ؟؟

ومشكورين اخواني

اخواني

لم استطع التسجيل في الموقع

http://domaindlx.com/

لم يرسل لي رسالة الايميل عند التسجيل

مالمشكله ؟؟؟

طيب هل الاداة اللي يجب ان استخدمها هي adodc ؟؟؟

وهل فقط الكود اللي وضعته لي اخي mady يعمل الاتصال بالقاعده ؟؟؟

وهل اضع الكود في زر او في تحميل الفورم ؟؟؟

وازرار الاضافة والحفظ والحذف الخ .....

هل هكذا مثلا

adodc1.recordset.addnew

adodc1.recordset.delete

الخ

........

أخوي مكتبه ال ADO مكتبه كبيره و ضخمه يستحيل شرحها في موضوع واحد , هذي لابد تقرأ عنها, حاول البحث في المنتدى أو الانترنت عن الاساسيات الخاصه بها , و ممكن نساعدك شوي في فهم الامور الاساسيه و على سبيل المثال :

مكتبه الادو مافي لها أداه خاصيه يعني ماهي Components هي فقط تضيفها من الـ Referance للمشروع و اسمها : Microsoft ActiveX Data Objects 2.8 او الاصدار 6.0 اذا كنت عامل تحديث للفجوال SP6, و بكل الحالتين ما تفرق كثير.

كود الإتصال و فتح السجل وضعه لك الآخ الكريم في بدايه الموضوع .. و لكن قبل فتح الاتصال لابد توضع بعض التعريفات العامه , و على سبيل المثال افتح Module جديد و في الـ General Declarations تكتب

Public CN AS New ADODB.Connection
Public RS AS New ADODB.Recordset

و طبعا كل جدول ممكن تعمل له Recordset خاص فيه

كود الحفظ مثلا :

RS.AddNew
Rs!FieldName = Text1.text
Rs!FieldName2 = text2.text
RS.Update

كود البحث :

Rs.Movefirst
Rs.find "FieldName = '" & text1.text & "'"
If Rs.EOF = true then
Msgbox "Not Found"
Exit sub
End IF
Text1.text = Rs!FieldName
Text2.text = Rs!FieldName2

كود الحذف

Rs.

Delete

هذي أمثله بسيطه للأساسيات و لكن لابد تفهمها قبل ما تنفذها

بخصوص الـ ADODC بصراحه نسيت و ما ادري هل هي تتصل مع انترنت او لا , هذي الادوات DataControls ما استخدمها لانها محدوده و مافيها مرونه في البرمجه و تستخدم في حالات بسيطه فقط.

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

واعتقد ان المواضيع دى ممكن تفيدك

/index.php?showtopic=151779&st=0

/index.php?showtopic=170939&st=0&p=863878&fromsearch=1entry863878

/index.php?showtopic=158923

بالتوفيق ان شاء الله

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

بالتوفيق ان شاء الله