25-11-13, 03:26 AM
السلام عليكم ورحمة الله وبركاته
عند زري جديد وحفظ
والمشكله الأكبر في الداتا جريد
قمت في البداية في فورم لود بأضافة كود اضهار السجل الاخير
من أجل زيادة رقم واحد بعد السجل الأخير من خلال النقر على زر جديد
ولكن في حال النقر على زر التالي ستعود نفس المشكله وذلك لتغير مكان المحدد على الداتا جريد من الأخير الى سجل اخر
و عند الحفظ تتكرر بيانات الداتا جريد وكذالك لا يتم الحفظ على قاعدة البيانات
أرجو الأفادة عن المشكله الموجوده في المرفق
بارك الله فيكم
الاشكاليات : 1- ترقيم تلقائي
2- الأضافة الى داتا جريد
3- الحفظ لقاعدة البيانات
او اذا امكن ألأفادة برابط شرح معالجة مثل هذه الاشكاليات ولكم جزيل الشكر
كود الموديل
كود ارفاق البيانات لأدوات الفورم
كود حفظ
مرفق قاعدة البيانات
لم استطع ارفاق كافة الملفات نظرآ لكبر الحجم
عند زري جديد وحفظ
والمشكله الأكبر في الداتا جريد
قمت في البداية في فورم لود بأضافة كود اضهار السجل الاخير
من أجل زيادة رقم واحد بعد السجل الأخير من خلال النقر على زر جديد
ولكن في حال النقر على زر التالي ستعود نفس المشكله وذلك لتغير مكان المحدد على الداتا جريد من الأخير الى سجل اخر
و عند الحفظ تتكرر بيانات الداتا جريد وكذالك لا يتم الحفظ على قاعدة البيانات
أرجو الأفادة عن المشكله الموجوده في المرفق
بارك الله فيكم
الاشكاليات : 1- ترقيم تلقائي
2- الأضافة الى داتا جريد
3- الحفظ لقاعدة البيانات
او اذا امكن ألأفادة برابط شرح معالجة مثل هذه الاشكاليات ولكم جزيل الشكر
كود الموديل
PHP كود :
Imports System.Data
Imports System.Data.OleDb
Imports System.Text
Module Module1
Public constr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|datadirectory|\db1.mdb;Persist Security Info=True"
Public con As New OleDbConnection(constr)
Public fusername As String
Public str As String
Public b As New BindingSource
Public cmd As New OleDbCommand
Public da As New OleDbDataAdapter
Public ds2 As New DataSet
Public dt2 As DataTable
Public dr As DataRow
Public dc As DataColumn
كود ارفاق البيانات لأدوات الفورم
PHP كود :
Sub one()
'كود أرفاق البيانات على أدوات البرنامج
str = " select * from medcines "
con.Open()
Dim da2 As New OleDbDataAdapter(str, con)
da2.Fill(ds2, "medcines")
con.Close()
TextBox1.DataBindings.Add("text", ds2, "medcines.id_medcine")
TextBox2.DataBindings.Add("text", ds2, "medcines.name_medcine")
TextBox3.DataBindings.Add("text", ds2, "medcines.id_house")
TextBox4.DataBindings.Add("text", ds2, "medcines.name_phycis")
DataGridView1.DataSource = ds2
DataGridView1.DataMember = "medcines"
DataGridView1.Columns(0).HeaderText = "رقم الدواء"
DataGridView1.Columns(1).HeaderText = "أسم الدواء"
DataGridView1.Columns(2).HeaderText = "رقم الرف"
DataGridView1.Columns(3).HeaderText = "الأسم الدوائي"
DataGridView1.AllowUserToAddRows = False
DataGridView1.AllowUserToDeleteRows = False
DataGridView1.SelectionMode = False
DataGridView1.AllowUserToResizeColumns = False
DataGridView1.AllowUserToResizeRows = False
'الاكمال التلقائي في الكمبوبوكس
With ComboBox1
.DataSource = ds2.Tables("medcines")
.DisplayMember = "name_medcine"
.AutoCompleteSource = AutoCompleteSource.ListItems
.AutoCompleteMode = AutoCompleteMode.Suggest
End With
End Sub
PHP كود :
Try
Dim dr As DataRow
Dim dt1 As New DataTable
Dim da3 As New OleDbDataAdapter
dt1 = ds2.Tables("medcines")
dr = dt1.NewRow
dr("id_medcine") = TextBox1.Text
dr("name_medcine") = TextBox2.Text
dr("id_house") = TextBox3.Text
dr("name_phycis") = TextBox4.Text
dt1.Rows.Add(dr)
DataGridView1.Rows.Add.ToString()
DataGridView1.DataSource = ds2
MsgBox("Add was successful.")
con.Close()
Catch ex As Exception
End Try
مرفق قاعدة البيانات
لم استطع ارفاق كافة الملفات نظرآ لكبر الحجم