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

في خطاء في الكود مع البيئة المتصلة

مغلق
بدأه lana2008 في 31 مارس 2007 · 2 رد · 594 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

هلا انا بشتغل على البيئة المتصلة وعلى قاعدة بيانتات Access

طيب بدي اعرض البيانات على الداتا غريد فيو بون مصفوقة مباشة من القاعدة كتبت الكود بس مازبط وين الخطاء 

Imports System.Data.OleDb
Public Class Form1
    Dim con As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=sam2.mdb")

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Add
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Open
        con.Open()
        Label3.Text = "Connection Is Open"
        Dim cmd As New OleDbCommand("Select * from Tab1", con)
        Dim dr As OleDbDataReader
        dr = cmd.ExecuteReader
        DataGridView1.DataSource = dr
    End Sub

بس البيانات مظهرت في الداتا غريد فيو

تم تعديل هذه المشاركة بواسطة محمد سامر أبو سلو في 31 مارس 2007 في 22:13

#2

مساءووووووووو يا lana2008

الكود دة فعلاً Vb.Net لكن مينفعش نقول كدة

يمكن انتى شوفتية فى درس Asp.Net وبتحاولى تجربية على Windows Application

الفكرة بالظبط ان ال IIS بتقراى الداتا كلها ويبعتها مرة واحدة علشان كدة تقدرى تقولى 

 DataGridView1.DataSource = dr

فى المثال بتاعك دة يمكن الاعتماد على DataSet وان مش عايزاها وعايزة تجربى DataReader يبقى على الاقل نقرا الداتا فى ArrayList 

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'Open
con.Open()
Label3.Text = "Connection Is Open"
Dim cmd As New OleDbCommand("Select * from Tab1", con)
Dim dr As OleDbDataReader
dr = cmd.ExecuteReader
  Dim list As New ArrayList
		For Each obj As Object In dr
			list.Add(obj)
		Next
DataGridView1.DataSource = list
End Sub

ان شاء الله ينفع سلام

Practice makes perfect 2007*

البرمجة بلا انطباعات

#3

السلام عليكم

يمكن كتابة الكود بالشكل التالى 

	  Dim cmd As New SqlClient.SqlCommand("select * from employees", SqlConnection1)
		SqlConnection1.Open()
		Dim sqlDataReader As SqlClient.SqlDataReader = cmd.ExecuteReader
		Dim DataTable As New DataTable("Employee")
		DataTable.Load(sqlDataReader)
		Me.DataGridView1.DataSource = DataTable

{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة

br17.gif

برنامج الإتصلات الإدارية والارشيف الالكتروني

برنامج الخبير لنقاط البيع المباشرة

هذا الموضوع مغلق.

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

عدد الزوار حالياً

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

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

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