04-11-18, 01:51 AM
برضه مش شغال
سؤال في الكود مهم لو سمحتم
|
04-11-18, 01:51 AM
برضه مش شغال
04-11-18, 04:53 AM
ضع المثال ليتم التعديل عليه
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
ده نسخة من البرنامج
Imports System.Data.OleDb Module Module1 Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= D:\super market\super market\bin\Debug\ss.accdb") Public usersdt As New DataTable Public usersda As OleDbDataAdapter Public mynewidusers As Integer 'load all colummns of 'table in access 2007 Public Sub load_users() usersdt.Clear() usersda = New OleDbDataAdapter("select*from users", con) usersda.Fill(usersdt) End Sub ' Dim code generation for access 2007 by<<indirect connection>> Public Sub code_users() Dim dt As New DataTable Dim da As New OleDbDataAdapter("select max(`user id`) from users", con) da.Fill(dt) If IsDBNull(dt(0)(0)) = True Then mynewidusers = 1 Else mynewidusers = dt(0)(0) + 1 End If وده فى الحدث load Private Sub UsersBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Me.Validate() Me.UsersBindingSource.EndEdit() Me.TableAdapterManager.UpdateAll(Me.SsDataSet) End Sub Private Sub UsersBindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsersBindingNavigatorSaveItem.Click Me.Validate() Me.UsersBindingSource.EndEdit() Me.TableAdapterManager.UpdateAll(Me.SsDataSet) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load GroupBox3.Visible = False load_users() 'data source of 'table DataGridView1.DataSource = usersdt code_users() userid.Text = mynewidusers ده نسخة من البرنامج Imports System.Data.OleDb Module Module1 Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= D:\super market\super market\bin\Debug\ss.accdb") Public usersdt As New DataTable Public usersda As OleDbDataAdapter Public mynewidusers As Integer 'load all colummns of 'table in access 2007 Public Sub load_users() usersdt.Clear() usersda = New OleDbDataAdapter("select*from users", con) usersda.Fill(usersdt) End Sub ' Dim code generation for access 2007 by<<indirect connection>> Public Sub code_users() Dim dt As New DataTable Dim da As New OleDbDataAdapter("select max(`user id`) from users", con) da.Fill(dt) If IsDBNull(dt(0)(0)) = True Then mynewidusers = 1 Else mynewidusers = dt(0)(0) + 1 End If وده فى الحدث load Private Sub UsersBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Me.Validate() Me.UsersBindingSource.EndEdit() Me.TableAdapterManager.UpdateAll(Me.SsDataSet) End Sub Private Sub UsersBindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsersBindingNavigatorSaveItem.Click Me.Validate() Me.UsersBindingSource.EndEdit() Me.TableAdapterManager.UpdateAll(Me.SsDataSet) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load GroupBox3.Visible = False load_users() 'data source of 'table DataGridView1.DataSource = usersdt code_users() userid.Text = mynewidusers
04-11-18, 12:23 PM
اذا لم يشتغل فهنا يجب التعديل على المسميات والتحقق منها
من خلال قاعدة البيانات لان من الموكد قاعدة البيانات مبني بطريقة غير صحيحة
وتقوم بوضع مسميات فى الاكواد خلاف المسميات التى تتواجد بقاعدة البيانات
فكل ما عليك هو جهل كلاً من
PHP كود : user id وما شبح بهذا التسمية
PHP كود : user_id ويتم ذلك فى قاعدة البيانات نفسها اولاً ثم فى الكود
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ] ساهم دائماً فى لكل من يقوم بالمساهمة فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله ▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
05-11-18, 06:57 PM
شكرااااااااااااااااااا نجح الكود اشكركم جدااااااااااااااااااااااااا جزاكم الله كل الخير وجعله فى ميزان حسناتكم
|
|