+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=30534)
مشكله فى جلب اعلى رقم& تم حل المشكله - خالد كامل1 - 27-07-19
اهلا بكم احبتى دام الله عليكم البشر والسرور
عندى كود لجلب اعلى رقم فى الفواتير عند رقم عشره لا يستطيع جلب اعلى رقم بعد الرقم 10 لا ادرى لماذا
هذا الكود فى الموديول
كود :
Public Function getmaxid(ByVal tablename, ByVal coulmname) As Integer
Dim dt As New DataTable
Dim da As New OleDbDataAdapter
dt.Clear()
da = New OleDbDataAdapter("select max (" & coulmname & ")from " & tablename & "", con)
da.Fill(dt)
Dim outonumber As Integer
If IsDBNull(dt(0)(0)) = True Then
outonumber = 1
Else
outonumber = dt(0)(0) + 1
End If
Return outonumber
End Function("buycode.text=("buy","buycode
ولكم منى جزيل الشكر
RE: مشكله فى جلب اعلى رقم - الحازمي - 27-07-19
أخي خالد
لاستخدام MAX تأكد من نوع العمود من أنه (رقم) ولي (نص)
أخي خالد
إن لم الجواب واضحا فأخبرني
RE: مشكله فى جلب اعلى رقم - asemshahen5 - 27-07-19
PHP كود :
''' <summary>
''' Max ID Record +1
''' </summary>
''' <param name="TableName">Any Table Name</param>
''' <param name="IDColumn">Column Neme</param>
''' <returns>Integer MaxID</returns>
''' <remarks></remarks>
Function MaxIDRecord(ByVal TableName As String, ByVal IDColumn As String) As Integer
Dim Txt_MaxID As Integer = 0
Dim StrSQL As String = "Select IIF(Max(" & IDColumn & ") Is NULL,1,Max(" & IDColumn & ")+1) From " & TableName
If Con.State = ConnectionState.Closed Then Con.Open()
Dim da As New SqlClient.SqlDataAdapter(StrSQL, Con)
Dim dt As New DataTable
dt.Clear()
da.Fill(dt)
Txt_MaxID = dt.Rows(0)(0).ToString()
If Con.State = ConnectionState.Open Then Con.Close()
Return Txt_MaxID
End Function
RE: مشكله فى جلب اعلى رقم - خالد كامل1 - 27-07-19
ايها الاحبه اريد ان اريكم شيئا فى تلك المشكله اترون اين الفاتوره التى رقمها 10 انها الثانيه وليس فى ترتيبها الصحيح ولذلك ياخذ الترقيم التلقائي نهايه الارقام هو رقم 9
لا ادرى لماذا وضع رقم 2 فى الرو الثانى
RE: مشكله فى جلب اعلى رقم - asemshahen5 - 27-07-19
ضع في نهاية الاستعلام :
order by ID
ID عنيت به عامود رقم الفاتورة .
RE: مشكله فى جلب اعلى رقم - ابراهيم ايبو - 27-07-19
السلام عليكم اخي خالد
حتى تتسلسل الارقام اجعل جملة الاستعلام لاملاء الداتا غرايد هكذا
PHP كود :
"select * From [Table] order by Id Asc "
RE: مشكله فى جلب اعلى رقم - خالد كامل1 - 27-07-19
كلها الحلول ادت الى نتيجه صحيحه ولكنى فضلت عمل لوب للداتا جريد فيو ووضع الرقم التالى بعد اعلى رقم حتى ولو كان الرو ليس بمكانه
لكم منى جزيل الشكر والعرفان والاحترام اخوانى