+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود البحث (/showthread.php?tid=20252)
الصفحات:
1
2
كود البحث - khalid475 - 04-05-17
السلام عليكم ورحمة الله وبركاته
الأخوة الأعزاء محتاج مساعدة منكم والسؤال كالتالي : - في عملية البحث أريد أن أبحث عن : أسعار المنتج برقم المنتج
يوجد لدي فورم به :
كود :
txtitemid.text
txtwholesaleone.Text
txtcustomerone.Text
txtsaleone.Text
txtwholesaletwo.Text
txtcustomertwo.Text
txtsaletwo.Text
txtwholesalethird.Text
txtcustomerthird.Text
txtsalethird.Textويوجد عندي كلاس إسمه : DatabaseManager يوجد به التالي :
كود :
Imports System.Data.SqlClient
Imports System.Configuration
Public Class DatabaseManager
Private _connection As SqlConnection
Private _connectionString As String
Public ReadOnly Property Connection() As SqlConnection
Get
If _connection Is Nothing Then _connection = New SqlConnection(_connectionString)
Return _connection
End Get
End Property
Public Sub New()
Me._connectionString = ConfigurationManager.ConnectionStrings("connSQLServer").ConnectionString
End Sub
Public Sub New(ByVal ConnectionString As String)
Me._connectionString = _connectionString
End Sub
Public Sub close()
If _
Not _connection Is Nothing AndAlso _
_connection.State = ConnectionState.Open Then _
_connection.Close()
End Sub
Public Function fillTable(ByRef cmd As SqlCommand, ByRef dt As DataTable) As Integer
Dim retval As Integer = -1
dt = New DataTable
cmd.CommandType = CommandType.StoredProcedure
cmd.Connection = Me.Connection
Dim da As New SqlDataAdapter(cmd)
da.Fill(dt)
If (Not dt Is Nothing) Then retval = dt.Rows.Count
Return retval
End Function
Public Function executeReader(ByRef cmd As SqlCommand, ByRef dr As SqlDataReader) As Integer
cmd.CommandType = CommandType.StoredProcedure
Return exeReader(cmd, dr)
End Function
Public Function executeReader(ByVal sql As String, ByRef dr As SqlDataReader) As Integer
Dim cmd As New SqlCommand(sql)
cmd.CommandType = CommandType.Text
cmd.Connection = Me.Connection
Dim retval As Integer = executeReader(cmd, dr)
Return retval
End Function
Private Function exeReader(ByRef cmd As SqlCommand, ByRef dr As SqlDataReader) As Integer
Dim retval As Integer = -1
cmd.Connection = Me.Connection
Try
If cmd.CommandType = CommandType.StoredProcedure Then
Dim pr As New SqlParameter("@retval", SqlDbType.Int)
pr.Direction = ParameterDirection.ReturnValue
cmd.Parameters.Add(pr)
End If
If cmd.Connection.State = ConnectionState.Closed Then cmd.Connection.Open()
dr = cmd.ExecuteReader()
If cmd.CommandType = CommandType.StoredProcedure Then retval = cmd.Parameters("@retval").Value
Catch ex As Exception
Throw New Exception(ex.Message)
Finally
Me.close()
End Try
Return retval
End Function
Public Function executeNonQuery(ByRef cmd As SqlCommand) As Integer
cmd.CommandType = CommandType.StoredProcedure
Return exeNonQuery(cmd)
End Functionتم عمل استورد بروسيجر كالتالي : -
كود :
ALTER PROCEDURE [dbo].[Get_Prices_Item_By_ID]
@ItemID int
as
begin
Select ItemID,FirstUnitWholeSalePrice,FirstUnitShopperPrice,FirstUnitDemotionsPrice,FirstUnitPriceDefult,SecondUnitWholeSalePrice,SecondUnitShopperPrice,SecondUnitDemotionsPrice,SecondUnitPriceDefult,ThirdUnitWholeSalePrice,ThirdUnitShopperPrice,ThirdUnitDemotionsPrice,ThirdUnitPriceDefult,DefultPrice from ItemsPricesTbl Where ItemID=@ItemID
RETURN
Endوكلاس الداتا لير فيه :
كود :
Friend Function Get_Prices_Item_By_ID(ByRef dr As SqlDataReader, ByVal ItemID As Integer)
Dim cmd As New SqlCommand("Get_Prices_Item_By_ID")
cmd.Parameters.Add("@ItemID", SqlDbType.Int).Value = CType(ItemID, Integer)
Dim retval As Integer = dm.executeReader(cmd, dr)
Return retval
End Functionوالبزنز لاير فيه :
كود :
Public Function Get_Prices_Item_By_ID(ByVal ItemID As Integer)
p.Get_Prices_Item_By_ID(dr, ItemID)
Return dr
End Functionما هو الكود الذي الذي سوف أضعه في زر البحث ؟؟؟
وشكــراً
RE: كود البحث - khalid475 - 05-05-17
23 مشاهدة ولا يوجد رد ؟؟
RE: كود البحث - khalid475 - 05-05-17
الرجـــاء الــمــســاعدة ...
RE: كود البحث - سعود - 05-05-17
اخي الكريم اطلع على قسم المشاريع والمقالات ففيها مواضيع وامثلة قد تلبي المطلوب.
RE: كود البحث - khalid475 - 05-05-17
جزاك الله كل خير أخي سعود
ولكن لم أجد ما أبحث عنه
RE: كود البحث - Abdulaziz Hazazi - 06-05-17
تفضل اخوي لقيت المشروع في مكتبتي مسويه من اول وهو البحث برقم الجوال والاسم اتمنى انه يفيدك
https://up.top4top.net/downloadf-490xvrhr1-rar.html
السلام عليكم
RE: كود البحث - khalid475 - 06-05-17
مشكور أخوي عبدالعزيز
ولكني أبحث عن طريقة البحث من خلال الأستورد بروسيجر و من خلال تعدد الطبقات
شكرا جزيلا ...
RE: كود البحث - khalid475 - 06-05-17
هـل من حـل ؟؟
RE: كود البحث - mansoor - 06-05-17
استفد من هذا الكود
PHP كود :
Dim da As New SqlClient.SqlDataAdapter("Get_prices_item_by_id", My.Settings.Database1ConnectionString)
da.SelectCommand.CommandType = CommandType.StoredProcedure
da.SelectCommand.Parameters.AddWithValue("@ItemID", id)
Dim dt As New DataTable
da.Fill(dt)
Me.DataGridView1.DataSource = dt
RE: كود البحث - khalid475 - 07-05-17
شكرا لك اخي
ولكن ايت يتم وضع هذا الكود هل يتم وضعه في الكلاس الخاص بالداتا أم البزنز
و ماهو الكود الذي يتم وضعه في زر البحث