سؤال و استشارة(DataGrid//Sql Server )

السلام عليكم

كنت قد سألت عن طريقة لانشاء قاعدة البيانات عند العميل واليكم الحل الذى توصلت له

Cursor.Current = System.Windows.Forms.Cursors.WaitCursor

Dim sDatabaseName As String

Dim goSQLServer As New SQLDMO.SQLServer()

'Get the name of the new database

sDatabaseName = "CustFollow"

Dim oDatabase As SQLDMO.Database

'#####################

'Check If The Data Base Founded Or Not

goSQLServer.Connect("(Local)", "sa", "")

For Each oDatabase In goSQLServer.Databases

'This keeps the system databases from being listed

If Not oDatabase.SystemObject Then

If oDatabase.Name = sDatabaseName Then

MessageBox.Show("قاعدة البيانات موجودة من قبل", "عملية غير مسموح بها", MessageBoxButtons.OK,

MessageBoxIcon.Error)

Exit Sub 'duplicate name

Cursor.Current = System.Windows.Forms.Cursors.Default

End If

End If

Next oDatabase

'##############

'goSQLServer.LoginSecure = True

'Create DataBase

Dim oDatabaseCreated As New SQLDMO.Database()

oDatabaseCreated.Name = sDatabaseName

Dim oDBFileData As New SQLDMO.DBFile()

Dim oLogFile As New SQLDMO.LogFile()

'Define the PRIMARY data file.

oDBFileData.Name = sDatabaseName

Try

'oDBFileData.PhysicalName = goSQLServer.Registry.SQLDataRoot & "\DATA\" & sDatabaseName &

".mdf"

oDBFileData.PhysicalName = DataPath & "\" & sDatabaseName & "_Data.mdf"

oDBFileData.PrimaryFile = True

oDBFileData.Size = 2 'Set initial size (optional)

'Specify file growth in chunks of fixed size for all data files.

oDBFileData.FileGrowthType = SQLDMO.SQLDMO_GROWTH_TYPE.SQLDMOGrowth_MB

oDBFileData.FileGrowth = 1

'Add the DBFile object

oDatabase.FileGroups.Item("PRIMARY").DBFiles.Add(oDBFileData)

'Define the database transaction log.

oLogFile.Name = sDatabaseName & "Log"

oLogFile.PhysicalName = DataPath & "\" & oLogFile.Name & "_Log.ldf"

oLogFile.Size = 2 'Set initial size (optional)

oDatabase.TransactionLog.LogFiles.Add(oLogFile)

Catch ex As System.Runtime.InteropServices.COMException '

Dim DialogResult As DialogResult = MessageBox.Show("ملفات البيانات موجودة من قبل هل تريد حذفها ", "",

MessageBoxButtons.OKCancel, MessageBoxIcon.Hand)

If DialogResult = DialogResult.OK Then

Kill(DataPath & "\" & sDatabaseName & "_Data.mdf") ' Delete file.

Kill(DataPath & "\" & oLogFile.Name & "_Log.ldf") ' Delete file.

'Add the Files object Again

oDatabase.FileGroups.Item("PRIMARY").DBFiles.Add(oDBFileData)

oDatabase.TransactionLog.LogFiles.Add(oLogFile)

Else

MessageBox.Show("لم يتم انشاء قاعدة البيانات بنجاح")

Exit Sub

End If

End Try

'Create the database as defined.

goSQLServer.Databases.Add(oDatabaseCreated)

'####################################################################################

'Run Script File

Dim filSqlScript As IO.StreamReader

Dim strPathToFile As String

Console.WriteLine("Installing the sample Northwind database")

strPathToFile = BackUpPath & "\CustFollow.sql"

filSqlScript = IO.File.OpenText(strPathToFile)

goSQLServer.ExecuteImmediate(filSqlScript.ReadToEnd)

filSqlScript.Close()

goSQLServer.DisConnect()

Cursor.Current = System.Windows.Forms.Cursors.Default

1 - حيث ان Sql Script File يمكنك انشاؤه من داخل ال EntrerPrise Manager

2- يجب اضافة السطر التالى فى رأس الفورم Imports System.IO لقراءة السكربت فيل

3 - يجب اضافة Referance الى الملف Interop.SQLDMO اينما وجد

4- يمكنكم التعمق فى الكائن SqlDmo بالاعتماد على ملف المساعدة الموجود مع SqlServer بنفس الاسم

5 - يوجد على مسار Sqlserver داخل الأمثلة مثال استعنت به وهو رائع حقا اسمه CreateDatabase وهو معمول بفيجول 6 ولكن يمكنكم

تحويله دون ادنى مشكلة وهذا مافعلته

ولو هناك أى ملاحظة على الكود أرجو التعليق HosamDahb@hotmail.com

نسألكم الدعاء

يجب اضافة السطر التالى الى ملف Script

Use CustFollow

حيث CustFollow هو اسم قاعدة البيانات لاجبار محرك البيانات انشاء الجدول تحت قاعدة البيانات المرادة