الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ربط قواعد البيانات

مغلق
بدأه NAWRAS-XP في 16 أبريل 2003 · 2 رد · 856 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

لقد قمت بتحويل قاعدة بيانات أكسس إلى فيجوال بيسك بواسطة برنامج Access To VB . وقد تم ترجمة كافة عناصر البرنامج .

إلا أنه عند تشغيل البرنامج يعطي رسالة خطأ في الإجراء التالي :

Private Sub dat1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

On Error Resume Next

dat1.Caption = "Record " & dat1.Recordset.AbsolutePosition & " of "

& dat1.Recordset.RecordCount

End Sub

فيرجى لمن يعرف ما عمل هذا الاجراء وما سبب خطأه ألا يبخل علينا فيه .

#2

You can use ADO to connect to data base made with any kind of DBMS (Acces , Excel, Oracle, MS Visual Fox,...)

The Code is

--------------------------------------

dim conn as object

dim data as object

dim SQL as string

set conn=createobject("ADODB.CONNECTION")

conn.open("ODBC NAME OF YOU DATABASE") 'The DSN

SQL = "SELECT ............." ' the sql statement

set data = conn.execute(SQL)

---------------------------------------

then you can access the attributes of the Table by using the Data object

if there is an attribute --> Name

then you say Data("Name")

to move between rows use data.movenext

to check for the end of the table------->data.EOF

for more info send me

bashmohandes@gawab.com

Eng. Mohammed Hossam

#3

استخدمت اسلوب الربط الذي ذكرته لكن لم يفلح البرنامح في التعرف على الاجراء أيضا .

فهل يا تري هنالك مكتبات ربط ديناميكية يجب استخدامها في برنامجي أم ما المشكلة .

معذرة انا لا أعمل في الفيجوال بيسك ولكني متقن للأكسس بيسك ، فيرجى الرد حول ذلك .

ولكم جزيل الشكر

هذا الموضوع مغلق.

مواضيع مشابهة