تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال في الكود مهم لو سمحتم
#11
برضه مش شغال
الرد }}}
تم الشكر بواسطة:
#12
ضع المثال ليتم التعديل عليه
الرد }}}
تم الشكر بواسطة:
#13
ده نسخة من البرنامج 
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

الرد }}}
تم الشكر بواسطة:
#14
اذا لم يشتغل فهنا يجب التعديل على المسميات والتحقق منها
من خلال قاعدة البيانات لان من الموكد قاعدة البيانات مبني بطريقة غير صحيحة

وتقوم بوضع مسميات فى الاكواد خلاف المسميات التى تتواجد بقاعدة البيانات

فكل ما عليك هو جهل كلاً من 
PHP كود :
user id 
وما شبح بهذا التسمية
PHP كود :
user_id
أو
userid 
ويتم ذلك فى قاعدة البيانات نفسها اولاً ثم فى الكود

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة:
#15
شكرااااااااااااااااااا نجح الكود اشكركم جدااااااااااااااااااااااااا جزاكم الله كل الخير وجعله فى ميزان حسناتكم
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
Big Grin [سؤال] سؤال على السريع أبو خالد الشكري 0 177 29-01-24, 08:58 AM
آخر رد: أبو خالد الشكري
Wink طلب لو سمحتم jalaltech 1 174 22-01-24, 12:05 AM
آخر رد: melad2002
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  سؤال بسيط يا احبتى فى الله خالد كامل1 4 314 07-01-24, 12:55 AM
آخر رد: Mujahef
  سؤال فى برمجة جهاز الباركود خالد كامل1 6 477 05-01-24, 12:25 AM
آخر رد: HALIM ELEULMA
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم