+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : انشاء القاعدة سكول في مسار محدد (/showthread.php?tid=45695)
انشاء القاعدة سكول في مسار محدد - atefkhalf2004 - 16-03-23
السادة الزملاء
هذا سكربت ينشء القاعدة علي المسار داخل السكول في القرص c
كيف يتم الانشاء [attachment=28762]في مسار معين وليكن مسار البرنامج (بجوار الملف التنفيذي)
هل التعديل في الاسكربت
ام في كود الفيجوال
PHP كود :
Sub CreateDB()
'Try
con = New SqlConnection("Data source=" & cmbServerName.Text & ";Initial Catalog=master;Integrated Security=True;")
con.Open()
Dim cb2 As String = "Select * from sysdatabases where name='RPOS_DB'"
cmd = New SqlCommand(cb2)
cmd.Connection = con
rdr = cmd.ExecuteReader()
If rdr.Read() Then
con = New SqlConnection("Data source=" & cmbServerName.Text & ";Initial Catalog=master;Integrated Security=True;")
con.Open()
Dim cb1 As String = "Drop Database RPOS_DB"
cmd = New SqlCommand(cb1)
cmd.Connection = con
cmd.ExecuteNonQuery()
con.Close()
'Try
con = New SqlConnection("Data source=" & cmbServerName.Text & ";Initial Catalog=master;Integrated Security=True;")
con.Open()
Dim cb As String = "Create Database " & Application.StartupPath & "\RPOS_DB"
cmd = New SqlCommand(cb)
cmd.Connection = con
cmd.ExecuteNonQuery()
con.Close()
Using sr As StreamReader = New StreamReader(Application.StartupPath & "\DBScript.sql")
st = sr.ReadToEnd()
Dim server As New Server(New ServerConnection(con))
server.ConnectionContext.ExecuteNonQuery(st)
End Using
'Catch ex As Exception
' MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
'End Try
Else
con = New SqlConnection("Data source=" & cmbServerName.Text & ";Initial Catalog=master;Integrated Security=True;")
con.Open()
Dim cb3 As String = "Create Database " & Application.StartupPath & "\RPOS_DB"
cmd = New SqlCommand(cb3)
cmd.Connection = con
cmd.ExecuteNonQuery()
con.Close()
Using sr As StreamReader = New StreamReader(Application.StartupPath & "\DBScript.sql")
st = sr.ReadToEnd()
Dim server As New Server(New ServerConnection(con))
server.ConnectionContext.ExecuteNonQuery(st)
End Using
End If
'Catch ex As Exception
' MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
'Finally
' If (con.State = ConnectionState.Open) Then
' con.Close()
' End If
'End Try
RE: انشاء القاعدة سكول في مسار محدد - boudyonline - 16-03-23
PHP كود :
Dim str As String
Dim myConn As SqlConnection = New SqlConnection("Server=(local)\netsdk;uid=sa;pwd=;database=master")
str = "CREATE DATABASE MyDatabase ON PRIMARY (NAME = MyDatabase_Data, FILENAME = 'D:\MyFolder\MyDatabaseData.mdf', " & _
"SIZE = 2MB, MAXSIZE = 10MB, FILEGROWTH = 10%) LOG ON (NAME = MyDatabase_Log, " & _
"FILENAME = 'D:\MyFolder\MyDatabaseLog.ldf', SIZE = 1MB, MAXSIZE = 5MB, FILEGROWTH = 10%) "
Dim myCommand As SqlCommand = New SqlCommand(str, myConn)
Try
myConn.Open()
myCommand.ExecuteNonQuery()
MessageBox.Show("Database is created successfully","MyProgram", MessageBoxButtons.OK,MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.ToString())
Finally
If (myConn.State = ConnectionState.Open) Then
myConn.Close()
End If
End Try
RE: انشاء القاعدة سكول في مسار محدد - atefkhalf2004 - 16-03-23
شكرا لك
كثيرا
منتدي متميز
جاري التجربة
تم التنفيذ
تمام الكود
شكرا لك
ادي الهدف تماما
RE: انشاء القاعدة سكول في مسار محدد - atefkhalf2004 - 16-03-23
استأذن حضرتك في
لو عايز اضعه في مجلد البرنامج
جربت
Dim dbdbname As String = Application.StartupPath & "\MyOrder_DB.mdf"
ولم ينجح
عايز ابدل المكان بدلا من d
RE: انشاء القاعدة سكول في مسار محدد - atefkhalf2004 - 16-03-23
برجاء ايضا
كيفية تنفيذ الاسكربت الخاص بانشاء الجداول
شكرا
PHP كود :
Sub CreateDB()
'Try
Dim aaaa As String = Application.StartupPath & "\MyOrder_DB.mdf"
Dim bbbb As String = Application.StartupPath & "\MyOrder_DB.ldf"
Dim st1, st2 As String
con = New SqlConnection("Data source=" & cs.Text & ";Initial Catalog=master;Integrated Security=True;")
con.Open()
Dim cb2 As String = "Select * from sysdatabases where name='MyOrder_DB'"
cmd = New SqlCommand(cb2)
cmd.Connection = con
rdr = cmd.ExecuteReader()
If rdr.Read() Then
con = New SqlConnection("Server=(local)\netsdk;uid=sa;pwd=;database=master")
con = New SqlConnection("Data source=" & cs.Text & ";Initial Catalog=master;Integrated Security=True;")
con.Open()
Dim cb1 As String = "Drop Database MyOrder_DB"
cmd = New SqlCommand(cb1)
cmd.Connection = con
cmd.ExecuteNonQuery()
con.Close()
'Try
con = New SqlConnection("Data source=DESKTOP-CBTJVUG;Initial Catalog=master;Integrated Security=True;")
con.Open()
'Dim cb As String = "Create Database " & Application.StartupPath & "\MyOrder_DB COLLATE Arabic_100_CI_AI"
Dim cb As String = "Create Database MyOrder_DB ON PRIMARY (NAME = MyOrder_DB, FILENAME ='" & aaaa & "' ) LOG ON (NAME = MyOrder_DB_Log, FILENAME ='" & bbbb & "' ) "
cmd = New SqlCommand(cb)
cmd.Connection = con
cmd.ExecuteNonQuery()
con.Close()
Using sr As StreamReader = New StreamReader(Application.StartupPath & "\scriptnew.sql")
st1 = sr.ReadToEnd()
Dim server As New Server(New ServerConnection(con))
server.ConnectionContext.ExecuteNonQuery(st1)
MsgBox("1")
End Using
'Catch ex As Exception
' MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
'End Try
Else
' Dim str As String
' Dim myConn As SqlConnection = New SqlConnection("Server=(local)\netsdk;uid=sa;pwd=;database=master")
' str = "CREATE DATABASE MyDatabase ON PRIMARY (NAME = MyDatabase_Data, FILENAME = 'D:\MyFolder\MyDatabaseData.mdf', " &
'"SIZE = 2MB, MAXSIZE = 10MB, FILEGROWTH = 10%) LOG ON (NAME = MyDatabase_Log, " &
'"FILENAME = 'D:\MyFolder\MyDatabaseLog.ldf', SIZE = 1MB, MAXSIZE = 5MB, FILEGROWTH = 10%) "
' Dim myCommand As SqlCommand = New SqlCommand(str, myConn)
'Try
' myConn.Open()
' myCommand.ExecuteNonQuery()
' MessageBox.Show("Database is created successfully", "MyProgram", MessageBoxButtons.OK, MessageBoxIcon.Information)
'Catch ex As Exception
' MessageBox.Show(ex.ToString())
'Finally
' If (myConn.State = ConnectionState.Open) Then
' myConn.Close()
' End If
'End Try
'con = New SqlConnection("Server=(local)\netsdk;uid=sa;pwd=;database=master")
con = New SqlConnection("Data source=" & cs.Text & ";Initial Catalog=master;Integrated Security=True;")
con.Open()
'Dim cb3 As String = "Create Database MyOrder_DB "
Dim cb3 As String = "Create Database MyOrder_DB ON PRIMARY (NAME = MyOrder_DB, FILENAME ='" & aaaa & "' ) LOG ON (NAME = MyOrder_DB_Log, FILENAME ='" & bbbb & "' ) "
'File.WriteAllText(Application.StartupPath & "\", cb3)
cmd = New SqlCommand(cb3)
cmd.Connection = con
cmd.ExecuteNonQuery()
con.Close()
MsgBox("2")
Using sr As StreamReader = New StreamReader(Application.StartupPath & "\scriptnew.sql")
st2 = sr.ReadToEnd()
Dim server As New Server(New ServerConnection(con))
server.ConnectionContext.ExecuteNonQuery(st2)
End Using
End If
'Catch ex As Exception
' MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
'Finally
' If (con.State = ConnectionState.Open) Then
' con.Close()
' End If
'End Try
End Sub
برجاء التعديل
متبقي هذه النقطة
برجاء حل الموضوع
شكرا لكم جميعا
RE: انشاء القاعدة سكول في مسار محدد - atefkhalf2004 - 16-03-23
Additional information: Could not load file or assembly 'Microsoft.SqlServer.BatchParser, Version=10.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91' or one of its dependencies. The system cannot find the file specified.
ه1ا هو نص الرسالة الخطا
RE: انشاء القاعدة سكول في مسار محدد - DanSmith - 17-04-23
(16-03-23, 01:22 PM)atefkhalf2004 كتب : السادة الزملاء
هذا سكربت ينشء القاعدة علي المسار داخل السكول في القرص c
كيف يتم الانشاء في مسار معين وليكن مسار البرنامج (بجوار الملف التنفيذي)
هل التعديل في الاسكربت
ام في كود الفيجوال
PHP كود :
Sub CreateDB()
'Try
con = New SqlConnection("Data source=" & cmbServerName.Text & ";Initial Catalog=master;Integrated Security=True;")
con.Open()
Dim cb2 As String = "Select * from sysdatabases where name='RPOS_DB'"
cmd = New SqlCommand(cb2)
cmd.Connection = con
rdr = cmd.ExecuteReader()
If rdr.Read() Then
con = New SqlConnection("Data source=" & cmbServerName.Text & ";Initial Catalog=master;Integrated Security=True;")
con.Open()
Dim cb1 As String = "Drop Database RPOS_DB"
cmd = New SqlCommand(cb1)
cmd.Connection = con
cmd.ExecuteNonQuery()
con.Close()
'Try
con = New SqlConnection("Data source=" & cmbServerName.Text & ";Initial Catalog=master;Integrated Security=True;")
con.Open()
Dim cb As String = "Create Database " & Application.StartupPath & "\RPOS_DB"
cmd = New SqlCommand(cb)
cmd.Connection = con
cmd.ExecuteNonQuery()
con.Close()
Using sr As StreamReader = New StreamReader(Application.StartupPath & "\DBScript.sql")
st = sr.ReadToEnd()
Dim server As New Server(New ServerConnection(con))
server.ConnectionContext.ExecuteNonQuery(st)
End Using
'Catch ex As Exception
' MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
'End Try
Else
con = New SqlConnection("Data source=" & cmbServerName.Text & ";Initial Catalog=master;Integrated Security=True;")
con.Open()
Dim cb3 As String = "Create Database " & Application.StartupPath & "\RPOS_DB"
cmd = New SqlCommand(cb3)
cmd.Connection = con
cmd.ExecuteNonQuery()
con.Close()
Using sr As StreamReader = New StreamReader(Application.StartupPath & "\DBScript.sql")
st = sr.ReadToEnd()
Dim server As New Server(New ServerConnection(con))
server.ConnectionContext.ExecuteNonQuery(st)
End Using
End If
'Catch ex As Exception
' MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
'Finally
' If (con.State = ConnectionState.Open) Then
' con.Close()
' End If
'End Try
شكرا جدا كنت ابحث عن هذا الكود من زمان شكرا كثيرا