+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=12597)
المشكلة بترقيم تلقائي لحقل في قاعدة البيانات - raaddawood - 26-06-15
لدي حقول في جدول daily عبارة عن ارقام سندات تخزن في الجدول
استخدمت الكود التالي ولكن لم يعمل
Try
Dim num As String = "select max(id_kh) from daily"
Dim tar As New OleDbCommand(num, conn)
conn.Open()
Dim A As Integer = tar.ExecuteScalar + "1"
Me.TextBox1.Text = A
conn.Close()
' Me.TextBox2.Clear()
Catch ex As Exception
End Try
أين الخطأ وكيف اضيف ترقيم تلقائي لهذا الحقل علما" قد تكون هناك فراغات بالسجلات لأن قد يكون هناك رقم اخر لسجل اخر فيه ترقيم لسند صرف مثلا" في حقل اسميته id_s ولسند قيد id_k
RE: المشكلة بترقيم تلقائي لحقل في قاعدة البيانات - Genius Live - 29-06-15
try this
Dim num As String = "SELECT MAX(ID_kh) + 1 AS Expr1 FROM Daily"
Dim OleDBDR As OledbDataReader
With OleDBC
.Connection = con
.CommandText = num
End With
OleDBDR = OleDBC.ExecuteReader
If OleDBDR.HasRows Then
While OleDBDR.Read
If OleDBDR.IsDBNull(0) = True Then
TextBox1.Text = 1
Else
TextBox1.Text = (OleDBDR.Item("Expr1"))
End If
End While
Else
TextBox1.Text = 1
End If
RE: المشكلة بترقيم تلقائي لحقل في قاعدة البيانات - raaddawood - 29-06-15
السلام عليكم
أخي العزيز
أعمل على قاعدة أكسس ... وما هو المتغير OleDBC في عبارة With OleDBC
برجاء التوضيح ليعمل الكود
ولكم جزيل الشكر