[VB.NET] قواعد البيانات MDF - نسخة قابلة للطباعة

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