[ahmedramzyaish]

استاذى الكريم شكرااا لك
هل تقصد ان استبدل هذا الكود

كود :

Sub CreateDatabaseCompanys(ByVal Dgv As DataGridView)
       Dim StrSQL As String = "Create database Companys"
       Dim da As New System.Data.SqlClient.SqlDataAdapter(StrSQL, cn)
       Dim dt As New DataTable
       da.Fill(dt)
       CreateTable(Dgv)
   End Sub

بالكود الجديد

كود :

''' <summary>
   ''' Create Database For MS SQL Server
   ''' </summary>
   ''' <param name="DatabaseName">Database Name String</param>
   ''' <param name="DirectoryOfDatabase">Directory Of Database String</param>
   ''' <param name="CreateAndCode">Creat The Database And Write Code or Write Code</param>
   ''' <returns>Return True And Sql Query String,Return False And Sql Query String</returns>
   Function CreateDatabaseForMSSQLServer(ByVal DirectoryOfDatabase As String, ByVal DatabaseName As String, ByVal CreateAndCode As Boolean) As String
       Dim SqlStrXT As String = String.Empty
       Dim Con As New SqlConnection("Server =(local);database=master;integrated security=True")
       Try
           Dim DIR1 As String = ""
           Dim DIR2 As String = ""
           Dim DTTable As New DataTable
           DTTable.Clear()
           If Not IO.Directory.Exists(DirectoryOfDatabase & "\MyDATABASE_NAME") Then Directory.CreateDirectory(DirectoryOfDatabase & "\MyDATABASE_NAME")
           DIR1 = DirectoryOfDatabase & "\MyDATABASE_NAME\" & DatabaseName & ".mdf"
           DIR2 = DirectoryOfDatabase & "\MyDATABASE_NAME\" & DatabaseName & "_log.ldf"
           SqlStrXT = " CREATE DATABASE [" + DatabaseName + "] ON  PRIMARY ( NAME = N'" & DatabaseName & _
    "', FILENAME = N'" & DIR1 & "' , SIZE = 4096KB , MAXSIZE = UNLIMITED, FILEGROWTH = 1024KB ) LOG ON ( NAME = N'" & _
    DatabaseName & "_log', FILENAME = N'" & DIR2 & "' , SIZE = 832KB , MAXSIZE = 2048GB , FILEGROWTH = 10%)" & vbNewLine
           If CreateAndCode Then
               Dim da As New SqlClient.SqlDataAdapter(SqlStrXT, Con)
               If Con.State = ConnectionState.Closed Then Con.Open()
               da.Fill(DTTable)
               If Con.State = ConnectionState.Open Then Con.Close()
           End If
           MsgBox(SqlStrXT & vbNewLine & "Database Created Successfully", MsgBoxStyle.Information, "")
           If Con.State = ConnectionState.Open Then Con.Close()
           Return True & " - " & SqlStrXT '' &  vbNewLine  &  "Database Created Successfully"
       Catch ex As Exception
           MsgBox("Error : " & ex.Message, MsgBoxStyle.Critical, "Error")
           If Con.State = ConnectionState.Open Then Con.Close()
           Return False & " - " & SqlStrXT
       End Try
   End Function

عملت كده بس مفيش فايدة
انا اقصد تغيير مسار قواعد البيانات التى يتم انشائها والتى تخص الشركات وليس قاعدة بيانات company
هل من كود يضاف فى الاسكريبت الخاص بتكوين الداتا من خلال استخدام السيكوال يحل المشكلة


عنند استبدال الكود يظهر خطأ مرفق الصور