منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كود لاظهار الاسماء بدالالة الرقم

السلام عليكم ورحمة الله وبركاته
عندي سؤال ياخوان جدول طلاب في قاعدة البيانات اكسس وفي الفيجوال بيسك 2010 لدي في الفورم 2 تيكست بوكس
الاول لكتابة الرقم والثاني لاظهار اسماء الطلاب
اريد كود عند كتابة رقم الطالب يظهر اسم الطالب مباشرة
ولكم جزيل الشكر والتقدير

(13-01-23, 02:42 PM)عبدالرحمن الأصبحي كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
عندي سؤال ياخوان جدول طلاب في قاعدة البيانات اكسس وفي الفيجوال بيسك 2010 لدي في الفورم 2 تيكست بوكس
الاول لكتابة الرقم والثاني لاظهار اسماء الطلاب
اريد كود عند كتابة رقم الطالب يظهر اسم الطالب مباشرة
ولكم جزيل الشكر والتقدير

PHP كود :

Public Class Form1
    Dim dbpath As String = IO.Path.GetDirectoryName(Application.ExecutablePath) & "\db.accdb"
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=" & dbpath
    Private Function GetNameByNumber(n As Integer) As String
        Using con As New OleDb.OleDbConnection(str)
            Using cmd As New OleDb.OleDbCommand("", con)
                cmd.CommandText = "select tname from tb where tid=@tid"
                cmd.Parameters.AddWithValue("@tid", n)
                If con.State = ConnectionState.Closed Then con.Open()
                Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader
                If dr.Read Then
                    Return dr(0)
                End If
                If con.State = ConnectionState.Open Then con.Close()
            End Using
        End Using
    End Function
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = GetNameByNumber(Val(TextBox1.Text))
    End Sub
End Class 

أبسط مثال .... عدل مايلزم ليناسب مالديك.

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

عبدالرحمن الأصبحي

سعود