ازاى أضيف قاعدة بيانات sql server لمجلد المشروع

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

راجع موضوع: كيف اعمل Attach لقاعدة البيانات منMSDE

شكراً

أعذرنى أخى العزيز فانا بالنسبه للتعامل مع sql server لا يتعدى ايام تعلمت أنشاء قاعدة البيانات واعطاء الصلاحيات وstord procdure وطبعا الربط مع الفيجول المشكله انى عاوز أخلى قاعدة البيانات داخل المجلد اللى بشتغل منه فى تصميم البرنامج

والموضوع اللى ارشدتنى ليه للا سف مستوعبتش منه الا حاجات بسيطه ياريت بس تدلنى على المطلوب واكون شاكر جدا على كل حال

up

بص يا باشا عشان متحيرش نفسك

انت انت لو عاوز تكونكت على الداتا بيز بتاعتك المستخدمة بواسطة المشروع بتاعك طبعا لازم تكون موجودة في الـ SQL اي معمولها Attach

نفس الطريقة لو وديت البرنامج بتاعك للعميل بالداتا بيز

1- ضع ملف الداتا بيز في اي مكااااااان على الهارد ديسك

2- من الـSQL اعمل Attach للداتا بيس

ده لو عاوز تعملها يدوي

لكن في كود ممكن تستخدمة بحيث عند تشغيل البرنامج يذهب الى الـ SQL وينظر اذا لم يجد الداتا بيز معمول لها Attach يقوم هو بعمل ذلك ... مع افتراض مكان ملف الداتا بيس

ماشى ما هو ان فهمت لازم Attach بس أعملها ازاى يعنى ايه المتطلبات

والف شكر يابروفسير

up

السلام عليكم ::

اذا كنت تريد عمل ذلك يدوياً ::

1- افتح الـ Enterprise Manager .

2- كلك يمين على بدايه الـ Tree الموجود فيها Database .

3- اختار Attach .

4- حدد مكان ملف قاعدة البيانات الموجودة على الهارد المراد عمل Attach لها .

5- اضغط OK .

وبهذه الطريقه تكون عملت للـ داتا بيس Attach .

او عن طريق الكود:::

Dim oSQL As Object
Dim oDB As Object

Dim strMDFfilePath As String
Dim strMDFfileName As String
Dim strLOGfile As String

On Error GoTo CopySQLDB_Err

'Create Objects
Set oSQL = CreateObject("SQLDMO.SQLServer")
Set oDB = CreateObject("SQLDMO.Database")

'Connect to the server
oSQL.Connect strSrv, strLogin, strPwd

'Set the database object
Set oDB = oSQL.Databases(strDatabase, "dbo")

'Determine the location of database files, primary and log
strMDFfilePath = oDB.PrimaryFilePath
strMDFfileName = _
Trim(oDB.FileGroups.Item(1).DBFiles.Item(1).PhysicalName)
strLOGfile = Trim(oDB.TransactionLog.LogFiles(1).PhysicalName)

'Clear out the database object
Set oDB = Nothing

'Detach database to allow copying
oSQL.DetachDB (strDatabase)

'Copy database files to new names
FileCopy strMDFfileName, strMDFfilePath & strNewName & ".mdf"
FileCopy strLOGfile, strMDFfilePath & strNewName & "_log.ldf"

'Re-attach original database
oSQL.AttachDB strDatabase, strMDFfileName & "," & strLOGfile
oSQL.AttachDB strNewName, strMDFfilePath & strNewName & _
".mdf" & "," & strMDFfilePath & strNewName & "_log.ldf"

'Set database object to the new database
Set oDB = oSQL.Databases(strNewName, "dbo")
Debug.Print "Database Created"


CopySQLDB_End:
'Clear out the objects before ending
Set oDB = Nothing
Set oSQL = Nothing
Exit Sub

CopySQLDB_Err:
'Basic error handling.
MsgBox Err.Description, vbInformation, "SQL OLE Automation"
Resume CopySQLDB_End

End Sub

مع العلم انا لم اجرب الكود معنديش SQL Server

تحياتي ,,,,,,,,,,,,

A7medProf

الف شكر وانا هجرب انت كده وضحت وشرحت

وان شاء الله هارد عليك تانى وياريت تستحملنى شويه والف شكر على الشرح المفصل

بالتوفيق إن شاء الله

تحياتي ,,,,,,,,,

A7med_prof

يابروفسير الف شكر فعلا نفعت بس فيه حاجه لو انى أخدت البرنامج علشان العميل يشتغل عليه أكيد مش هيشتغل البرنامج لانى كاتب فى الكود ان فيه سيرفير وامر الربط مع قاعدة البيانات يبقى مش هيشتغل أزاى أخليها تشتغل على جهاز مش مثبت عليه sql server ودى تكملة السؤال بتاعى وجوهره

ومتشكر على التفاعل

up

اخ moslem_12002

اجابة هذه النقطة

اقتباس

أزاى أخليها تشتغل على جهاز مش مثبت عليه sql server

يجب ان تكون هناك اداوت Client ويمكنك الاستعانة بنفس الاسطوانه التي حملة منها البرنامج SQL 2000 و لكن اثناء التنصيب قم بأختيار Client Only اذا كانت طبعا هناك شبكة سيتم اختيار هذه الخيار تلقائي أو بالاستعانة بشي تم ذكره سابقا الا وهو MSDE

خلاص ماشى انا هجرب الفكره ومتشكر جدا