منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الموضوع كالتالي  
اريد انشاء قاعدة بيانات من ملف سكربت بحيث  يتجكم المستخدم 
في تحديد اسم جديد لقاعدة البيانات موجود داخل جقل نصي , وتحديد المسار الذي سيتم وضع قاعدة البيانات به  وهو موجود ضمن حقل نصي 
هل هذا الامر ممكن  
ارجو افادتي وبارك الله فيكم

انا استعملت الكود التالي
Dim serverName As String = Txtservername.Text
Dim scriptFilePath As String = txtscriptpath.Text
Dim newDatabaseName As String = Txtdatabasename.Text
Dim databaseFolderPath As String = Txtdatabasemassar.Text
' Dim connectionString As String = "Data Source={serverName};Integrated Security=True;"
Dim connectionString As String = "Data Source=" & Txtservername.Text.Trim & ";Initial Catalog=master;Integrated Security=True"
Using connection As New SqlConnection(connectionString)
connection.Open()

Dim script As String = File.ReadAllText(scriptFilePath)
script = script.Replace("اسم_قاعدة_البيانات", newDatabaseName)

' 2. تنفيذ ملف السكربت لإنشاء الكائنات داخل قاعدة البيانات
Dim command As New SqlCommand(script, connection)
command.ExecuteNonQuery()
End Using

MessageBox.Show("تم إنشاء قاعدة البيانات '{newDatabaseName}' بنجاح.")
وكان هناك خطا كما يلي
Additional information: Database 'archeefdata' does not exist. Make sure that the name is entered correctly.
مع العلم ان اسم قاعدة البيانات الاصلية هو archeefdata
ما هو سبب المشكلة يا شباب

شاهد هذا المثال 

من هنا

المثال االاول مش شغال
المثال الثاني لا يفي بالغرض المطلوب

تفضل اخي هذا رابط جديد

من هنا

الرابط الاول مش شغال
الرابط الثاني لا يفي بالغرض المطلوب