طلب مساعده من المبرمجين ( بخصوص ربط قواعد البيانات بالفيجول )

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

ادري اني اخذت وجه وكثرت :)

بس محتاجه مساعده كمان اليوم !!

انا لسه مبتدئه طبعاً ،، ولسه قاعده اتعلم الف باء البرمجه !!

الحين قاعده اشتغل ع الفيجول بيسك <<< قديييييمه << لاحد يعلق :@


بس قاعده اتعلم حاليا طريقة ربط الفيجول بيسك ،، بقواعد البيانات ( الآكسس تحديداً )


بس في شغله صار لي يمكن اسبوع ومفحطه فيها ،، وعجزت والله اني اتعلمها لحالي ،،

محتاجه مساعدتكم بليييييييييز :17:


الحين موقفه عند أداه الآدو Ado

اعرف اكواد بسيطه عنها !!

بس مشكلتي في كود الربط بقاعده البيانات ،،

دائما تطلع معايا اخطاء فيه :@


يعني لو احد يقدر يعملي درس عن هذه الآداه

ولو بيكون مع الصور كمان بيكون جزاه الله الف خيييير :$


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

مو لازم مع صور حتى
اي حآآآآقه في اي حته بليييييز <<< شحاته :17:

بإنتظاركم ~

هلا صبــــــا
بصراحه ما عمري اشتغلت على الفيجول بيسك
بس اشتغلت على الدوت نت وهي ما تختلف كثير
لذلك ياريت تحطي لي الكود اللي كتبتيه
وكذلك الاإرروerror
اللي يطلع لك مشان نعرف من وين المشكله بالضبط
وان شاء الله اقدر اساعدك

حيآآآتي انتي والله يا الآء love:

شوفي
انا عامله الحين قاعده بيانات ،، واسم الجدول هو students

وعشان اربط قاعده البيانات بالفيجول

حطيت هذا الكود



()Private Sub Form_Load
Set dbConn = New ADODB.Connection
dbConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\traning.mdb;Persist Security Info=False"

Set rsStudent = New ADODB.Recordset
rsStudent.Open "students"* dbConn* adOpenDynamic* adLockOptimistic
showStudent
End Sub



بس الخطأ ما فهمت وين !!

بس لما اشغل البرنامج تتظلل عندي هذي الجمله



dbConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\traning.mdb;Persist Security Info=False"


ابغى اعرف هذي الجمله كيف تعمليها !!

بقولك انا كمان كيف اعملها

عشان تتضح الصوره
هذي الطريقه على ذمه استاذنا ترى :)

شوفي
اول شئ اضيف للشاشه اداه الآدو

بعدين من خصائصها اختار custom

بعدين build ***

بعدين مدري شو كان ينسخ ويعمل لصق في صفحه الآكواد

بس انا ما عرفت طريقة طبعاً :)

فجلست اكتب الكود كله ،، وبعدين طلع لي غلط:17:

يمكن في عندك خطاء في الباث تبع الداتا بيس

شوفي هذا الكود يمكن يساعدك

Public Cnn As ADODB.Connection
Public Rs As ADODB.Recordset
Public MyDbPath As String


Public Sub ConnectToDatabase()
Set Cn = New ADODB.Connection

Cnn.Provider = "Microsoft.Jet.OLEDB.4.0;Jet OLEDB"
CnnArt.Open (MyDbPath)
Set Rs = New ADODB.Recordset
Rs.Open "Login"* Cnn* adOpenDynamic* adLockOptimistic* adCmdTable
'this should open a table named Login in the database
End Sub

Quote:

---

Originally Posted by صبا

بقولك انا كمان كيف اعملها

عشان تتضح الصوره
هذي الطريقه على ذمه استاذنا ترى :)

شوفي
اول شئ اضيف للشاشه اداه الآدو

بعدين من خصائصها اختار custom

بعدين build ***

بعدين مدري شو كان ينسخ ويعمل لصق في صفحه الآكواد

بس انا ما عرفت طريقة طبعاً :)

فجلست اكتب الكود كله ،، وبعدين طلع لي غلط:17:

---

هذا اللي بتقولي عليه هو wizard*
لانه البرنامج هو يعمل الكونكشن انتي بس تختاري الداتا بيس والجدول
هذي طبعا اسهل
بس لما نستخدم الكود يعني manual*يكون الكونكشن
بيكون احسن لك لتغيير الداتا بيس مستقبلا
اقصد الباث تبعها بس

تعرفي استني عليا شويه بس عشان انزل الvb6
ولا يهمك الا نعمل كونكشن على داتا بيس
اوكي انتظري بس 10 دقايق
اوكي :)

Quote:

---

Originally Posted by آلاء

يمكن في عندك خطاء في الباث تبع الداتا بيس

شوفي هذا الكود يمكن يساعدك

Public Cnn As ADODB.Connection
Public Rs As ADODB.Recordset
Public MyDbPath As String


Public Sub ConnectToDatabase()
Set Cn = New ADODB.Connection

Cnn.Provider = "Microsoft.Jet.OLEDB.4.0;Jet OLEDB"
CnnArt.Open (MyDbPath)
Set Rs = New ADODB.Recordset
Rs.Open "Login"* Cnn* adOpenDynamic* adLockOptimistic* adCmdTable
'this should open a table named Login in the database
End Sub

---

طيب بس أنا ابغاهـا Private

بعدين هذا ايش

Public MyDbPath As String

الكودين اللي قبل هي لعمل الربط مع قاعده البيانات <<< مسويه فاهم
س هذا ما فهمت شو فايدته !!

وكمان هنا


Cnn.Provider = "Microsoft.Jet.OLEDB.4.0;Jet OLEDB"
CnnArt.Open (MyDbPath)

ليش ما عملتي طيب فتح للآتصال ؟؟!!

ترى بتعبك معايا إستيعابي مره بطئ :)

Quote:

---

Originally Posted by آلاء

هذا اللي بتقولي عليه هو wizard*
لانه البرنامج هو يعمل الكونكشن انتي بس تختاري الداتا بيس والجدول
هذي طبعا اسهل
بس لما نستخدم الكود يعني manual*يكون الكونكشن
بيكون احسن لك لتغيير الداتا بيس مستقبلا
اقصد الباث تبعها بس

---

انتي بتقولي ايييييييييه

مافهتمش حآآآقه :17:

ترى لازم تأخذيني ع قد عقلي ،، انا مره غبيه خخخخ

وبعدين ميييييح في البرمجه !!

إذا تعرفي الطريقه اللي هو بيعملها !!

اشرحي لي هي بلييييز !!

انه شو انسخ وشو أختار

طيب في مجال تستني عليا شويه
وبانتعلم انا وانتي على الفي بي 6
لاني زي ما قلت لك ما اعرف عليه اشتغلت على في دوت نت والا اس بي
لذلك صبرا بس انزل البرنامج :)

بالاول قولي لي وين حاطه انتي الdb؟
يعني بنفس المجلد تبع البرنامج تبعك
انا الان انزل البرنامج
وشويه وبجيب لك الشرح بالصور
تمامو :)

ايه اكيييد

طيب لحظه بس
عشان بصور لك الشاشات
وبرويكي خطوه خطوه انا ايش قاعده اعمل !!

دقائق ارفع الصور