عندى داتا بيز فيها جدول بيتكتب فيها رقام الساب والخانة اللى جنبها اسم الموظف تمام انا عاوز بقى لما اجى اعمل تكست بوكس1 واكتب فية رقم الساب يجبلى فى تكست بوكس 2 عند الضغط على زرار يجبلى فى تكست بوكس 2 اسم الموظف يعنى يستدعى اسم الموظف من الداتا بيز بناءا على رقن الساب
اذا كان قصدك تستعلم عن الرقم وتجلب الاسم فالمنتدى مليء بهذا النوع من الطلب.
وين اخى؟؟؟ عن طريق المغالج
هذي دالة وضعتها قبل قليل رد لأحد الاعضاء عدلتها لك
PHP كود :
Public Function GetEmployeeName(SapNo As Integer) As String
Dim cmd As New OleDbCommand(String.Format("SELECT [Employee-Name] FROM [Users] WHERE [Sap-No]={0}", SapNo), cnn)
cnn.Open()
Dim ret As String = cmd.ExecuteScalar
cnn.Close()
Return ret
End Function
فقط استدعيها وارسل لها رقم الساب ترجع لك باسم الموظف
هل تستخدم طريقة المعالج؟
الان عملت ربط عن طريق المعالج وهذا هو الكود
PHP كود :
Public Class Form1
Dim dt As DataTable
Private Sub TbBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TbBindingNavigatorSaveItem.Click
Me.Validate()
Me.TbBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbDataSet)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'DbDataSet.tb' table. You can move, or remove it, as needed.
Me.TbTableAdapter.Fill(Me.DbDataSet.tb)
dt = New DataTable
dt = DbDataSet.Tables(0)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim dr() As DataRow
dr = dt.Select("tid=" & Val(TextBox1.Text) & "")
If dr.Length > 0 Then
TextBox2.Text = dr(0)(1).ToString
End If
End Sub
End Class
لو التكست بوكس مش مكتوب فية ارقام بيجبلى ايرور فى السطر دة
dr = dt.Select("tid=" & Val(TextBox1.Text) & "")
عشان انا ساعات بكتب ارقام وحروف مع بعض
?????????????????????????
اذا كان نوع الحقل الذي تبحث به رقمي فيجب ان يحتوي ارقاما
هو ال 2 مع بعض ارقام وحروف