mandana.k
سه شنبه 04 دی 1386, 08:51 صبح
دوستان،
من یک برنامه نوشته ام ومی خواهم یک فایل excle را ازطریق برنامه به database(oracle(
import کنم
تکه برنامه من این است اما این کار انجام نمی شودونمی دانم مشکل از کجاست.
[Imports Microsoft.Office.Interop.Excel
Dim sqlString As String
""=Me.OpenFileDialog1.InitialDirectory
"Me.OpenFileDialog1.Title = "Select the Excel File to import from
"*.*|(*.*) Me.OpenFileDialog1.Filter = "Excel(*.xls)|*.xls|All files
If Me.OpenFileDialog1.ShowDialog <> DialogResult.Cancel Then
sqlString = "INSERT INTO test SELECT * from [Excel 8.0;DATABASE=" & OpenFileDialog1.FileName & ";HDR=YES;IMEX=1].[Sheet1$];"[LEFT][/LEFT
Else
( "MsgBox("File not exists
Exit Sub
End If
"" = OpenFileDialog1.FileName
Dim oApB As New CAppBase
(oApB.ExeCom(sqlString, CEnums.SQLType.Reader
( " MsgBox("Successfully Imported
()oApB.CloseCN
:ناراحت:
من یک برنامه نوشته ام ومی خواهم یک فایل excle را ازطریق برنامه به database(oracle(
import کنم
تکه برنامه من این است اما این کار انجام نمی شودونمی دانم مشکل از کجاست.
[Imports Microsoft.Office.Interop.Excel
Dim sqlString As String
""=Me.OpenFileDialog1.InitialDirectory
"Me.OpenFileDialog1.Title = "Select the Excel File to import from
"*.*|(*.*) Me.OpenFileDialog1.Filter = "Excel(*.xls)|*.xls|All files
If Me.OpenFileDialog1.ShowDialog <> DialogResult.Cancel Then
sqlString = "INSERT INTO test SELECT * from [Excel 8.0;DATABASE=" & OpenFileDialog1.FileName & ";HDR=YES;IMEX=1].[Sheet1$];"[LEFT][/LEFT
Else
( "MsgBox("File not exists
Exit Sub
End If
"" = OpenFileDialog1.FileName
Dim oApB As New CAppBase
(oApB.ExeCom(sqlString, CEnums.SQLType.Reader
( " MsgBox("Successfully Imported
()oApB.CloseCN
:ناراحت: