انواع عملیات پایگاه داده DataBase

[aliebrahimi1900]

از همه دوستان تقاضا دارم مشکلاتو اصلاح کنن

فهرست




اول ساخت جدولها sqlserver به وصیله
ایجاد سطر جدید و وارد کردن اطلاعات به وصیله SqlCommand
واندن یک فیلد از جدول با PRIMARY KEY اون سطر
ویرایش یک فیلد از دیتا بیس به وسیله PRIMARY KEY
خواندن کل یا چند سطر از جدول و ریختن داخل دیتا تیبل و نمایش در DataGridView
استفاده از دیتا ست و ریلیشن و رابطه
ذخیره اطلاعات دیتا گرید داخل دیتا بیس
نمایش دو جدول دارای رابطه در یک دیتا ویو DataGridView
جستجوی یک رشته در دیتا بیس به وسیله دیتا ست و ذخیره نتایج در آرایه
چک کردن وجود یا عدم وجود یک فیلد شرط در دستور SQL
انتقال سطر انتخاب شده از گری ویو به یک گرید ویو دیگه
ساخت رکورد جدید و وارد کردن متغیرهای vb در فیلدهای جدول
تغیر دادن و به روز کردن فیلدهای جدول
حذف یک سطر از جدول
انتخاب اطلاعات در يک محدوده خاص
تغیر نام نمایشی ستونهای خوانده شده به وسیله دستور Select
ارتباط دو جدول دارای ارتباط
خواندن از دو فیلد و ترکیب با هم
ردیف شدن اطلاعات جدول بر اساس داده های یک فیلد
بک آپ و پشتیبان گیری از دیتا بیس
برگرداندن ریستور کردن بک آپ دیتا بیس
انتخاب بیشترین مقدار در یک فیلد
به دست آوردن مجموع اعداد یک فیلد در جدول
چند دستور sql , محاسبه جمع و میانگین دو فیلد از یک جدول وثبت در جدول دیگر
جستجوی زیر رشته در رشته های سطرهای جدول
اضافه کردن فیلد ( ستون ) جدید به جدول
auto-complete TextBox از دیتا بیس

[aliebrahimi1900]

اول ساخت دیتا بیس تو sqlserver به وصیله vb
این کانکشن مارو به دیتا بیس Master متصل میکنه(البته باید کانکشن استرینگ برای هر سیستم طراحی شه)

Dim conectionStringMain As String = "Data Source=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Master;Data Source=AONE-PC"

        Dim conDataBaseMain As SqlConnection = New SqlConnection(conectionStringMain)

        Dim comCreate As String = "CREATE DATABASE DataBaseName"

        conDataBaseMain.Open()

        Dim sqlComCreate As SqlCommand = New SqlCommand(comCreate, conDataBaseMain)

        sqlComCreate.ExecuteNonQuery()

        conDataBaseMain.Close()

[aliebrahimi1900]

دیتا بیس DataBaseName رو ساختیم (اگه ManagementStudio اس کیو ال روی سیستمتون باشه میتونید اسمشو مشاهده کنید)
ولی هر دیتا بیس باید یک یا چند جدول داشته باشه. ساخت دیتا بیس چون دیتابیسی وجود نداره باید کانکشنمونو برای اتصال به دیتا بیس Master که در SQL موجوده
بیسازیم ولی برای ساخت جدولها باید به دیتا بیس اصلی وصل شیم

 Dim ConnectionString As String = "Data Source=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DataBaseName;Data Source=AONE-PC"

        Dim Connection As SqlConnection = New SqlConnection(ConnectionString)

        Dim comCreateTable1 As String = "CREATE TABLE tableName (Name nvarchar(50),lName nvarchar(50),ID int PRIMARY KEY)"

        Dim comCreateTable2 As String = "CREATE TABLE tablePhone (PhoneNOm int,Address nvarchar(100),nID int,ID int PRIMARY KEY)"

        Dim sqlCom2 As SqlCommand = New SqlCommand(comCreateTable1, Connection)

        Dim sqlCom3 As SqlCommand = New SqlCommand(comCreateTable2, Connection)

        Connection.Open()

        sqlCom2.ExecuteNonQuery()

        sqlCom3.ExecuteNonQuery()

        Connection.Close()

[aliebrahimi1900]

