data grid

السلام عليكم

إذا كنت قد بدأت في المشروع ففي الخانة النصية بعد أن يكتب اسم الموظف

ممم يا طيب قبل كل شيء هل قاعدة البيانات هي Access أو SQL أو XML أوووو ؟

على كل حال أكتب التالي على إفتراض أن الـ Stored Procedure لديك بهذا الاسم sp_FindAuthors

Private Sub AuthorsNameFinder(ByVal Name As String)
        Try
            Me.pboxAuthor.Image = Nothing
            Dim cmd As New SqlCommand("sp_FindAuthors", cnnMain)
            DAAuthors.SelectCommand = cmd
            DsMain1.Books.Clear()
            DsMain1.Authors.Clear()
            DsMain1.EnforceConstraints = False
            cmd.Parameters.Add(New SqlParameter("@critera", _
            SqlDbType.NVarChar, 50)).Value = Name
            cmd.CommandType = CommandType.StoredProcedure
            Dim Index As Integer = DAAuthors.Fill(DsMain1, "Authors")
            If Index <> 0 Then
                RemoveDuplicateRows(DsMain1.Authors, "AuthorID")
                DABooks.SelectCommand = cmd
                DABooks.Fill(DsMain1, "Books")
                UpdateDisplay()
                Exit Sub
            End If
            Me.SBInfo.Text = "لم يتم العثور على قيمة البحث , تم تجهيز سطر جديد لإضافة مؤلف جديد"
            NewRow()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

الكود في الـ sp_FindAuthors كالتالي

USE BookAuthors
Go

IF EXISTS (SELECT ROUTINE_NAME
FROM INFORMATION_SCHEMA.ROUTINES
WHERE ROUTINE_TYPE = 'PROCEDURE' AND
ROUTINE_NAME = 'sp_FindAuthors')
DROP PROCEDURE sp_FindAuthors
GO


--ALTER  ONE
CREATE PROC sp_FindAuthors
@critera NVARCHAR(50)
AS
BEGIN
SELECT a.AuthorID,a.Author,
b.ISBN,b.Book
FROM Authors a LEFT JOIN Books b
ON a.AuthorID = b.AuthorID
WHERE a.Author LIKE @critera +'%'
ORDER BY a.AuthorID
END

بالتوفيق إن شاء الله ...

بسم الله الرحمن الرحيم

جزاك الله كل الخير يااخ الغملاسي فعلا هذا ما كنت احتاجه

و الله يكثر من امثالك ........

الأخ العزيز الغملاسي ممكن أن ترفق مثال بما سبق (مع إرفاق الStored Procedure) وكيف أستخدمها

لأني لم أفهم تماما ماسبق وكيف أطبقه عمليا

وجزاك الله ألف خير