+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : مجموعة اكواد جديدة (/showthread.php?tid=16323)
مجموعة اكواد جديدة - asdsoft - 02-07-16
هذه مجموعة من اكواد فيجول بيسك دوت نيت ممكن ان يستفاد منها اخواننا في المنتدى وهي اول مشاركة لي
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
RE: مجموعة اكواد جديدة - yasob - 05-07-16
معذرا هى الاكواد دى خاصة بايه
ياريت من فضللك توضح كل كود من الاكواد ممكن يستخدم فى ايه
وشكرا على مجهودك
RE: مجموعة اكواد جديدة - vb.neet - 20-09-16
شكرآ ، لـك ، ي ، وحـشَ ،
ولكــن ، مع ، الأسسـف ، موضوعـك ، ينقصه ، الكثير ،
1- تنسيــقَ ،
2- شرح ، الاكواد ، للمبتدئيـن ،
!! .
شكرآ ، لـك ،
تقبـل ، مروري ،
RE: مجموعة اكواد جديدة - kanolov - 01-11-16
(20-09-16, 06:14 PM)شكرا على المجهود الكبير لكن اذا امكن شرح الموضع مفصلا كتب :
شكرا على المجهود الكبير لكن اذا امكن شرح الموضع مفصلا