ایجاد سطر جدید و وارد کردن اطلاعات به وصیله SqlCommand

  Dim comInsert1 As String = "Insert Into tableName (Name,lName) values ('Ali','Ebrahimi') "

        Dim sqlComInsert1 As SqlCommand = New SqlCommand(comInsert1, Connection)

        Dim comInsert2 As String = "Insert Into tablePhone (PhoneNOm,Address,nID) values (911111111,'Kerman',1) "

        Dim sqlComInsert2 As SqlCommand = New SqlCommand(comInsert2, Connection)

        Connection.Open()

        sqlComInsert1.ExecuteNonQuery()

        sqlComInsert2.ExecuteNonQuery()

        Connection.Close()

[aliebrahimi1900]

خواندن یک فیلد از جدول با PRIMARY KEY اون سطر

Dim comSelect As String = "Select Name From tableName Where ID = 1"

        Dim sqlComSelect As SqlCommand = New SqlCommand(comSelect, Connection)

        Connection.Open()

        Dim NameSt As String = sqlComSelect.ExecuteScalar().ToString

        Connection.Close()

    

[aliebrahimi1900]

ویرایش یک فیلد از دیتا بیس به وسیله PRIMARY KEY

 Dim comUpdate As String = "Update tableName Set Name = 'Reza' Where ID = 1"

        Dim sqlComUpdate As SqlCommand = New SqlCommand(comUpdate, Connection)

        Connection.Open()

        sqlComUpdate.ExecuteScalar()

        Connection.Close()

[aliebrahimi1900]

خواندن کل یا چند سطر از جدول و ریختن داخل دیتا تیبل و نمایش در DataGridView

  Dim comSelectA As String = "Select * From tableName"

        'or

        'Dim comSelectA As String = "Select Name,lName,ID From tableName"

        'or

        'Dim comSelectA As String = "Select Name,lName,ID From tableName Where Name = 'Ali'"

        Dim sqlComSelectA As SqlDataAdapter = New SqlDataAdapter(comSelectA, Connection)

        Dim DataTableName As New DataTable

        Connection.Open()

        sqlComSelectA.Fill(DataTableName)



        Connection.Close()

 DataGridView1.DataSource = DataTableName

[aliebrahimi1900]

استفاده از دیتا ست و ریلیشن

Private DataSetName As New DataSet

   Dim comSelectA As String = "Select * From tableName"

        Dim comSelectB As String = "Select * From tablePhone"

        Dim sqlComSelectA As SqlDataAdapter = New SqlDataAdapter(comSelectA, Connection)

        Dim sqlComSelectb As SqlDataAdapter = New SqlDataAdapter(comSelectB, Connection)

        Connection.Open()

        sqlComSelectA.Fill(DataSetName, "tableName")

        sqlComSelectb.Fill(DataSetName, "tablePhone")

        Connection.Close()

  DataSetName.Relations.Add("MyRelation", DataSetName.Tables("tableName").Columns("ID"), DataSetName.Tables("tablePhone").Columns("nID"))

        DataGridView1.DataSource = DataSetName

        DataGridView1.DataMember = "tableName"

در رویداد CellContentClick (روی دیتا گرید دابل کلیک کنیم میاد بالا) این کدو برای کار کردن ریلیشن مینویسیم

  DataSetName.Relations("MyRelation").ChildTable.Def  aultView.RowFilter = "nID=" & _

     DataGridView1.CurrentRow.Cells("ID").Value

        DataGridView2.DataSource = DataSetName.Relations("MyRelation").ChildTable

[aliebrahimi1900]

ذخیره اطلاعات دیتا گرید داخل دیتا بیس

Imports System.IO

Imports System.Data.SqlClient

Public Class frmName



    Private ConnectionString As String = "Data Source=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DataBaseName;Data Source=AONE-PC"

    Private Connection As SqlConnection = New SqlConnection(ConnectionString)

    Private ChAry(2, 0) As String

    Private ArySize As Integer = 1





    Private Sub frmName_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim comSelectA As String = "Select * From tableName"

        Dim sqlComSelectA As SqlDataAdapter = New SqlDataAdapter(comSelectA, Connection)

        Dim DataTableA As New DataTable

        Connection.Open()

        sqlComSelectA.Fill(DataTableA)

        Connection.Close()

        DataGridView1.DataSource = DataTableA

    End Sub



    Private Sub DataGridView1_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit

        ReDim Preserve ChAry(2, 0 To ArySize)

        ChAry(0, ArySize - 1) = DataGridView1.CurrentRow.Cells("ID").Value()

        ChAry(1, ArySize - 1) = DataGridView1.CurrentRow.Cells("Name").Value()

        ChAry(2, ArySize - 1) = DataGridView1.CurrentRow.Cells("lName").Value()

        ArySize += 1

    End Sub



    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click

        Connection.Open()

        For l = 0 To ArySize - 1

            Dim sqlSaveChengs As String = "Update tableName Set Name = '" + ChAry(1, l) + "' WHERE ID='" + ChAry(0, l) + "'"

            Dim sqlComn As SqlCommand = New SqlCommand(sqlSaveChengs, Connection)

            Dim sqlSaveChengs2 As String = "Update tableName Set lName = '" + ChAry(2, l) + "' WHERE ID='" + ChAry(0, l) + "'"

            Dim sqlComn2 As SqlCommand = New SqlCommand(sqlSaveChengs2, Connection)

            sqlComn.ExecuteScalar()

            sqlComn2.ExecuteScalar()

        Next

        Connection.Close()



 ReDim Preserve ChAry(2, 0 To 0)

        ArySize = 1



    End Sub





   

End Class

[aliebrahimi1900]

نمایش دو جدول دارای رابطه در یک دیتا ویو DataGridView

 Dim sqls As String = "Select * FROM tableName FULL JOIN tablePhone ON tableName.ID=tablePhone.nID"

        Dim dadapter As New SqlDataAdapter(sqls, Connection)

        Connection.Open()

        Dim DataTableName As New DataTable

        dadapter.Fill(DataTableName)

        Connection.Close()

        DataGridView1.DataSource = DataTableName

[aliebrahimi1900]

جستجوی یک رشته در دیتا بیس به وسیله دیتا ست و ذخیره نتایج در آرایه

   Dim comSelectA As String = "Select * From tableName"

        Dim sqlComSelectA As SqlDataAdapter = New SqlDataAdapter(comSelectA, Connection)

        Dim DataTableName As New DataTable

        Connection.Open()

        sqlComSelectA.Fill(DataTableName)

        Connection.Close()

جستجو

 Dim ary(0) As String

        Dim ArySize As Integer = 0

        For Each dRow As DataRow In DataTableName.Rows

            If (dRow.Item("Name").ToString = "Ali") Then

                ReDim Preserve ary(0 To ArySize)

                ary(ArySize) = dRow.Item("ID").ToString

                ArySize += 1

            End If

            

        Next

[niknam_mh]

دوست عزیز بسیار عالی است.

[hosseinbarnamenevis]

سلام
چجوری میشه بوسیله کد sql express یا sqlite رو ساخت؟

[emilly]

سلام دوست
ببخشید اینجا سوال میپرسم
من یه همچنینن select یی رو نوشتم تا اگه مقدار م توی دیتا بیس موجود باشه یه پیغامی بده اما درست جواب نمیده میشه یه رهنمایی بکنین

dim a as string ="select id from T1 where id=1"

dim b as sqlcommand=new sqlcommand(a,connection)

connection.open()

if a=true then

msgbox("ok")

end if

[ebrahim.rayatparvar]

سلام دوست
ببخشید اینجا سوال میپرسم
من یه همچنینن select یی رو نوشتم تا اگه مقدار م توی دیتا بیس موجود باشه یه پیغامی بده اما درست جواب نمیده میشه یه رهنمایی بکنین

dim a as string ="select id from T1 where id=1"

dim b as sqlcommand=new sqlcommand(a,connection)

connection.open()

if a=true then

msgbox("ok")

end if

کانکشن شما به چه صورتی نوشته شده و مقدار a رو به این صورت بنویس ببین جواب میده :

"dim a as string = select id from T1 where id = '1'"

[emilly]

سلام دوست عزیز
خودم فکرمیکنم ایراد باید توی if ام باشه چون وقتی که نتیجه select ام داخل a ریخته میشه وقتی که من میام توی if بررسی میکنم که آیا نتیجه پیدا شده یا نه نمیتونه این رو بفهمه ، توی if چطور بررسی کنم که آیا مقدارم توی دیتا بیسم پیدا شده یا نه ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟/

[aliebrahimi1900]

