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

[aliebrahimi1900]

انتخاب بیشترین مقدار در یک فیلد

  Dim sql As String = "Select MAX(PhoneNom) from tblPhone"

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



        Connection.Open()



        Dim max As String = dAda.ExecuteScalar().ToString



        Connection.Close()

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

جستجوی زیر رشته در رشته های سطرهای جدول
انتخاب فیلدهای رشته ای دارای زیر رشته مورد نظر

در زیر نام سطرهایی که در فیلد Name رشته های شامل "Al" میباشند انتخاب شده اند

 Dim sql As String = "Select Name From tableName Where Name like '%Al%'"

        Dim dAda As SqlDataAdapter = New SqlDataAdapter(sql, Connection)

        Dim table As New DataTable

        dAda.Fill(table)

        DataGridView1.DataSource = table

[h.gheidrlou]

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

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(1, 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]

دوست عزیز سیستم دم دست نیست این برنامه مبدل vb به C#‎ هستش دانلود کن این سورسو تبدیل کن دقیقه یه خورده باید سورس تبدیل شده رو درستش کنی اگه باز مشکل داشتی من عصر خونم برات درستش میکنم
http://p30download.com/fa/entry/54527/

[armin001]

یه سوال
سلام
مگه primary key نباید خودش تکمیل بشه پس چرا تو این کد ارور میده که ID خالیه؟

Friend con As SqlConnection = New SqlConnection("Data Source=(LocalDB)\v11.0;AttachDbFilename=" & My.Application.Info.DirectoryPath & "\GameData.mdf;Integrated Security=True;Connect Timeout=30")    Friend cmd As SqlCommand

     cmd = New SqlClient.SqlCommand("Insert Into Account (RealName,AccountName,AccountPass) Values ('" & txtRName.Text & "','" & txtUser.Text & "','" & txtPass.Text & "') ", con)

                con.Open()

                cmd.ExecuteNonQuery()

                con.Close()

توجه کنید توی تعریف تیبل id به صورت primary key تعریف شده

با تشکر

[aliebrahimi1900]

دوست عزیز این به ایجاد دیتا بیس و جدول بستگی داره که فیلد ID که PRIMARY KEY هستش رو به صورت IDENTITY تعریف کرده باشید یا خیر
اگه IDENTITY باشه خودش بهش یه ID میده که به ID قبلی یه دونه اضافه کرده
در غیر این صورت اگه IDENTITY نباشه باید حتما در زمان ایجاد سطر جدید به ID هم مقدار بدی

موفق باشید

[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()

[s12345]

پروژه بسیار عالی برای درس پایگاه داده همراه با ER
http://bia2projeh.ir/product/380/%D9...%87%D8%A7.html
http://bia2projeh.ir/product/379/%D9...%AF%D9%87.html

[mehran27]

دوست عزیز این به ایجاد دیتا بیس و جدول بستگی داره که فیلد ID که PRIMARY KEY هستش رو به صورت IDENTITY تعریف کرده باشید یا خیر
اگه IDENTITY باشه خودش بهش یه ID میده که به ID قبلی یه دونه اضافه کرده
در غیر این صورت اگه IDENTITY نباشه باید حتما در زمان ایجاد سطر جدید به ID هم مقدار بدی

موفق باشید

سلام
ممنون اطلاعات خوبی رو در اختیارمون گذاشتید
یه سوال چوری اینکارو بکنیم،

IDENTITY

[hs3568]

خیلی عالی بود .تشکر از پست خوبتون

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

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