[Emam emam]

السلام عليكم ورحمة الله وبركاته

كل عام وانتم بخير 

رمضان كريم عليكم جميعا ان شاء الله

لو سمحتوا عندي كود يجلب لي اخر رقم في قاعدة البيانات

الكود شغال كويس لكن لما عملت مشروع جديد ونسخت الكود علشان استخدمه للمشروع الجديد ظهر لي خطا

رغم ان الكود مفيهوش اي خطا

مرفق صورة للخطا

   

[سعود]

أضف As Integer او اي نوع

[Emam emam]

(23-03-23, 01:41 AM)سعود كتب : أضف As Integer او اي نوع

جزاك الله خيرا ولكن في المشروع القديم مفيهاش مشاكل فما السبب؟
ثانيا الكود التالي نفس القصه برده فيه خطا كما بالصوره

   

[سعود]

يمكن السبب اختلاف اصدار الـ Net Framework

[Emam emam]

(23-03-23, 01:58 AM)سعود كتب : يمكن السبب اختلاف اصدار الـ Net Framework

الف شكر اخي بارك الله فيك

[سعود]

(23-03-23, 02:05 AM)Emam emam كتب :

(23-03-23, 01:58 AM)سعود كتب : يمكن السبب اختلاف اصدار الـ Net Framework

الف شكر اخي بارك الله فيك

العفو اخي الكريم
يعني زال الاشكال بعد التعديل؟!

[Emam emam]

(23-03-23, 02:08 AM)سعود كتب :

(23-03-23, 02:05 AM)Emam emam كتب :

(23-03-23, 01:58 AM)سعود كتب : يمكن السبب اختلاف اصدار الـ Net Framework

الف شكر اخي بارك الله فيك

العفو اخي الكريم
يعني زال الاشكال بعد التعديل؟!

الحمد لله المشكله اتحلت بعد ما ضيفت As Integer
بارك الله فيك

[aliday03]

(23-03-23, 12:35 AM)Emam emam كتب :

السلام عليكم ورحمة الله وبركاته

كل عام وانتم بخير 

رمضان كريم عليكم جميعا ان شاء الله

لو سمحتوا عندي كود يجلب لي اخر رقم في قاعدة البيانات

الكود شغال كويس لكن لما عملت مشروع جديد ونسخت الكود علشان استخدمه للمشروع الجديد ظهر لي خطا

رغم ان الكود مفيهوش اي خطا

مرفق صورة للخطا

المفروض الفانكش ترجع بقيمة و انت لم تذكر القيمة و عشان الحط الاخضر يتشال لازم تضيف عليها بعض اسم الفانكش و القوسين 
as integer

[sanyor77]

يبدو أن هناك بعض الأخطاء النحوية والتنسيقية في الكود الذي قدمته. أقدم لك نسخة معدلة من الكود لتصحيح هذه الأخطاء:

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.
بالنسبة للأخطاء الأصلية التي قدمتها:

1. ABC42021: يجب تحديد نوع القيمة المرجعة للدالة باستخدام جملة As. في هذه الحالة، يجب أن يكون نوع القيمة المرجعة Integer.
   
2. BC42019: لا يمكن استخدام العمليات الحسابية على عناصر من نوع Object. في هذه الحالة، قمت بتحويل القيمة المسترجعة من cmd.ExecuteScalar إلى Integer باستخدام CInt().
   
3. BC42016: يحدث هذا الخطأ عند تحويل قيمة من نوع Object إلى String بشكل غير صريح. في هذا الكود المعدل، لم يعد هذا الخطأ موجودًا لأننا قمنا بتحديد نوع القيمة المرجعة للدالة واستخدمنا التحويل الصريح.
   

 
بعد تنفيذ هذه التعديلات، يجب أن يعمل الكود بشكل صحيح في مشروعك الجديد.