[VB.NET] ابحث عن كود يقرأ اخر رقم موجود في القاعدة - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : [VB.NET] ابحث عن كود يقرأ اخر رقم موجود في القاعدة (/showthread.php?tid=12783) الصفحات:
1
2
|
ابحث عن كود يقرأ اخر رقم موجود في القاعدة - 0theghost0 - 21-07-15 السلام عليكم وجدة كود ولكن لم يعمل لدي فبحثت طويلا ان انواع الاكواد وسورسات جاهزة لوضيفه الكود هذا ولكن للأسف لم اوفق في الحصول على سورس . الكود كود : Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;") وضيفة الكود : انه يقرأ اخر رقم موجود : مثلا : ان هناك اخر رقم موجود رقم 10 فالكود يعطيني رقم 11 ليتم المواصلة للعلم الكود لم يعمل عندي الرجاء ثم الرجاء لمن عنده كود سهل وبسيط الرجاء وضعه هنا ليتم الاستفادة من الاكواد اما الكود الثاني : كود : Dim C As Control لم استوعبه ابدا ويقال انه يعمل بشكل جيد ولكن لم افهم طريقته ليعمل لدي ارجو التوضيح لهذا الكود او جعله ابسط بكثير من التعقيدات الموجودة RE: ابحث عن كود يقرأ اخر رقم موجود في القاعدة - احمد عبد الحكيم - 21-07-15 غير ما يلزم فى هذا الكود PHP كود : Dim cmd2 As New OleDbCommand RE: ابحث عن كود يقرأ اخر رقم موجود في القاعدة - 0theghost0 - 21-07-15 شكرا اخي على مجهودك ولكن هناك خطأ الكود Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;") Dim cmd2 As New OleDbCommand cmd2.CommandType = CommandType.Text cmd2.Connection = conn cmd2.CommandText = "select max (Ren_NO) from [Rent_Equipment] " conn.Open() Dim a As Integer = cmd2.ExecuteScalar conn.Close() TextBox5.Text = a End Using مكان الخطأ Dim a As Integer = cmd2.ExecuteScalar عنوان الخطأ An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in System.Data.dll Additional information: Invalid SQL statement; expected 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT', or 'UPDATE'. فهل انا وضع شيء ليس في مكانه ؟؟ RE: ابحث عن كود يقرأ اخر رقم موجود في القاعدة - 0theghost0 - 21-07-15 لم افهم الكود وعندما وضعته لاحظت ان ليس هناك شيء معين لوضع الرقم التلقائي فيه واريد وضع الرقم داخل TextBox5.Text هل يمكنك شرحه لي لاني لم افهمه صحيح واكيف يعمل تلقائي من غير زر يعمل ؟؟ RE: ابحث عن كود يقرأ اخر رقم موجود في القاعدة - mrsalnet - 22-07-15 أفرض أن لدينا ما يلي قاعدة بيانات اسمها DataBase1 جدول أسمه Table1 وفيه حقل أسمه ID نريد أخذ أخر قيمة نكتب الكود التالي في أي حدث نريد حدث ( تحميل النموذج - على زر أمر ) كود : Dim sql As String = "select max(id)as maxid FROM Table1" هذه من إحدى الطرق وهناك طرق عده وإنما عرضت لك مثال وإذا أردة أخر رقم زائد واحد أضف في نهاية الكود السابق السطر التالي كود : Me.TextBox1.Text += 1 RE: ابحث عن كود يقرأ اخر رقم موجود في القاعدة - سعود - 22-07-15 الافضل تستخدم كود مناسب لنوع الربط المستخدم. RE: ابحث عن كود يقرأ اخر رقم موجود في القاعدة - 0theghost0 - 22-07-15 اشكرك على الجهد لكن يوجد خطأ الكود Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;") conn.Open() Dim sql As String = "select max(Ren_NO)as maxid FROM Rent_Equipment" Dim DA As New OleDbDataAdapter(sql, conn) Dim DS As New DataSet DA.Fill(DS, "Rent_Equipment") TextBox5.DataBindings.Add("text", DS, "Rent_Equipment.MaxID") Me.TextBox1.Text += 1 End Using مكان الخطا Me.TextBox1.Text += 1 نوع الخطأ An unhandled exception of type 'System.InvalidCastException' occurred in Microsoft.VisualBasic.dll Additional information: Conversion from string "Ahmed Albasha" to type 'Double' is not valid. RE: ابحث عن كود يقرأ اخر رقم موجود في القاعدة - abid - 22-07-15 (21-07-15, 08:51 PM)0theghost0 كتب : شكرا اخي على مجهودك ولكن هناك خطأ "cmd.CommandText = "select isnull(MAX((Patient_ID)+1),1) from Tb_PatientData Dim x As Integer = cmd.ExecuteScalar txt_ID.Text = x هذه الفكرة من اخونا المهندس خالد السعدني RE: ابحث عن كود يقرأ اخر رقم موجود في القاعدة - 0theghost0 - 22-07-15 مسامحة شباب شكلي بدوخكم وياي ترى الكود مثل الشيء الكود Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;") conn.Open() Dim cmd As New OleDbCommand Dim sql As String = "Select Case isnull(MAX((Ren_NO) + 1), 1) from Rent_Equipment" Dim x As Integer = cmd.ExecuteScalar TextBox5.Text = x End Using مكان الخطأ Dim x As Integer = cmd.ExecuteScalar عنوان الخطأ An unhandled exception of type 'System.InvalidOperationException' occurred in System.Data.dll Additional information: ExecuteScalar: Connection property has not been initialized. فهل من يستطيع مساعدتي اتمنى وضع الكود بجميع محتوياته لا تضع لي نصف الكود او جزء بسيط منه انني مبتدأ في عالم البرمجة لذا اريد شيء استطيع قرائته وفهمه وافادة الاخارين منه اتمنى انكم توقفون وياي ولاتنزعجون مني البرنامج الى استخدمه للتذكير فقط Visual Basic 2015 RC RE: ابحث عن كود يقرأ اخر رقم موجود في القاعدة - طارق الدويري - 22-07-15 ما المقصود باخر رقم موجود ؟ |