import فایل اکسل به دیتابیس sql

[sky1388]

Dim s AsString
s = FileUpload1.PostedFile.FileName
Dim excelConnection As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & s & ";Extended Properties=Excel 8.0")

Dim

)exlcomm AsNew System.Data.Odbc.OdbcCommand

"SELECT * INTO [ODBC;Driver={SQL erver};Server=.;Database=Royan_Access;Trusted_Conn ection=yes].[" & (TextBox1.Text & "_xls] FROM [Sheet1$];", excelConnection
excelCommand.ExecuteNonQuery()

این کد در داخل asp جواب میده اما هنگامی که publish آنرا در iis از طریق ساخت virthual directury اجرا میکنی error زیر داده می شه


ODBC--connection to '{SQL Server}.' failed.

لطفا راهنمایی کنید
با سپاس فراوان

[soheila_1643]

سلام
منم این مشکلو دارم اگه راهی براش پیدا کردین لطفا راهنمایی کنینن خیلی فوریه

[mostafa_tak2000]

سلام
من با این کد مشلی ندارم ببین چیزی به دردت میخوره

Dim cnstr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\book1.xls;Extended Properties='Excel 12.0;HDR=YES;';"
Dim oledbConn As OleDbConnection = New OleDbConnection(cnstr)
oledbConn.Open()
Dim dt As DataTable = oledbConn.GetOleDbSchemaTable(OleDbSchemaGuid.Tabl es, Nothing)
Dim strSQL As String = "SELECT * FROM [" + dt.Rows(0)("Table_Name") + "]"
Dim cmd As OleDbCommand = New OleDbCommand(strSQL, oledbConn)
Dim ds As DataSet = New DataSet()
Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
da.Fill(ds)

[mostafa_tak2000]

یادم رفت بگم که من محتویات فایل اکسل را میخونم و به یک دیتاگریدویو منتقل میکنم