لقد قمت بعمل برنامج بالADO للرط مع الSQL SERVER2000
ولكن هناك رسالة خطا تظهر لي مرفقة في ملف
مع العلم انني اعمل على
SQL SERVER2000 PERSONIAL
ونظام التشغيل
WINDOWS XP
وشكرا
لقد قمت بعمل برنامج بالADO للرط مع الSQL SERVER2000
ولكن هناك رسالة خطا تظهر لي مرفقة في ملف
مع العلم انني اعمل على
SQL SERVER2000 PERSONIAL
ونظام التشغيل
WINDOWS XP
وشكرا
هذه صورة لرسالة الخطأ
السلام عليكم يا مجازف
أولا فكرتك ممتازة جدا إنك تربك مع قاعدة بيانات مثل SQL Server
المهم انت تقول انك استخدمت ADO للربط مع الSQL Server مدري والله اعلم إنك منت عامل الطريقة الأفضل للربط لأنه انا لمن ابغى اربط مع اي قاعدة بيانات بال ADO ما تكون اكتر من سطر واحد وانت ماشاء الله أديتها اكتر من كدا المهم إن شاء الله العمليه سهلة جدا بس انا إن شاء الله اديك السطر دا اللي متعبك على الاّخر ومسويلك شويه الأخطاء دي
ودي إجابتي عبى قدر فهمي لسؤالك ونظرتي على الملف المرفق اللي انت ارسلته وإن شاء الله محلوله بس اديني كدا يا اليوم في الليل ارسلك هيه او بكرى إن شاء الله لكن انا إن شاء الله احاول اليوم على شانك لأنه الهدف إنه تعم الفايدة على الكل في اسرع وقت ممكن على الجميع ..... وشكرا
شكرا على اهتمامك
السلام عليكم يا مجازف شوف هو دا الكود اللي يخليك تربط الأكسيس اللهم أنك تغير ال provider لل SQL server
mydb.open " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "specialdata.mdb;Persist Security Info=False;pwd="1234
المهم إذا كان عندك أي شئ منت فاهمة لا تنسى تسأل تاني علشان توصل المعلومه كامله لو سمحت وإلا أزعل منك بعدين الله لا يجيب الزعل ....وشكرا
اخيFree Bird
اشكرك جدا لى اللذي ارسلته وانا فاهم ذلك
ولكن اذا امكن انا اريد مثال نموذجي لكي ادرسه وافهمه
فانا اعمل على الDAO بشكل ممتاز ولن يصعب علي فهم المثال وشكر على سعة صدرك
تحياتي
(f)
إن شاء الله أشوف انا البرنامج المناسب لك لأنه انا عندي البرنامج دا بس مو مكتوب على الجهاز بس مطبوع على الورق علشان كدا ماني قادر أعطيك المثال لأنه صعب جدا كتابة كود طويل في ملف وورد علشان كدا اتمنى منك العذر في شويه وقت لتوفيرها.
شكر ا لك لكن رجاء بسرعه
تحياتي
ربط الــADO بال sqlserver
*********************************
[l]
Set db = New ADODB.Connection
& _ db.ConnectionString = "provider=sqloledb;"
"data source=Athena;initial catalog=VB6DB"
db.Properties("User Id").Value = Text1.Text
db.Properties("Password").Value = Text2.Text
db.Open
[/l]
هذا هو البرنامج
هذا الموضوع مغلق.