الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة عند الاتصال المباشر مع قاعدة البيانات

بدأه jennya في 29 يناير 2007 · 5 رد · 1,184 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

مشكلتي انه عند الاتصال بقاعدة بيانات بطريقة الاتصال المباشر تظهر لي رسالة خطأ(مرفقه)",, حيث اني كنت اريد اظهار البيانات في تيكست بوكس

ولما اعمل الاتصال عن طريق ال dataset ينجح الاتصال

مالعمل؟ هل فيه مكتبة ناقصه لم اضيفها؟

Imports System.Data
Imports System.Data.OleDb
Dim myreader As OleDbDataReader
Dim objconnection As New OleDbConnection
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        objconnection.ConnectionString=("provider=microsoft.jet.oledb.4.0;data source=c:\northwind.mdb.com")
        objconnection.Open()
        Dim strsql As String
        strsql = "select EmployeeID,LastName from Employee order by EmployeeID"
        Dim objcommand As New OleDbCommand(strsql, objconnection)
        myreader = objcommand.ExecuteReader
        myreader.Read()
        TextBox1.Text = myreader("EmployeeID")
        TextBox1.Text = myreader("LastName")
    End Sub
post-33391-1170086096_thumb.jpg

      
      

      
    

  

    
    

      
#2
        
        

      
هذا تصحيح الكود
وعدل الكود على حسب اسم وموقع قاعدة البيانات ولا تنسى اسم الجدول 
 


	Dim objconnection As New OleDb.OleDbConnection
	Dim myreader As OleDb.OleDbDataReader

		objconnection.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Northwind.mdb;Persist Security Info=False")
		objconnection.Open()
		Dim strsql As String
		strsql = "select EmployeeID,LastName from Employees order by EmployeeID"
		Dim objcommand As New OleDb.OleDbCommand(strsql, objconnection)

		myreader = objcommand.ExecuteReader

		myreader.Read()

		TextBox1.Text = myreader("EmployeeID")
		TextBox2.Text = myreader("LastName")

 myreader.Close()
		objconnection.Close()

      
تم تعديل هذه المشاركة بواسطة طاااير في 29 يناير 2007 في 20:26

      

      
    

  

    
    

      
#3
        
        

      
جزاك الله خير على سرعة الرد .... بس للاسف نفس المشكله لازلت تظهر  :( يمكن فيه اداه لازم احطها على الفورم ؟؟ انا ماحطيت غير التيكست بوكس فقط
جزاك الله خير على سرعة الرد .... بس للاسف نفس المشكله لازلت تظهر  :( يمكن فيه اداه لازم احطها على الفورم ؟؟ انا ماحطيت غير التيكست بوكس فقط

      
      

      
    

  

    
    

      
#5
        
        

      
While DataReader.read
////   Code
end while

      
      

      
    

  

    
    

      
#6
        
        

      
الرسالة تؤكد وجود خطأ فى سلسلة الأتصال
  لمعرفتة لا بد من رمى إستثناء كالكود التالى
 try

	  objconnection.Open()

		   Dim strsql As String

		   strsql = "select EmployeeID,LastName from Employee order by EmployeeID"

		   Dim objcommand As New OleDbCommand(strsql, objconnection)

		   myreader = objcommand.ExecuteReader

		   myreader.Read()

		   TextBox1.Text = myreader("EmployeeID")

		   TextBox1.Text = myreader("LastName")

   Catch aa As oleclient.olelException			الأستثناء من نوع الكائن 

			   MsgBox(aa.Message)	  عرض الأستثناء لمعرفتة ومن ثم معالجتة

			   MsgBox(objconnection .State)		 عرض حالة الأتصال	 

		   Catch ex As Exception

	   End Sub

      
تم تعديل هذه المشاركة بواسطة vbm في 29 أبريل 2008 في 03:37

      

      
  أصفق أو لا أصفق فخلفي كتلة شحم تصفق وبعض المساحيق كانت تصفق وجاري يصفق وأسأل .. هل أعجبته الرواية؟ يبحلق ثم يلكز جنبي ويمضي يصفق أصفق أو لا أصفق أمامي كل الرؤوس تصفق وخلفي كل الصفوف تصفق أتى مارد شدني من يدي وتساءل لم لا تصفق تصايح كل الحضور اطردوه تحسست عقلي اطردوه أفقت لنفسي طريداً طريد فصفقت حتى انقطاع الوريد حتى انقطاع الوريد أصفق من أجل ذاك الذي لايصفق 

    

  

    
    
    
 مواضيع مشابهة





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…