تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة ال Function
#1
السلام عليكم ..
الاخوة ماسبب ظهور خط اخضر متعرج تحت عبارة
End Function
مرفق الكود:

Public Function IsConnected(ByVal strQry As String, ByVal ver As Boolean)
Try

If Conn.State = ConnectionState.Open Then Conn.Close()
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\database.mdb;"
Conn.Open()

Cmd.CommandText = strQry
Cmd.Connection = Conn

If ver = False Then
DR = Cmd.ExecuteReader()
Else
Cmd.ExecuteNonQuery()
End If

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try

End Function

End Module

الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

لانك لم تقم بإرجاع قيمة
إذا كنت لا تريد ارجاع قيمة استبدل كلمة Function بكلمة Sub
Big Grin
<---------------------------------------------------------------->

الرد
تم الشكر بواسطة:
#3
وفقك الله كيف ارجع قيمة المشروع كله قائم على الموديل
الرد
تم الشكر بواسطة:
#4
فقط إستبدل Function ب Sub
منقطع .. للدراسة Confused
الرد
تم الشكر بواسطة:
#5
الف شكر تم الاستبدال بدون مشاكل
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة كبيرة ارجو المساعدة خالد20 2 109 , 03:16 PM
آخر رد: خالد20
  طلب المساعدة لحل مشكلة هذه الرسالة System Argument Exception abutalal2020 1 64 18-06-21, 10:42 AM
آخر رد: alfaiz678
  مشكلة في تشغيل البرنامج علاء الكبابي 3 257 08-06-21, 03:42 PM
آخر رد: علاء الكبابي
  مشكلة في استعلام عن سجل موجود والتعديل عليه عبدالكريم برشدان 8 359 01-06-21, 05:19 AM
آخر رد: عبدالكريم برشدان
  [VB.NET] مشكلة بالكريستال لا يريد التنصيب AhmedNagib 7 430 30-05-21, 11:39 PM
آخر رد: ابو انس
Sad مشكلة عدم دقة توقيت التايمر أسعد 14 885 27-05-21, 03:32 AM
آخر رد: معاند الحظ
  مشكلة في تحويل كود من c# الى vb.net aldery 2 320 18-05-21, 06:47 PM
آخر رد: aldery
  [VB.NET] مشكلة في برنامج vb.net aliabdullah 3 362 13-05-21, 10:19 AM
آخر رد: Fantastico
  مشكلة عندالتعامل مع (My.Application.CommandLineArgs) عبدالله الصافي 12 971 21-04-21, 03:17 PM
آخر رد: عبدالله الصافي
  مشكلة تحديث برنامجي عن تحزيمه ببرنامج Smart Install Maker alfaiz678 2 320 18-04-21, 12:42 PM
آخر رد: alfaiz678

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم