[محمد اسماعيل]

(09-10-18, 01:24 AM)rnmr كتب : جرب هذا

طريقة شائعة

كود :

Dim da As New OleDbDataAdapter(String.Empty, con)
Dim dt As New DataTable
Dim WithEvents bs As New BindingSource

Private Sub Form1_Load(sender As System.Object, e As EventArgs) Handles MyBase.Load

   Dim da As New OleDbDataAdapter("SELECT * FROM CUSTOMERDETAILS_TB WHERE CUSTOMERDETALIS_SHOW =Yes", con)
   da.Fill(dt)
   bs.DataSource = dt

   TextBox1.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_ID")
   TextBox2.DataBindings.Add("Text", bs, "CUSTOMERDETAILS_CODE")
   TextBox3.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_NAME")
   TextBox4.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_COMPANY")
   TextBox5.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_TELEPHON")
   TextBox6.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_NOTE")
   TextBox7.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_DATE")
   TextBox8.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_CREDIT")
   TextBox9.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_DEBIT")
   TextBox10.DataBindings.Add("Text", bs, "CUSTOMERDETALIS_BLANCE")

   DATAG_CLIENONLIN.DataSource = bs

End Sub

' تحديث البيانات في جدول قاعدة البيانات
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   bs.EndEdit()
   Dim b As New OleDbCommandBuilder(da)
   da.Update(dt)
End Sub

' عرض رقم السجل الحالي من مجموع عدد السجلات
Private Sub bs_PositionChanged(sender As Object, e As EventArgs) Handles bs.PositionChanged
   Me.Text = String.Format("{0}/{1}", bs.Position + 1, bs.Count)
End Sub

(09-10-18, 01:57 AM)asemshahen5 كتب : أو جرب هذا :

كود :

Dim StrValue As String = DataGridView1.CurrentRow.Cells("CUSTOMERDETAILS_CODE").Value.ToString
       Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM CUSTOMERDETAILS_TB WHERE CUSTOMERDETAILS_CODE=Yes and CUSTOMERDETAILS_CODE='" & StrValue & "'", con)
       con.Open()
       DataAdapterm = New OleDbDataAdapter(cmd)
       DataSetupdat.Clear()
       DataAdapterm.Fill(DataSetupdat, "CUSTOMERDETAILS_TB")
       If DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows.Count > 0 Then
           TextBox1.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_ID").ToString
           TextBox2.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETAILS_CODE").ToString
           TextBox3.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_NAME").ToString
           TextBox4.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_COMPANY").ToString
           TextBox5.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_TELEPHON").ToString
           TextBox6.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_NOTE").ToString
           TextBox7.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_DATE").ToString
           TextBox8.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_CREDIT").ToString
           TextBox9.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_DEBIT").ToString
           TextBox10.Text = DataSetupdat.Tables("CUSTOMERDETAILS_TB").Rows(0)("CUSTOMERDETALIS_BLANCE").ToString
       Else
           MsgBox("data not found") : Exit Sub
       End If

يسرا اللّة لكم امركما في الدنيا والاخرة

كل الشكر والتقدير لكما