به این صورت امتحان کن

        Dim a As String = "select id from T1 where id=1"

        Dim b As SqlCommand = New SqlCommand(a, Connection)

        Connection.Open()

        Dim c As String = b.ExecuteScalar().ToString



        If b <> vbNullString Then

            MsgBox("ok")

        End If

[aliebrahimi1900]

سلام دوست
ببخشید اینجا سوال میپرسم
من یه همچنینن select یی رو نوشتم تا اگه مقدار م توی دیتا بیس موجود باشه یه پیغامی بده اما درست جواب نمیده میشه یه رهنمایی بکنین

dim a as string ="select id from T1 where id=1"

dim b as sqlcommand=new sqlcommand(a,connection)

connection.open()

if a=true then

msgbox("ok")

end if

Dim a As String = "select id from T1 where id=1"

Dim b As SqlCommand = New SqlCommand(a, Connection)

Connection.Open()

Dim c As String = b.ExecuteScalar().ToString

 

If b <> vbNullString Then

    MsgBox("ok")

End If

[emilly]

سلام

برای b این خطا رو داد

Error    1    Value of type 'System.Data.SqlClient.SqlCommand' cannot be converted to 'String'.        

[aliebrahimi1900]

سلام

برای b این خطا رو داد

Error    1    Value of type 'System.Data.SqlClient.SqlCommand' cannot be converted to 'String'.        

سلام دوست
ببخشید اینجا سوال میپرسم
من یه همچنینن select یی رو نوشتم تا اگه مقدار م توی دیتا بیس موجود باشه یه پیغامی بده اما درست جواب نمیده میشه یه رهنمایی بکنین

dim a as string ="select id from T1 where id=1"

dim b as sqlcommand=new sqlcommand(a,connection)

connection.open()

if a=true then

msgbox("ok")

end if

Dim a As String = "select id from T1 where id=1"

Dim b As SqlCommand = New SqlCommand(a, Connection)

Connection.Open()

Dim c As String = b.ExecuteScalar().ToString

 

If c <> vbNullString Then

    MsgBox("ok")

End If

درستش کردم اشتباه تایپی بود

[aliebrahimi1900]

دوست عزیز بسیار عالی است.

ممنون
تشکر

[emilly]

تشکر
آره حالا وقتی که مقدار توی دیتابیس هستش ok رو میده ولی وقتی مقدار select ام null هستش واسه

Dim c As String = b.ExecuteScalar().ToString

خطا میده !!!!!!!!!!!!!!!!!!!!!!!

[aliebrahimi1900]

سلام
چجوری میشه بوسیله کد sql express یا sqlite رو ساخت؟

دوست عزیز من تا حالا ندیدم
فکر کنم نشه باید نصب کرد

[emilly]

خیلی ممنون که حوصله به خرج دادین و کمک کردین

[aliebrahimi1900]

تشکر
آره حالا وقتی که مقدار توی دیتابیس هستش ok رو میده ولی وقتی مقدار select ام null هستش واسه

Dim c As String = b.ExecuteScalar().ToString

خطا میده !!!!!!!!!!!!!!!!!!!!!!!

چه خطایی ؟

[emilly]

از دستور try catch برای رفع خطام استفاده کردم حال نمیدونم تا چه اندازه راه درستی یا اشتباهی باشه؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[emilly]

NullReference Exception was unhandled by user code

[aliebrahimi1900]

چک کردن وجود یا عدم وجود یک فیلد
شرط در دستور SQL

       Dim comSelectA As String = "declare @Counter char(50) ; select @Counter  = Name from tableName where ID = 1 ; IF @Counter <> 'NULL' set @Counter = 'True' else set @Counter = 'False'; Select @Counter"

        

        Dim sqlComSelectA As SqlCommand = New SqlCommand(comSelectA, Connection)

        Connection.Open()

        Dim a As String = sqlComSelectA.ExecuteScalar

        Connection.Close()

[aliebrahimi1900]

انتقال سطر انتخاب شده از گری ویو به یک گرید ویو دیگه

ابتدا یک متغیر عددی تعریف میکنیم سطر های به وجود اومده رو بشمارد

    Private Counter As Integer = 0

