تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مجموعة اكواد جديدة
#1
هذه مجموعة من اكواد فيجول بيسك دوت نيت ممكن ان يستفاد منها اخواننا في المنتدى وهي اول مشاركة لي

Imports System.Data.OleDb

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim connetionString As String

        Dim cnn As OleDbConnection

        Dim cmd As OleDbCommand

        Dim sql As String



        connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Your mdb filename;"

        sql = "Your SQL Statement Here"



        cnn = New OleDbConnection(connetionString)

        Try

            cnn.Open()

            cmd = New OleDbCommand(sql, cnn)

            cmd.ExecuteNonQuery()

            cmd.Dispose()

            cnn.Close()

            MsgBox(" ExecuteNonQuery in OleDbConnection executed !!")

        Catch ex As Exception

            MsgBox("Can not open connection ! ")

        End Try

    End Sub

End Class

===================================
الكود الثاني
ExecuteNonQuery

ExecuteReader : ExecuteReader used for getting the query results as a DataReader object. It is readonly forward only retrieval of records and it uses select command to read through the table from the first to the last.

  Dim reader As SqlDataReader
  reader = Command.ExecuteReader()
  While reader.Read()
    MsgBox(reader.Item(0))
  End While

  reader.Close()

ExecuteNonQuery : ExecuteNonQuery used for executing queries that does not return any data. It is used to execute the sql statements like update, insert, delete etc. ExecuteNonQuery executes the command and returns the number of rows affected.

  Dim retValue As Integer
  Command = New SqlCommand(Sql, Connection)

  retValue = Command.ExecuteNonQuery()
================================================
الكود الثالث 
Imports System.Data.SqlClient

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim connetionString As String

        Dim cnn As SqlConnection

        Dim cmd As SqlCommand

        Dim sql As String



        connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"

        sql = "Your SQL Statement Here like Select Count(*) from product"



        cnn = New SqlConnection(connetionString)

        Try

            cnn.Open()

            cmd = New SqlCommand(sql, cnn)

            Dim count As Int32 = Convert.ToInt32(cmd.ExecuteScalar())

            cmd.Dispose()

            cnn.Close()

            MsgBox(" No. of Rows " & count)

        Catch ex As Exception

            MsgBox("Can not open connection ! ")

        End Try

    End Sub

End Class


==========================================
الكود الرابع
Imports System.Data.SqlClient

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim connetionString As String

        Dim sqlCnn As SqlConnection

        Dim sqlCmd As SqlCommand

        Dim sql As String



        connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"

        sql = "Select top 2 * from product; select top 2 * from ordermaster; select top 2 * from orderdetails"



        sqlCnn = New SqlConnection(connetionString)

        Try

            sqlCnn.Open()

            sqlCmd = New SqlCommand(sql, sqlCnn)

            Dim sqlReader As SqlDataReader = sqlCmd.ExecuteReader()

            While sqlReader.Read()

                MsgBox("From first SQL -  " & sqlReader.Item(0) & "  -  " & sqlReader.Item(1))

            End While



            sqlReader.NextResult()



            While sqlReader.Read()

                MsgBox("From second SQL -  " & sqlReader.Item(0) & "  -  " & sqlReader.Item(1))

            End While



            sqlReader.NextResult()



            While sqlReader.Read()

                MsgBox("From third SQL -  " & sqlReader.Item(0) & "  -  " & sqlReader.Item(1))

            End While



            sqlReader.Close()

            sqlCmd.Dispose()

            sqlCnn.Close()

        Catch ex As Exception

            MsgBox("Can not open connection ! ")

        End Try

    End Sub

End Class
الرد }}}
تم الشكر بواسطة: أبو عمر , أبو عمر
#2
معذرا هى الاكواد دى خاصة بايه
ياريت من فضللك توضح كل كود من الاكواد ممكن يستخدم فى ايه
وشكرا على مجهودك
الرد }}}
تم الشكر بواسطة:
#3
شكرآ ، لـك ، ي ، وحـشَ ،

ولكــن ، مع ، الأسسـف ، موضوعـك ، ينقصه ، الكثير ،

1- تنسيــقَ ،
2- شرح ، الاكواد ، للمبتدئيـن ،

!! .

شكرآ ، لـك ،

تقبـل ، مروري ،
الرد }}}
تم الشكر بواسطة:
#4
(20-09-16, 06:14 PM)شكرا على المجهود الكبير لكن اذا امكن شرح الموضع مفصلا كتب : Heart Heart Heart
شكرا على المجهود الكبير لكن اذا امكن شرح الموضع مفصلا
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم