منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
جعل الرتقيم التلقائي بموديل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : جعل الرتقيم التلقائي بموديل (/showthread.php?tid=33268)



جعل الرتقيم التلقائي بموديل - محمد خيري - 03-02-20

السلام عليكم.اخواني استعمل هذه الفونكشن لجلب الترقيم التلقائي على مستوى الفورم

كود :
   Public Function Max_Record() As DataTable
       Dim Str As String = "Select IIF(Max(Id) IS Null,1,Max(Id)+1) From Table1"
       Dim Cmd As OleDbCommand
       Dim Dt As New DataTable
       Dt.Clear()
       Cmd = New OleDbCommand(Str, Con)
       Dim Da As New OleDbDataAdapter(Cmd)
       Da.Fill(Dt)
       Return (Dt)
   End Function
و بعد في زر اضافة جديد استعمل

كود :
Me.TextBox1.Text = Max_Record.Rows(0)(0)
كيف اضع الدالة في موديل بشكل عام لاستعملها في اي فورم بدلا من كتابة الدالة في كل فورم بارك الله فيكم


RE: جعل الرتقيم التلقائي بموديل - asemshahen5 - 03-02-20

PHP كود :
   Public Function Max_Record(IDColumnName As StringTableName As String) As DataTable
        Dim Str 
As String "Select IIF(Max(" IDColumnName ") IS Null,1,Max(" IDColumnName ")+1)As ID From " TableName
        Dim Cmd 
As OleDb.OleDbCommand
        Dim Dt 
As New DataTable
        Dt
.Clear()
 
       Cmd = New OleDb.OleDbCommand(Strcon)
 
       Dim Da As New OleDb.OleDbDataAdapter(Cmd)
 
       Da.Fill(Dt)
 
       Return (Dt)
 
   End Function 

الاستعمال :

PHP كود :
TextBox1.Text Max_Record("id""Table1").Rows(0)("ID").ToString 



RE: جعل الرتقيم التلقائي بموديل - محمد خيري - 03-02-20

بارك الله فيك استاذ asemshahen و جزاك خير يا رب.اشتغل الامر بنجاح باي فورم .الهي لا يحرمنا منك


RE: جعل الرتقيم التلقائي بموديل - asemshahen5 - 03-02-20

الله يسلمك من كل ردي .


RE: جعل الرتقيم التلقائي بموديل - alsalamoni - 03-02-20

(03-02-20, 01:59 PM)محمد خيري كتب : السلام عليكم.اخواني استعمل هذه الفونكشن لجلب الترقيم التلقائي على مستوى الفورم

كود :
   Public Function Max_Record() As DataTable
       Dim Str As String = "Select IIF(Max(Id) IS Null,1,Max(Id)+1) From Table1"
       Dim Cmd As OleDbCommand
       Dim Dt As New DataTable
       Dt.Clear()
       Cmd = New OleDbCommand(Str, Con)
       Dim Da As New OleDbDataAdapter(Cmd)
       Da.Fill(Dt)
       Return (Dt)
   End Function
و بعد في زر اضافة جديد استعمل

كود :
Me.TextBox1.Text = Max_Record.Rows(0)(0)
كيف اضع الدالة في موديل بشكل عام لاستعملها في اي فورم بدلا من كتابة الدالة في كل فورم بارك الله فيكم

انقل الداله كما هي الى موديول واحذف الدالة من اي فورم


RE: جعل الرتقيم التلقائي بموديل - محمد خيري - 03-02-20

تسلم اخي السلموني لكن كل فورم و فيه جدول باسم مختلف عن الفورم الىخر ليس كل الفورمات جدولها اسمو Table1 و id


RE: جعل الرتقيم التلقائي بموديل - alsalamoni - 03-02-20

(03-02-20, 11:46 PM)محمد خيري كتب : تسلم اخي السلموني لكن كل فورم و فيه جدول باسم مختلف عن الفورم الىخر ليس كل الفورمات جدولها اسمو Table1 و id

لو رجعت لاول الموضوع لانت لم تذكر اختلاف الجدول والحقل
(03-02-20, 01:59 PM)محمد خيري كتب : السلام عليكم.اخواني استعمل هذه الفونكشن لجلب الترقيم التلقائي على مستوى الفورم

كود :
   Public Function Max_Record() As DataTable
       Dim Str As String = "Select IIF(Max(Id) IS Null,1,Max(Id)+1) From Table1"
       Dim Cmd As OleDbCommand
       Dim Dt As New DataTable
       Dt.Clear()
       Cmd = New OleDbCommand(Str, Con)
       Dim Da As New OleDbDataAdapter(Cmd)
       Da.Fill(Dt)
       Return (Dt)
   End Function
و بعد في زر اضافة جديد استعمل

كود :
Me.TextBox1.Text = Max_Record.Rows(0)(0)
كيف اضع الدالة في موديل بشكل عام لاستعملها في اي فورم بدلا من كتابة الدالة في كل فورم بارك الله فيكم