كيف اجعل برنامجي يعمل على الشبكة

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

العنوان السابق

اقتباس

ابي فزعتكم انا وقف راسي من البرمجة

الاخوة الاعزاء ا

السلام عليكم ورحمة الله وبركاتة

آمل من الجميع مساعدتي في حل المشكله حيث عندي برامج وابغاه يشتغل علي الشبكة ومالقيت الا حل واحد حيث ان رابط الكونكشن في Module عندي هوا

Sub Main()

On Error Resume Next

Set db3 = New Connection

db3.CursorLocation = adUseClient

so = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\datacenter.mdb;Jet OLEDB:Database password=ÇáãÈÑãÌ ÎÇáÏ;"

db3.Open so

so = "select * from tim"

Dim rs1 As Recordset

Set rs1 = New Recordset

rs1.Open so, db3, adOpenStatic, adLockOptimistic

rs1.Close

Form13.Show

End Sub

بالنسبة للأمر

so = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\datacenter.mdb;Jet OLEDB:Database password=ÇáãÈÑãÌ ÎÇáÏ;"

db3.Open so

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

اخوكم امير الابداع