[Dr.Sherif]

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

المشروع الذي اعمل عليه الان هو مشروع يعتمد الاتصال فيه على قاعدة بيانات mysql على سيرفري الخاص

الاتصال يتم بشكل سليم

لكن عند تنفيذ امر معين على القاعدة او تنفيذ اي استعلام

يخبرني ان الاتصال بالفعل مفتوح
The connection is already open.

احذف cn.open
يخبرني انه لابد من ان يتوفر اتصال سليم
Connection must be valid and open.

واذا حلت المشكلة من هنا او من هناك يخبرني ان هناك datareader مفتوح لابد من اغلاقه اولا
There is already an open DataReader associated with this Connection which must be closed first

عجزت عن حل المشكلة صراحة

كود الاتصال ::
في الموديول :

PHP كود :

Imports MySql.Data.MySqlClient


Public cn As New MySqlConnection("server=" & "xxxxx.xxxx.com" & ";" _
      & "user id=" & "medical_xxxx" & ";" _
      & "password=" & "xxxxxx" & ";" _
       & "database=medical_xxxx") 


في حدث التحميل في الفورم

PHP كود :

If cn.State = ConnectionState.Open Then
            cn.Close()
        ElseIf cn.State = ConnectionState.Closed Then
            cn.Open()
        End If 


اول كود استعلام يتم قراءته هو

PHP كود :

Dim cmd As New MySqlCommand("select * from " & table_name & " where " & DB1 & " = '" & txt1 & "'", cn)
        Dim dr As MySqlDataReader = cmd.ExecuteReader
        dr.Read()
        If dr.HasRows = True Then
            Return True
        Else
            Return False
        End If
        dr.Close() 


لا اعلم اين الخطأ يا اخوه

بارك الله فيكم