[ahmedgamal]

لو سمحت عاوز كود لأظهار كود العميل في التيكست بوكس عند اختيار العميل من الكومبوبوكس
انا شغال في قاعدة بيانات اكسس

[سعود]

كيف ربط بقاعدة البيانات؟

---

اجعل مصدرهم واحد كل من combobox و textbox

---

كود :

Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
   Dim con As OleDb.OleDbConnection
   Dim dt As DataTable
   Dim da As OleDb.OleDbDataAdapter
   Dim cmd As OleDb.OleDbCommandBuilder
   Dim i As Integer = 0
   Private Sub gd(Optional ByVal i As Integer = 0)
       ComboBox1.DataSource = Nothing
       tn.DataBindings.Clear()
       email.DataBindings.Clear()
       con = New OleDb.OleDbConnection(str)
       dt = New DataTable
       da = New OleDb.OleDbDataAdapter("select * from tb", con)
       cmd = New OleDb.OleDbCommandBuilder(da)
       da.Fill(dt)
       ComboBox1.DataSource = dt
       ComboBox1.DisplayMember = "tn"
       tn.DataBindings.Add("text", dt, "tn")
       email.DataBindings.Add("text", dt, "email")
       BindingContext(dt).Position = i
       pos()
   End Sub
   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       gd()
   End Sub
   Private Sub pos()
       lbl.Text = BindingContext(dt).Position & "|" & BindingContext(dt).Count - 1
   End Sub

   Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
       Dim r As DataRow = dt.NewRow
       r(1) = tn.Text
       r(2) = email.Text
       dt.Rows.Add(r)
       da.Update(dt)
       gd(BindingContext(dt).Position + 1)
   End Sub

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       BindingContext(dt).Position = 0
       pos()
   End Sub

   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
       BindingContext(dt).Position += 1
       pos()
   End Sub

   Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
       BindingContext(dt).Position -= 1
       pos()
   End Sub

   Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
       BindingContext(dt).Position = BindingContext(dt).Count - 1
       pos()
   End Sub
End Class

[ahmedgamal]

(02-09-17, 09:38 PM)سعود كتب : كيف ربط بقاعدة البيانات؟

---

اجعل مصدرهم واحد كل من combobox و textbox

---

كود :

Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
   Dim con As OleDb.OleDbConnection
   Dim dt As DataTable
   Dim da As OleDb.OleDbDataAdapter
   Dim cmd As OleDb.OleDbCommandBuilder
   Dim i As Integer = 0
   Private Sub gd(Optional ByVal i As Integer = 0)
       ComboBox1.DataSource = Nothing
       tn.DataBindings.Clear()
       email.DataBindings.Clear()
       con = New OleDb.OleDbConnection(str)
       dt = New DataTable
       da = New OleDb.OleDbDataAdapter("select * from tb", con)
       cmd = New OleDb.OleDbCommandBuilder(da)
       da.Fill(dt)
       ComboBox1.DataSource = dt
       ComboBox1.DisplayMember = "tn"
       tn.DataBindings.Add("text", dt, "tn")
       email.DataBindings.Add("text", dt, "email")
       BindingContext(dt).Position = i
       pos()
   End Sub
   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       gd()
   End Sub
   Private Sub pos()
       lbl.Text = BindingContext(dt).Position & "|" & BindingContext(dt).Count - 1
   End Sub

   Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
       Dim r As DataRow = dt.NewRow
       r(1) = tn.Text
       r(2) = email.Text
       dt.Rows.Add(r)
       da.Update(dt)
       gd(BindingContext(dt).Position + 1)
   End Sub

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       BindingContext(dt).Position = 0
       pos()
   End Sub

   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
       BindingContext(dt).Position += 1
       pos()
   End Sub

   Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
       BindingContext(dt).Position -= 1
       pos()
   End Sub

   Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
       BindingContext(dt).Position = BindingContext(dt).Count - 1
       pos()
   End Sub
End Class

مش ظابتة معايا بردو
انا عامل كود الاتصال
وربط الكومبو بوكس بقاعدة البيانات
وظهرت الاسامي في الكومبو بوكس انا بقي عاوز لما اختار اسم من الكومبوبوس
يظهرلي في التيكست بوكس تلقائي بدون بوتون كود العميل

تاني حاجة في فاتورة المبيعات
عاوز لما اكتب الكود في الداتا جريد فيو يظهرلي الصنف والعدد يبقي 0 وسعر البيع
وشكرا مقدما

[سعود]

جوابي على قدر السؤال
اما الازرار هذي عشان اضيف للجدول

والمطلوب يعمل عندي.
.
.
.
لو الفكرة عندك مختلفة ..وضحها (بهذا الخصوص)

[ahmedgamal]

(03-09-17, 03:09 AM)سعود كتب : جوابي على قدر السؤال
اما الازرار هذي عشان اضيف للجدول

والمطلوب يعمل عندي.
.
.
.
لو الفكرة عندك مختلفة ..وضحها (بهذا الخصوص)

تمام يا صديقي الكود ظبط معايا الحمدلله
اشكرك جدا
جزاك الله كل خيرا