تقييم الموضوع :
  • 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
الف شكر تم الاستبدال بدون مشاكل
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في كود حسابة سرعة التحميل Top King 0 23 منذ 2 ساعة مضت
آخر رد: Top King
  [سؤال] حل مشكلة عدم وجود اضافة vlc في فجويل حاتمي 2 65 16-05-19, 02:11 PM
آخر رد: حاتمي
  [VB.NET] مشكلة بسيطة اسامه الهرماوي 4 72 16-05-19, 01:53 PM
آخر رد: elgokr
  مشكلة توقف البرنامج محمد ابوخليل 4 108 16-05-19, 01:50 PM
آخر رد: elgokr
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 9 179 15-05-19, 06:08 PM
آخر رد: makky
  مشكلة في كود الحذف والحفظ في نفس الوقت ahmedfa71 9 145 14-05-19, 11:48 AM
آخر رد: ahmedfa71
  مشكلة عند التصدير الى اكسل nooralcown 2 93 11-05-19, 02:30 PM
آخر رد: elgokr
  فيجوال ستوديو 2019 iso + مشكلة طلب التسجيل alfaiz678 4 115 05-05-19, 09:33 AM
آخر رد: alfaiz678
  مشكلة في regex farfour 1 102 23-04-19, 12:13 AM
آخر رد: fouadhdfouad
  مشكلة حفظ التاريخ samira20 17 440 20-04-19, 06:17 AM
آخر رد: elgokr

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


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