[الوليد ☺]

السلام عليكم ورحمة الله

الحمد لله، ما فيها شيء، الي نقدر عليه إن شاء الله ما نبخل،

هذا مثال إن شاء الله يكون ما طلبت،

توجد فيه دالة GetItemInfo من أحد مشاريع الأخوة ترسل لها الرقم وترجع لك بسطر بيانات وليس جدول، وهذا يسهل قراءته
مربع النص الأول تكتب الرقم وتضغط الزر وبعدها إذا وجد الصنف تعبئ مربع النص الثاني بالاسم والثالث بالكمية والرابع بالوحدة

PHP كود :

Imports System.Data.OleDb

Public Class Form1

    Dim conn As New OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0; Data Source = Database1.accdb;")

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Me.TextBox2.Clear()
        Me.TextBox3.Clear()
        Me.TextBox4.Clear()

        Dim row As DataRow = GetItemInfo(Val(Me.TextBox1.Text))
        If row IsNot Nothing Then
            Me.TextBox2.Text = row("name")
            Me.TextBox3.Text = row("quantity")
            Me.TextBox4.Text = row("unit")
        End If

     End Sub


    ' قراءة بيانات المادة من رقمها وتأتي على شكل سطر بيانات وليس جدول '
    Public Function GetItemInfo(id As Integer) As DataRow
        Try
            Using da As New OleDbDataAdapter("SELECT * FROM [table1] WHERE [id] = @id ", conn)
                da.SelectCommand.Parameters.AddWithValue("@id", id)
                Using myDatatable As New DataTable
                    If da.Fill(myDatatable) > 0 Then Return myDatatable.Rows(0)
                End Using
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function

End Class