برای اد کردن کلومن ها وا وارد کردن اطلاعات

 Dim b As Integer = DataGridView1.Columns.Count

        Dim c As Integer = DataGridView2.Columns.Count

        If c = 0 Then

            For i = 0 To b - 1

                Dim Name As String = DataGridView1.Columns.Item(i).Name.ToString()

                DataGridView2.Columns.Add(Name, Name)

            Next

        End If

        DataGridView2.Rows.Add(1)

        Dim ali As Integer = DataGridView2.Rows.Count - 1

        Dim f As String = Trim(DataGridView2.Columns.Item(0).Name.ToString)

        DataGridView2.CurrentCell = DataGridView2(f, ali)

        For i = 0 To b - 1

            Dim Name As String = DataGridView2.Columns.Item(i).Name.ToString()

            Dim aqz As String = DataGridView1.CurrentRow.Cells(Name).Value.ToStrin  g

            DataGridView2.Rows(Counter).Cells(Name).Value = aqz

        Next

        Counter += 1

[aliebrahimi1900]

ساخت رکورد جدید و وارد کردن متغیرهای vb در فیلدهای جدول

 Dim Name As String = "علی"

        Dim LName As String = "ابراهیمی"

        Dim sqlString As String = "Insert into tblName(Name,lName)values(N'" + Name + "',N'" + LName + "')"

        Dim com As SqlCommand = New SqlCommand(sqlString, Connection)

        Connection.Open()

        com.ExecuteScalar()

        Connection.Close()

[aliebrahimi1900]

تغیر دادن و به روز کردن فیلدهای جدول

 Dim Name As String = "علی"

        Dim LName As String = "ابراهیمی"

        Dim sqlString As String = "Update tblName Set Name = N'" + Name + "',lName = N'" + LName + "' Where ID = 1"

        Dim com As SqlCommand = New SqlCommand(sqlString, Connection)

        Connection.Open()

        com.ExecuteScalar()

        Connection.Close()

[aliebrahimi1900]

حذف یک سطر از جدول

        Dim Connection As SqlConnection = New SqlConnection(ConnectionString)

        Dim sqlString As String = "Delete From tblName Where ID = 1"

        Dim com As SqlCommand = New SqlCommand(sqlString, Connection)

        Connection.Open()

        com.ExecuteScalar()

        Connection.Close()

[aliebrahimi1900]

انتخاب اطلاعات در يک محدوده خاص
، در بين دو مقدار تعيين شده<br>این دستور کلیه Name هارو از جدول tblName که ID اونا بین 5 و 30 هستش میخونه و در دیتا تیبل dTable فیلد میکنه

     Dim sqlString As String = "Select Name From tblName Where ID Between 5 And 30"

        Dim com As SqlDataAdapter = New SqlDataAdapter(sqlString, Connection)

        Dim dTable As New DataTable

        Connection.Open()

        com.Fill(dTable)

        Connection.Close()

[aliebrahimi1900]

تغیر نام نمایشی ستونهای خوانده شده به وسیله دستور Select
در مثال زیر ستونها Name , lName خوانده شده و بالای اونها نام و فامیل نمایش داده میشود

        Dim sqlString As String = "Select Name As 'نام' ,lName As 'فامیل' From tblName"

        Dim com As SqlDataAdapter = New SqlDataAdapter(sqlString, Connection)

        Dim dTable As New DataTable

        Connection.Open()

        com.Fill(dTable)

        Connection.Close()

[aliebrahimi1900]

ارتباط دو جدول دارای ارتباط
در مثال زیر Name,lName از جدول tblName و PhoneNon,Address از جدول tablePhone در صورت داشتن رابطه استخراج میشن

        Dim sqlString As String = "Select tblName.Name,tblName.lName,tablePhone.PhoneNon,tab  lePhone.Address From tblName,tablePhone Where tblName.ID = tablePhone.nID"

        Dim com As SqlDataAdapter = New SqlDataAdapter(sqlString, Connection)

        Dim dTable As New DataTable

        Connection.Open()

        com.Fill(dTable)

        Connection.Close()

[aliebrahimi1900]

خواندن از دو فیلد و ترکیب با هم
union

        Dim sqlString As String = "Select Name From tblName Where ID = 1 Union Select Name From tblName Where ID = 2"

        'or

        'Dim sqlString As String = "Select Name From tblName Where ID = 1 Union Select lName From tblName Where ID = 1"

        'or

        'Dim sqlString As String = "Select Name From tblName Where ID = 1 Union Select PhoneNom From tblPhone Where nID = 1"

        Dim com As SqlCommand = New SqlCommand(sqlString, Connection)

        Connection.Open()

        Dim aa As String = com.ExecuteScalar

        Connection.Close()

