التعامل مع قواعد البيانات المحمية

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

الصراحه انا لن استطيع استيعابك ارجو التوضيح

وخاصا

اقتباس

يdb1 فى متغير بحيث يمكن التعامل معه فى جمل الsql مع قاعدة البانات db2

وتوضيح الهدف من ذلك .

بالتوفيق .......

A7med_prof

ahmedamer2005 كتب:

يوجد لدى عدد 2 قاعدة بيانات وليكن الاولى db1 والثانية db2

تم تعريف القاعدتين عن طريق ado القاعدة الاولى محمية بكلمة سر 123 اريد ان اضع يdb1 فى متغير بحيث يمكن التعامل معه فى جمل الsql مع قاعدة البانات db2

بمعنى انه يتم اضافة شىء يعرف الباسورد للقاعدة الاولى db1 فى المتغير التالى

dim myapp as string

myapp =app.path+"\db1.mdb"--------------------------------and thanke you

ممكن توضيح اخوي انت تبي تربط قاعدتين في نفس المشروع ؟؟؟؟ ممكن توضح

الهدف من ذلك هو استيراد بيانات من قاعدة db1 الى db2

مع العلم بان قاعدة البيانات db1 محمية بكلمة مرور 123

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

Dim myapp As String

myapp = App.Path + "\db1.mdb"

rs.Open "insert into tb (1,2,3,4,5) select 1,2,3,4,4 from sallary in '" + myapp + "' ", db2, adOpenStatic, adLockOptimistic

بمعنى انه يتم استيراد بيانات من الجدول sallary فى قاعدة البياناتdb1 الى جدول tbفى قاعدة بيانات db2

وعند التنفيذ يعطى رسالة خطأ تفيد بأن الباسورد خطأ مع العلم بأنه سبق تعريق البرنامج على الباسورد عند بداية تحميله

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

اقتباس

rs.Open "insert into tb (1,2,3,4,5) select 1,2,3,4,4 from sallary in '" + myapp + "' ", db2, adOpenStatic, adLockOptimistic

جملة الـ SQL خطأ خالص لا يصلح ان تجري أستعلامين في نفس الوقت وبهذه الطريقه

اذا كان الاتصال ناجح بكلا القاعدتين

قم بأحضار الجدول الاول في Recordset من DB1 وقم بالاضافة في RecordSet اخرى لـ DB2

لو واجهتك مشاكل ,,,

ارفق مشكلتك ,,,

بالتوفيق 0........

A7med_prof

نفترض انه تم الاتصال بالشكل التالى فيكف تتم الاضافة الى من sallary الى db2

set sallary = db1.openrecordset("sallary",2)1

set tb=db2.openrecordset("tb",2)2

انا عاوز اعرف حاجه الاول انت عاوز تضيف البيانات من DB الى DB2 مهما كان

سواء كانت موجود اساسا او غير موجوده

ولا عاوز تعمل تحديث فقط على بيانات هذا الجدول ؟

لا عايز اعمل اضافة وليس تحديث

طيب كويس جدا

الاول هتقوم بعمل اضار لـ Data الجدول في RecordSet من "DB1"

set sallary = db1.openrecordset("sallary",Cnn) 1 , 2

ومن ثم تقوم بعمل دواره تقوم بالعمل من بداية اول Record الى نهاية اخر Record في جدول الـ sallary .

db1.MoveFairst
Do While Not db1.EOF
	 set tb=db2.openrecordset ("INSERT INTO tDataBase (x, x, x, x) Values ( sallary('x'),sallary(x''),sallary('x'),sallary('x'),) ",cnn) 1 ,2
	 db1.MoveNext
LOOP

الـ X هي افتراضيات .

بالتوفيق ........

A7med_prof

السلام عليكم

طريقة الاتصال فى البدايه ممكن تحدد الباسورد وقت فتح الاتصال

Set mydb = New ADODB.Connection

mydb.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;data source "c\table.mdb"

اكمل بعد الجمله password