كيفية عمل ترقيم تلقائي
انا عامل برنامج سيارت وعايز لما اضغط علي زر اضافة يكون التاكست الاول موجود فية رقم واحد وبع الحفظ يزيد واحد وهكذا علما باني مصصم قاعدة البيانات علي اكسس ولغة البرمجة فيجوال بيسك دوت نت 2008 ورابط بالكود ياريت الا عارف الحل يضع مثال لاني لسة مبتدا في الدوت نت وجزاكم الله خير

اخي الكريم


في زر اضافة تقوم بقراءة اكبر رقم مخزن في قاعدة البيانات للحقل الذي تريدة وتقوم باضافة واحد عليه ثم تضعه بالتكست الاول .

      Dim sqlmax As String = "select max(EMPLOYEE_ID) FROM Employee" 

      Dim Cmd As New SqlCommand(sqlmax, Conn)  

      Conn.Open()  

      Dim Num As Integer = Cmd.ExecuteScalar  

      Conn.Close()  

      textbox1.Text = Num  + 1 

تحياتي للجميع
ابو سامر

انا بشكرك اخي الكريم وعاجز عن الشكر انتا تستحق اكثر من كلمة شكر وانشا الله يكون في ميزان حسناتك
وجاري التجربة

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

ارفق برنامج لتصحيح الخطأ


تحياتي للجميع
ابو سامر

استاذي الفاضل انا اسف علي ازعاجك بس انا والله محتاج ضروري ومرفق المشروع
../Uploads/91376/image/بدون عنوان.JPG


الملفات المرفقة
 EngAuday.rar ( 253.32ك ) عدد مرات التنزيل: 21

تفضل

Public Class Form2
    Dim frm1 As New Form1
    Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\mydata.mdb"
    Dim Conn As New OleDbConnection(ConStr)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim SavInto As New OleDb.OleDbCommand
            SavInto.Connection = Conn
            SavInto.CommandType = CommandType.Text
            SavInto.CommandText = "insert INTO Table1(Name,City,Mobile,id)" & _
            "values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "') "
            Conn.Open()
            SavInto.ExecuteNonQuery()
            Conn.Close()
            MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")
            Me.Close()
            frm1.Show()
        Catch ex As Exception
            Exit Sub
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
        frm1.Show()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim sqlmax As String = "select max(id) FROM table1"
        Dim Cmd As New OleDbCommand(sqlmax, Conn)
        Conn.Open()
        Dim Num As Integer = Cmd.ExecuteScalar
        Conn.Close()
        TextBox4.Text = Num + 1
        TextBox1.Focus()
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Conn = New OleDbConnection(ConStr)
    End Sub
End Class

تحياتي للجميع
ابو سامر

استاذ الفاضل ايو سامر انا بشكرك جدا جدا واسف علي ازعاجك وربنا يوفقك في الدنيا والاخرة
ومرسي جدا جدا

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

Try

            Dim SavInto As New OleDb.OleDbCommand

            SavInto.Connection = Conn
           SavInto.CommandType = CommandType.Text

            SavInto.CommandText = "insert INTO Table1(Name,City,Mobile,id)" & _

            "values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "') "

            Conn.Open()

            SavInto.ExecuteNonQuery()

            Conn.Close()

            MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")

            Me.Close()

            frm1.Show()

        Catch ex As Exception

            Exit Sub

        End Try

    End Sub

في حالة في خطاء في امر
Rollback()

بالنسبة لي انا استعمل في
sql server
واستعمل في الكود عند حدوث الخطاء لارجاع الداتا في حالة حدوث خطاء او التيار الكهربائي انقطع
يا ريت من الاخ ابو سامر ان يشرح كيفية عمله في الاكسس
وهذه الكود

Catch ex As SqlException
       
          tn.Rollback()  
         MsgBox(  "حدث خطاء أثناء الاضافة")
 End Try

ومعرف

Dim tn As SqlTransaction
        Dim cn As New SqlConnection(ConnectionString)
        cn.Open()
        tn = cn.BeginTransaction

طبعاَ في بداية الكود قبل try
يا ريت لو انها تنفع في الاكسس ان يشرحها الاخ ابو سامر لتعم الفائدة
وبارك الله فيكم علي وقتكم الثمين
السلام عليكم ورحمة الله

اخي الكريم

هنا في مثل هذه الحالة لا ضرور لاستخدام Rollback() في حالة حدوث خطاء في الامر لانه لن يقوم باي تغيير في القاعدة
لاننا نستخدم جدول واحد فقط . ونخزن سجل واحد فقط.

ولكن في حالة قمنا باستخدام dataset وقمنا بعمل binding لاي حقل من الحقول على تكست او داتا جريد او غيرها هنا سيحدث تغيير في جداول وحقول الداتا سيت وهنا يمكن ان نضع في الاكسبشن الامر التالي عند حدوث خطأ وهو

dataset.RejectChanges

اي انه يقوم بالغاء اي تغيير تم على البيانات واعادتها الى حالتها عند تعبئة الداتا سيت بالامر fill

وهنا نستخدم هذا الامر سواء كانت قاعدة البيانات sql او access فلا فرق بما اننا نستخدم dataset

تحياتي للجميع
ابو سامر