ابي مساعدة في ربط الداتا بيز SQl 2000

انظر للمسألة اخ Dr.M

لقد عرفت متغير اسمه RStudent لتعامل مع السجلات في مديول بشكل التالي

Dim RStudent As New ADODB.Recordset

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

Public RStudent As New ADODB.Recordset

وايضا عرفت متغيير للأتصال بقاعدة البيانات بالشكل التالي

Dim Cn As New ADODB.Connection

والمفروض ان يكون

 Public Cn As New ADODB.Connection

وقمت بفتح الجدول بالشكل التالي

strSQL = "SELECT * FROM Students_Info"

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

ليكون بالشكل التالي

strSQL = "SELECT * FROM Students_Info"
RStudent.Open (strSQL), Cn, adOpenDynamic, adLockOptimistic

هل لاحظت الاخطاء .... الآن

جزاك الله الف خير اخي الكريم

واسال الله العلي العظيم أن يضعها في ميزان حسناتك

ولكن لم يحدث شيء .... من ناحية اخرى

عمل الاتصال بالقاعدة ولكن لم يحدث الحفظ ، وحدث خطأ في الكود

strSQL = "SELECT * FROM Students_Info"
RStudent.Open (strSQL), Cn, adOpenDynamic, adLockOptimistic

وأكد ان اخطأ في السطر الثاني

والله ولي التوفيق

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

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

لم يجد رد لموضوعي

انا في انتظار ارائكم وافكاركم وحلووولكم لأني جالس على هذا الموضوع اكثر من شهر ولم اجد حل للموضوع ارجوا الإفادة

اخي العزيز Dr.M

انا مش عارف اتصل بقاعدة البيانات لغاية دلوقتي

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

لأن المثال المرفق بتاعك مش فاهم منه حاجة

الظاهر انه انت بتستخدم نوعين في الإتصال على ما اعتقد

ممكن توضحلي ازا ياتصل بقاعدة البيانات SQL server 2000

قاعدة البيانات بتاعتي اسمه MAMdb

بس طبعا مش في ملف ولا حاجة

ده انا فتحت Enterprise Manager بتاع الــ SQL

وبدأت في انشاء الجداول والحقول وكله بداخل قاعدة اسمها MAMdb

واسم السيرفير بتاعي MOHAMED

هل تستطيع ان تشرحلي كيف ؟

وكمان احب اضيف حاجة

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

Public Connection As New ADODB.Connection
Public Re As New ADODB.Recordset

'----------------------------------------------------------------------
Public Sub ConnectNow()



If Connection.State = 1 Then Connection.Close
Connection.ConnectionString = "provider=Microsoft.Jet.OLEDB.3.51;data source=" & _
app.path & "\database\nyaba97.mdb;"


Connection.Open


End Sub

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

ConnectNow

وبيتم الإتصال على طول

طبعا انا مش بكتب الكلمة دي في كل ما احب اضيف او اغير حاجة في البيانات اللي في قاعدة البيانات

لا

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

وبعد كدة بعمل عملية Select او Update او Insert into

في اي وقت انا عاوزه

طبعا مع فتح القناة Re وغلقها بعد كل عملية

هل هذا ينفع مع الـ SQL ???????

الاخ الفاضل...

كل الى انت بتعمله فى أكسس ينفع فى SQL (لأنك من داخل الـVB بتتعامل مع ADO) مش مع الـ Database Engine مباشرتأً، الأختلاف طبعاً فى جملة الإتصال (Connection String)، مع مراعاة بعض الفروق (الزيادات) فى جمل الـ (SQL) الى مش موجوده فى Access، أو مراعاة الإختلافات بوجة عام (لو شغال Standard SQL-92 مش هتفرق شغال بأى Database) .

شكراً

برضوا معرفتش طريقة الإتصال ....

والرابط مش شغال!!!!

الأخ الفاضل ...

جملة أتصال MS-SQL2000:

Public Connection As New ADODB.Connection
Public Re As New ADODB.Recordset

'----------------------------------------------------------------------
Public Sub ConnectNow()
	If Connection.State = 1 Then Connection.Close

	Connection.ConnectionString = "Provider=SQLOLEDB;" & _
									"Server=localhost;" & _
									"Database=myDatabase;" & _
									"Trusted_Connection=Yes"
	Connection.Open
End Sub

أو

Public Connection As New ADODB.Connection
Public Re As New ADODB.Recordset

'----------------------------------------------------------------------
Public Sub ConnectNow()
	If Connection.State = 1 Then Connection.Close

	Connection.ConnectionString = "Provider=SQLOLEDB;" & _
									"Server=localhost;" & _
									"Database=myDatabase;" & _
									"UID=sa;" & _
									"PWD=password"
	Connection.Open
End Sub

وبالطبع يتم التغير ليناسب برنامجك حيث يتم استبدال:

localhost: أسم أو رقم (IP) خادم قواعد البيانات (SQL-Server)

myDatabase: أسم قاعدة البيانات المراد الإتصال بها (والموجودة على الخادم السابق ذكره)

sa: أسم المستخدم (فى حالة أستخدام Username & Password)

password: كلمة المرور لهذا المستخدم

حول المزيد من المعلومات عن جمل الإتصال المختلفة وتخصيص كلمات مرور وما إلى ذلك، راجع الموضوع: جميع أنواع الإتصالات بالقواعد البيانية

شكراً

مشكووووووور اخوي على المعلومات الحلوة دي

حجرب وقولك حصل معاي ايه

تحيـــــــاتي

مشكور جدا والله وانا الأن بجربه وهاقولك على الأخبار

السلام عليكم

انا الإتصال فعلا تم بنجاح

ومشكور جدا على هذه المساعدة

ولكن هناك مشكلة

عند استعمال جمل SQL

select ,update,delete,insert

بس اللي انا جربته دلوقتي ومش شغال هو select

لما باجي اعمل select مستخدما الجملة دي

sql = "select * from kesmAccount where username = '" & Text1.Text & "' and password = '" & Text2.Text & "'"

Re.Open sql, Connection, adOpenDynamic, adLockReadOnly

فتظهر لي الرسالة التالية

مع العلم ان انا عملت يوزر جديد واسمه sa

وعلمت على كل الحاجات صح

ونشط كل اوامر الــ SQL

فما المشكلة ؟؟؟؟

up 4 me, plz

وين الردووود ياهل الخير