[aliebrahimi1900]

ردیف شدن اطلاعات جدول بر اساس داده های یک فیلد
Order By

 Connection.Open()

   Dim dTable As New DataTable

        Dim DataAdapter As SqlDataAdapter = New SqlDataAdapter(New SqlCommand("SELECT * FROM PhoneTable Order By PhoneNom", Connection))

          DataAdapter.Fill(dTable )

Connection.Close()

[aliebrahimi1900]

بک آپ و پشتیبان گیری از دیتا بیس

     Dim s As String = "BACKUP DATABASE DdataBaseName TO DISK = 'BackUpDdataBaseName.bak';"



        Dim dCom As SqlCommand = New SqlCommand(s, Connection)

        Connection.Open()



        dCom.ExecuteNonQuery()

        Connection.Close()

این دستور یک فایل پشتیبان از دیتا بیسمون به مسیر ........\Microsoft SQL Server\MSSQL12.MSSQLSERVER\MSSQL\BackUpDdataBaseNa me.bak
میسازه که میشه جابجا کرد یا رستور کرد

[aliebrahimi1900]

برگرداندن ریستور کردن بک آپ دیتا بیس

Connection.Open()

        Dim s As String = "RESTORE DATABASE DdataBaseName FROM DISK = 'BackUpDdataBaseName.bak';"

      

        Dim dAda As SqlCommand = New SqlCommand(s, Connection)





        dAda.ExecuteNonQuery()

        Connection.Close()

برای برگرداندن ابتدا باید فایل بک آپ رو به این آذرس انتقال بعد ریستور کرد
........\Microsoft SQL Server\MSSQL12.MSSQLSERVER\MSSQL\BackUpDdataBaseNa me.bak

این کارو میتونید با کد انجام بدید بعد ریستور کنید بعد فایل کپی شده رو پاک کنید

 Dim p As String = "f:\BackUpDdataBaseName.bak"

        FileCopy(p, "C:\Program Files\Microsoft SQL Server\MSSQL12.MSSQLSERVER\MSSQL\Backup\BackUpDdat  aBaseName.bak")

        Connection.Open()

        Dim s As String = "RESTORE DATABASE DdataBaseName FROM DISK = 'BackUpDdataBaseName.bak';"

      

        Dim dAda As SqlCommand = New SqlCommand(s, Connection)





        dAda.ExecuteNonQuery()

        Connection.Close()

        My.Computer.FileSystem.DeleteFile("C:\Program Files\Microsoft SQL Server\MSSQL12.MSSQLSERVER\MSSQL\Backup\BackUpDdat  aBaseName.bak")

[aliebrahimi1900]

برگرداندن ریستور کردن بک آپ دیتا بیس

Connection.Open()

        Dim s As String = "RESTORE DATABASE DdataBaseName FROM DISK = 'BackUpDdataBaseName.bak';"

      

        Dim dAda As SqlCommand = New SqlCommand(s, Connection)





        dAda.ExecuteNonQuery()

        Connection.Close()

برای برگرداندن ابتدا باید فایل بک آپ رو به این آذرس انتقال بعد ریستور کرد
........\Microsoft SQL Server\MSSQL12.MSSQLSERVER\MSSQL\BackUpDdataBaseNa me.bak

این کارو میتونید با کد انجام بدید بعد ریستور کنید بعد فایل کپی شده رو پاک کنید
مثال

 Dim p As String = "f:\BackUpDdataBaseName.bak"

        FileCopy(p, "C:\Program Files\Microsoft SQL Server\MSSQL12.MSSQLSERVER\MSSQL\Backup\BackUpDdat  aBaseName.bak")

        Connection.Open()

        Dim s As String = "RESTORE DATABASE DdataBaseName FROM DISK = 'BackUpDdataBaseName.bak';"

      

        Dim dAda As SqlCommand = New SqlCommand(s, Connection)





        dAda.ExecuteNonQuery()

        Connection.Close()

        My.Computer.FileSystem.DeleteFile("C:\Program Files\Microsoft SQL Server\MSSQL12.MSSQLSERVER\MSSQL\Backup\BackUpDdat  aBaseName.bak")