+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=45756)
خطا في كود لجلب اخر رقم في قاعدة البيانات - Emam emam - 23-03-23
السلام عليكم ورحمة الله وبركاته
كل عام وانتم بخير
رمضان كريم عليكم جميعا ان شاء الله
لو سمحتوا عندي كود يجلب لي اخر رقم في قاعدة البيانات
الكود شغال كويس لكن لما عملت مشروع جديد ونسخت الكود علشان استخدمه للمشروع الجديد ظهر لي خطا
رغم ان الكود مفيهوش اي خطا
مرفق صورة للخطا
[attachment=28785]
RE: خطا في كود لجلب اخر رقم في قاعدة البيانات - سعود - 23-03-23
أضف As Integer او اي نوع
RE: خطا في كود لجلب اخر رقم في قاعدة البيانات - Emam emam - 23-03-23
(23-03-23, 01:41 AM)سعود كتب : أضف As Integer او اي نوعجزاك الله خيرا ولكن في المشروع القديم مفيهاش مشاكل فما السبب؟
ثانيا الكود التالي نفس القصه برده فيه خطا كما بالصوره
[attachment=28786]
RE: خطا في كود لجلب اخر رقم في قاعدة البيانات - سعود - 23-03-23
يمكن السبب اختلاف اصدار الـ Net Framework
RE: خطا في كود لجلب اخر رقم في قاعدة البيانات - Emam emam - 23-03-23
(23-03-23, 01:58 AM)سعود كتب : يمكن السبب اختلاف اصدار الـ Net Framework
الف شكر اخي بارك الله فيك
RE: خطا في كود لجلب اخر رقم في قاعدة البيانات - سعود - 23-03-23
(23-03-23, 02:05 AM)Emam emam كتب :(23-03-23, 01:58 AM)سعود كتب : يمكن السبب اختلاف اصدار الـ Net Framework
الف شكر اخي بارك الله فيك
العفو اخي الكريم
يعني زال الاشكال بعد التعديل؟!
RE: خطا في كود لجلب اخر رقم في قاعدة البيانات - Emam emam - 23-03-23
(23-03-23, 02:08 AM)سعود كتب :(23-03-23, 02:05 AM)Emam emam كتب :(23-03-23, 01:58 AM)سعود كتب : يمكن السبب اختلاف اصدار الـ Net Framework
الف شكر اخي بارك الله فيك
العفو اخي الكريم
يعني زال الاشكال بعد التعديل؟!
الحمد لله المشكله اتحلت بعد ما ضيفت As Integer
بارك الله فيك
RE: خطا في كود لجلب اخر رقم في قاعدة البيانات - aliday03 - 24-03-23
(23-03-23, 12:35 AM)Emam emam كتب :السلام عليكم ورحمة الله وبركاتهكل عام وانتم بخيررمضان كريم عليكم جميعا ان شاء اللهلو سمحتوا عندي كود يجلب لي اخر رقم في قاعدة البياناتالكود شغال كويس لكن لما عملت مشروع جديد ونسخت الكود علشان استخدمه للمشروع الجديد ظهر لي خطارغم ان الكود مفيهوش اي خطامرفق صورة للخطا
المفروض الفانكش ترجع بقيمة و انت لم تذكر القيمة و عشان الحط الاخضر يتشال لازم تضيف عليها بعض اسم الفانكش و القوسين
as integer
RE: خطا في كود لجلب اخر رقم في قاعدة البيانات - sanyor77 - 27-03-23
يبدو أن هناك بعض الأخطاء النحوية والتنسيقية في الكود الذي قدمته. أقدم لك نسخة معدلة من الكود لتصحيح هذه الأخطاء:
PHP كود :
Imports System.Data.SqlClient
Module AddPatientData_Module
Public connSQL As New SqlConnection("Server=.\SQLEXPRESS; Initial Catalog=YourDatabaseName; Integrated Security=True;")
Public dtload_Test_Internal As New DataTable
Public daload_Test_Internal As New SqlDataAdapter
Public Function Max_Code_Form_Patients() As Integer
'لإظهار رقم تلقائي في ليبل
Dim Number As Integer
Try
Dim cmd As New SqlCommand("SELECT MAX(Code) FROM Patients", connSQL)
If connSQL.State = ConnectionState.Open Then connSQL.Close()
connSQL.Open()
Number = CInt(cmd.ExecuteScalar)
connSQL.Close()
Catch ex As Exception
Number = 0
connSQL.Close()
End Try
Return Number
End Function
End Module
تأكد من استبدال YourDatabaseName باسم قاعدة البيانات الخاصة بك في سطر اتصال SqlConnection.
بالنسبة للأخطاء الأصلية التي قدمتها:
- ABC42021: يجب تحديد نوع القيمة المرجعة للدالة باستخدام جملة As. في هذه الحالة، يجب أن يكون نوع القيمة المرجعة Integer.
- BC42019: لا يمكن استخدام العمليات الحسابية على عناصر من نوع Object. في هذه الحالة، قمت بتحويل القيمة المسترجعة من cmd.ExecuteScalar إلى Integer باستخدام CInt().
- BC42016: يحدث هذا الخطأ عند تحويل قيمة من نوع Object إلى String بشكل غير صريح. في هذا الكود المعدل، لم يعد هذا الخطأ موجودًا لأننا قمنا بتحديد نوع القيمة المرجعة للدالة واستخدمنا التحويل الصريح.
بعد تنفيذ هذه التعديلات، يجب أن يعمل الكود بشكل صحيح في مشروعك الجديد.