04-05-19, 11:44 AM
(آخر تعديل لهذه المشاركة : 08-05-19, 05:28 PM {2} بواسطة asemshahen5.)
MDF هي قاعدة البيانات التابعة لمحرك قواعد البيانات Sql Server أقصى حجم لقاعدة البيانات حسب الملقم أكسبريس2012 - 14.16 GB من المصدر :
SQL Server Express 2012 Database Size Limit
بالنسبة للنسخة الكاملة قد يصل الحجم الى 524,272 Terabytes من المصدر :
Maximum Capacity Specifications for SQL Server
لتستطيع نقلها من جهاز لاخر يجب أن تقوم بتثبيت برنامج Sql server أو Sql Server Express على الجهاز ثم عمل أتاش لقاعدة البيانات أو إستعمال الكود التالي في فيجوال لعمل أتاش لقاعدة البيانات عند أول تشغيل بعد تصيب البرنامج و محرك Sql Server :
SQL Server Express 2012 Database Size Limit
بالنسبة للنسخة الكاملة قد يصل الحجم الى 524,272 Terabytes من المصدر :
Maximum Capacity Specifications for SQL Server
لتستطيع نقلها من جهاز لاخر يجب أن تقوم بتثبيت برنامج Sql server أو Sql Server Express على الجهاز ثم عمل أتاش لقاعدة البيانات أو إستعمال الكود التالي في فيجوال لعمل أتاش لقاعدة البيانات عند أول تشغيل بعد تصيب البرنامج و محرك Sql Server :
PHP كود :
'عمل اتتاتش للداتا بيز عند فتح البرنامج اول مرة عل جهاز العميل'
'-------------------------------------------------------------'
Public Shared Function GETATTACHDATABASENAME() As Boolean
On Error Resume Next
Dim DS As New DataSet
Dim SqlConnection1 As SqlClient.SqlConnection = New SqlClient.SqlConnection("Data Source=" + My.Computer.Name & "\SQLEXPRESS" + ";Initial Catalog=tempdb;Integrated Security=SSPI;")
Dim str As String = "Select DISTINCT name from master.dbo.sysdatabases where name Like 'YourDbName' and has_dbaccess(Name) = 1 "
Dim ADP As SqlClient.SqlDataAdapter
ADP = New SqlClient.SqlDataAdapter(str, SqlConnection1)
DS.Clear()
ADP.Fill(DS)
Dim i As Integer
If DS.Tables(0).Rows.Count = 0 Then
GETATTACHDATABASENAME = False
MessageBox.Show(" قاعدة البيانات 'قاعدة بيانات البرنامج'" & "غير متصلة بالسرفر جارى عمل الاتصال", My.Computer.Name, MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
Else
GETATTACHDATABASENAME = True
End If
ADP.Dispose()
SqlConnection1.Dispose()
End Function
Public Shared Sub ATTACHDATABASENAME(ByVal MYDBNAME As String, ByVal f1lepathprimary As String, ByVal f1lepathlog As String)
Try
Dim SqlConnection1 As SqlClient.SqlConnection = New SqlClient.SqlConnection("Data Source=" + My.Computer.Name & "\SQLEXPRESS" + ";Initial Catalog=tempdb;Integrated Security=SSPI;")
Dim CMD As SqlClient.SqlCommand = New SqlClient.SqlCommand
CMD.CommandType = CommandType.Text
CMD.Connection = SqlConnection1
If SqlConnection1.State = ConnectionState.Open Then SqlConnection1.Close()
SqlConnection1.Open()
CMD.CommandText = "sp_attach_db " & MYDBNAME & ",'" & f1lepathprimary & "'" & ",'" & f1lepathlog & "'"
' OR CMD.CommandText = "CREATE DATABASE " & MYDBNAME & " ON (FILENAME = '" & f1lepath & "')FOR ATTACH"'
CMD.ExecuteNonQuery()
SqlConnection1.Dispose()
MessageBox.Show("تم انشاء اتصال قاعدة البيانات بالسرفر ", "ATTCH DATABASE", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button2, MessageBoxOptions.RtlReading)
Catch ex As Exception
Dim result As Integer
result = MessageBox.Show("فشل البرنامج فى انشاء اتصال بقاعدة البيانات بالسرفر", "ATTCH DATABASE", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button2, MessageBoxOptions.RtlReading)
End Try
End Sub
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
