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



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


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