السلام عليكم ورحمة الله وبركاته
يا جماعة الخير انا سويت برنامج صغير يقوم بالاستيراد من ملف اكسل الى ملف اكسس (اخذت بعضه من موضوع سابق هنا )
والحمد لله ثم الشكر الكثير لكم ضبط عندي زي الفل
بس المشكلة اذا شغلته على كمبيوتر ثاني يطلع لي رسالة خطاء ولا يمديني اقراها لان الكمبيوتر على طول يسوي اعادة تشغيل لنفسه
قمت و جربته على كمبيوترين غيره بس نفس المشكلة تطلع
وهذا الكود اللي اناديه عشان يسوي الاستيراد:
====================================================
Dim EXL As New Microsoft.Office.Interop.Excel.Application
Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\DB\attedanceSys.mdb"
Dim conn As New OleDb.OleDbConnection(ConnString)
Dim FullExDirectory As String
==============================
Private Sub ImportSame(ByVal SheetNo As String, ByVal TableString As String, ByVal ColCount As Integer)
Dim WSheet As New Microsoft.Office.Interop.Excel.Worksheet
WSheet = EXL.Workbooks.Open(FullExDirectory).Worksheets.Item(SheetNo)
Dim CData As Microsoft.Office.Interop.Excel.Range
CData = WSheet.Range("A2:B" & WSheet.Rows.Count)
Dim iCol, iRow As Integer
Dim ReadFlag As Boolean = False
'========================
Dim cmd As New OleDb.OleDbCommand("", conn)
conn.Open()
For iCol = 1 To WSheet.Rows.Count
Dim SB As New System.Text.StringBuilder
For iRow = 1 To ColCount
SB.Append("'" + CStr(CData(iCol, iRow).value) + "',")
If SB.ToString = "''," Then
ReadFlag = True
Exit For
End If
Next
If Not ReadFlag Then
SB.Remove(SB.Length - 1, 1)
SB.Append(")")
If SB.ToString.Length Then
cmd.CommandText = "INSERT INTO " & TableString & " VALUES (" & SB.ToString
cmd.ExecuteNonQuery()
SB.Remove(0, SB.Length)
End If
Else
Exit For
End If
Next
conn.Close()
EXL.Workbooks.Close()
End Sub
====================================================================
تكفووووووووووووووووووووون اللي عنده حل ولا قد مر بنفس المشكله يقولي وش اسوي لان مهم مرررررررررررررره اعرف المشكلة وين
وسلامتكم وشكرا لكم مرة ثانية