06-06-14, 01:04 AM
السلام عليكم ورحمة الله وبركاته
المشروع الذي اعمل عليه الان هو مشروع يعتمد الاتصال فيه على قاعدة بيانات 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
عجزت عن حل المشكلة صراحة
كود الاتصال ::
في الموديول :
في حدث التحميل في الفورم
اول كود استعلام يتم قراءته هو
لا اعلم اين الخطأ يا اخوه
بارك الله فيكم
المشروع الذي اعمل عليه الان هو مشروع يعتمد الاتصال فيه على قاعدة بيانات 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()
لا اعلم اين الخطأ يا اخوه
بارك الله فيكم