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

برجاء تكمله كود الربط مع الاكسيل

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

بسم الله الرحمن الرحيم

احاول الربط مع ملف اكسيل بالكود التالى


Imports System.Data.OleDb
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As New OleDb.OleDbConnection
conn.ConnectionString = _
("Provider=Microsoft.Jet.Oledb.4.0;Data Source=Book1.xls; Extended Properties=Excel 8.0")
Dim SelectString As String
SelectString = "SELECT * FROM Book1 "
Dim Cmd As New OleDb.OleDbCommand(SelectString, conn)
conn.Open()
Try
Cmd.ExecuteNonQuery()
Catch zx As SqlClient.SqlException
End Try
conn.Close()
End Sub
End Class
Imports System.Data

و رساله الخطأ تظهر فى سطر

		SelectString = "SELECT * FROM Book1 "

و فى حاله تعطيل هذا السطر يتم الاتصال بشكل طبيعى

و مشكور لمن يتفضل بالرد

السلام عليكم

#2

نسيت ان ارفق ملف

المف بالمرفقات

WindowsApplication1.rar

#3

عليكم السلام

xls.txt

xls.txt

تم تعديل هذه المشاركة بواسطة فيبولتن في 12 مايو 2007 في 19:39

[ CISCO + IT + VB.NET ]

#4

بسم الله الرحمن الرحيم

مشكور اخى الكريم على الرد السريع

الكود لم يعمل معى و اتمنى ان ترفق ملف لانى اعتقد ان حلك افضل لانك تستطيع الوصول الى اوراق العمل

لقد قمت بحل مؤقت بانشاء مجال فى ملف الاكسيل باسم Sheet1 ثم استخدمت الكود التالى


Dim conn As New OleDb.OleDbConnection
Dim ds As DataSet
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
conn.ConnectionString = _
("Provider=Microsoft.Jet.Oledb.4.0;Data Source=Book1.xls; Extended Properties=Excel 8.0")
Dim SelectString As String
SelectString = "SELECT Code , Name,Ph from sheet1 Where Code > 0 "
Dim Cmd As New OleDb.OleDbCommand(SelectString, conn)
Dim SDA As New OleDb.OleDbDataAdapter(Cmd)
ds = New DataSet
conn.Open()
SDA.Fill(ds)
DataGridView1.DataSource = ds
DataGridView1.DataMember = ds.Tables(0).TableName
conn.Close()
End Sub
End Class
Public Class Form2

و الكود يعمل بشكل جيد و لكنى فى انتظار ملفك للوصول الى الحل الافضل

مرفق ملف

السلام عليكم

#5

عليكم السلام

xls.txt

[ CISCO + IT + VB.NET ]

#6

CREATE

INSERT

SELECT

SHOW

xls.txt

[ CISCO + IT + VB.NET ]

#7

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

شكرا لتعاونكم ..

#8
فيبولتن كتب:
CREATE

INSERT

SELECT

SHOW

بسم الله الرحمن الرحيم

مشكور اخى الكريم بارك الله فيك

اقتباس
كنت اتمنى يستفيد الجميع من المشكلة والحل .. لا أن يتم التداول في المنتدى بالحلول الفردية

شكرا لتعاونكم ..

برجاء التوضيح

السلام عليكم

تم تعديل هذه المشاركة بواسطة هادى سالم في 14 مايو 2007 في 18:17

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

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

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

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

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

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