Public Sub pp0()
Try
con.Open()
Dim sql As String = "SELECT ISNULL(MAX(ID3)+1, 1) FROM PD_T "
Dim cmd As SqlCommand = New SqlCommand(sql, con)
Dim da As SqlDataAdapter = New SqlDataAdapter(cmd)
Dim dt As DataTable = New DataTable
da.Fill(dt)
Form1.TextBox3.Text = dt.Rows(0)(0).ToString
Catch ex As Exception
MsgBox(ex.Message)
con.Close()
End Try
تم تجربة الكود على قاعدة بيانات سكول سيرفر ويعمل بنجاح
(28-08-16, 05:18 PM)khodor1985 كتب : السلام ليكم أخي العزيز ورحمة الله وبركاته
أولا ما هي نوع قاعدة البيانات هل هي SQL أم Access ؟
أخي جميل علي تابع المشاركة الكود الذي طرحته يتخلله خطأ، تابع وسوف تدرك مكمن الخطأ، أعود وأكرر إفهموا الأساسيات والمبادئ وسوف تصنعون المعجزات.
أستاذي العزيز تم تجربة الكود وهو يعمل بشكل سليم!
أعيد لك ماذكرته سابقاً
مازلت قطره في بحر علمكم الغزير
زاك الله من علمه
(28-08-16, 05:03 PM)معتز الجازوي كتب : بارك الله فيك اخي الكريم .. ممكن شرح الكود ماذا تعني ISNULL و (MAX(ID3)+1, 1) و PD_T
ISNULL = إذا كان الحقل فارغ
PD_T= اسم الجدول الموجود في القاعدة
MAX(ID3)+1, 1 = يجلب اكبر رقم موجود في الحقل ID3 ويضيف علية 1واذا كان الحقل فارغ يجعل قيمة 1