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

[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]

ارتباط دو جدول دارای ارتباط
در مثال زیر 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")

[aliebrahimi1900]

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

  Dim comSelect As String = "Select Sum(PhoneNom) From tablePhone"

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

        Connection.Open()

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

        Connection.Close()

[aliebrahimi1900]

چند دستور sql
محاسبه جمع و میانگین دو فیلد از یک جدول وثبت در جدول دیگر

در این مثال دو جدول داریم به نامهای tableNameJam و tableNameHesab که در جدول حساب حسابهای شخص با یک آیدی مشخص نگه میداریم و در جدول دوم پیوسته جمع حساب و میانگین حساب شخص رو نگه میداریم

  Dim ID As String = "1"

        Dim SQLSTR As String = "DECLARE @ID int ;set @ID = " + ID + ";Update tableNameJam Set jameHesabFildName = (Select Sum(hesabFildName1) From tableNameHesab Where ID = @ID)," _

                               + "mianginHesabFildName = (Select Avg(hesabFildName1) From tableNameHesab Where ID = @ID) Where nID = @ID ;"

        Dim sqlcom As SqlCommand = New SqlCommand(SQLSTR, Connection)



        Connection.Open()

        sqlcom.ExecuteScalar()

        Connection.Close()

[aliebrahimi1900]

اضافه کردن فیلد ( ستون ) جدید به جدول

 Dim comAddF As String = "ALTER TABLE tblName ADD columnName NVARCHAR(20) NULL"

        Dim sqlComAddF As SqlCommand = New SqlCommand(comAddF, Connection)

        Connection.Open()

        sqlComAddF.ExecuteScalar()

        Connection.Close()

[aliebrahimi1900]

auto-complete TextBox از دیتا بیس
یک textbox داریم که می خواهیم زمانی که کاربر داخل آن تایپ میکند برنامه گزینه ها رو از داخل دیتا بیس پیش بینی کند
کد زیر را در قسمت لود فورم مینویسیم

 Dim comSelectA As String = "Select Name From tableName"



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

        Dim DataTableName As New DataTable

        Connection.Open()

        sqlComSelectA.Fill(DataTableName)



        Connection.Close()



 Dim MySource As New AutoCompleteStringCollection()



        For Each item As DataRow In DataTableName.Rows



            MySource.AddRange(New String() _

                            {

                          item(0).ToString

                            })





        Next



 With TextBox1

            .AutoCompleteCustomSource = MySource

            .AutoCompleteMode = AutoCompleteMode.SuggestAppend

            .AutoCompleteSource = AutoCompleteSource.CustomSource



        End With

[grease-trap]

با سپاس فروان مطالب عالی هستن واقعا مرسی برادر گرامی .