عندى داتا بيز فيها جدول بيتكتب فيها رقام الساب والخانة اللى جنبها اسم الموظف تمام انا عاوز بقى لما اجى اعمل تكست بوكس1 واكتب فية رقم الساب يجبلى فى تكست بوكس 2 عند الضغط على زرار يجبلى فى تكست بوكس 2 اسم الموظف يعنى يستدعى اسم الموظف من الداتا بيز بناءا على رقن الساب
18-10-16, 11:05 AM (آخر تعديل لهذه المشاركة : 18-10-16, 11:05 AM {2} بواسطة mhmd_911.)
هذي دالة وضعتها قبل قليل رد لأحد الاعضاء عدلتها لك
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
فقط استدعيها وارسل لها رقم الساب ترجع لك باسم الموظف
هل تستخدم طريقة المعالج؟
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