تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ارد حل لمشكلة الاتصال يا اخوه رجاءا
#1
السلام عليكم ورحمة الله وبركاته

المشروع الذي اعمل عليه الان هو مشروع يعتمد الاتصال فيه على قاعدة بيانات 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() 

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

بارك الله فيكم
الرد }}}}
تم الشكر بواسطة:
#2
.....

جرب التالي
كود :
Imports MySql.Data.MySqlClient
Public Class Form1

    Public cn As New MySqlConnection(" Server=xxxxx.xxxx.com;   " _
                                   & " User id=medical_xxxx;    " _
                                   & " Password=xxxxxx;         " _
                                   & " Database=medical_xxxx;   ")

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim table_name As String = "table1"
        Dim DB1 As String = "db"
        Dim txt1 As String = "abc"
        MsgBox(HasRows(table_name, DB1, txt1))
    End Sub

    Private Function HasRows(ByVal tablename As String, ByVal DB1 As String, ByVal txt1 As String) As Boolean
        Dim sql As String = " SELECT * FROM " & tablename & " WHERE " & DB1 & "= '" & txt1 & "' "
        Dim da As New MySqlDataAdapter(sql, cn)
        Dim dt As New DataTable
        If da.Fill(dt) > 0 Then Return True
    End Function

End Class
الرد }}}}
تم الشكر بواسطة:
#3
جزاك الله خيرا اخي vbnet واشكرك على ردك ومحاولتك حل المشكلة
ولكن ابشرك ان الله اكرمني بحلها الحمد لله

كانت المشكلة ان الاستعلامات كثيرة جدا على القاعدة في وقت واحد
فحاولت تغيير الاكواد وتخفيف حمل الاستعلامات وفتح وغلق الاتصال بمجرد انهاء الاستعلام فتمت المهمه على خير بفضل الله

اشكرك على جهدك واكيد هستغل خبرتك العظيمه في اقرب مشكلة تواجهني

انتظرني Smile

جزاك الله خيرا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] الاتصال بقاعدة البيانات في التقارير (الكريستال ريبورت) thevirus 2 79 23-11-16, 11:05 AM
آخر رد: thevirus
  [SQL] مشكلة عند الاتصال بالسيكوال سيرفر تظهر الرسالة التالية Asmaa adel 8 178 21-11-16, 11:58 PM
آخر رد: Asmaa adel
  [VB.NET] كيف ممكن اجعل هذا الاتصال بتصل بip مختلف عن ip اتصالي 3asfa~mdmra 0 56 27-10-16, 09:56 PM
آخر رد: 3asfa~mdmra
  [سؤال] برنامج الفيجول بيسيك لا يقبل الاتصال بقاعدة بيانات اكسس من نوع accdb abdalla89 6 154 20-10-16, 01:06 AM
آخر رد: جوري
  SQL Connection SERVER - مشاكل الاتصال Kian Tech 12 283 02-09-16, 05:16 AM
آخر رد: %Eman%
  الاتصال بقاعدة البيانات atefkhalf2004 1 92 05-08-16, 06:31 PM
آخر رد: Kian Tech
  كود تحقق الاتصال بالانترنت وتسجيل تلقائي لايميل طالب 22 3 137 05-08-16, 01:04 AM
آخر رد: LoveVb
  [سؤال] الاتصال بقاعدة بيانات موجودة في قوقل درايف أسامة السالمي 11 438 28-07-16, 09:36 PM
آخر رد: aliday03
  [VB.NET] كيفية الاتصال بين برنامجين بدون سوكت وبدون بورت؟ الماجيك مسعد 12 588 27-05-16, 01:10 AM
آخر رد: CLARO
  مشكلة في الاتصال وتنفيذ الكود مرفق صورة أبو فلان 10 369 25-05-16, 08:31 PM
آخر رد: سعود

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


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