aspx,.vb 怎么把excel数据导入到sqlserver里

Question

Dim myapp As New Excel.Application()
        Dim xlsbook1 As Excel.Workbook
        xlsbook1 = myapp.Workbooks.add()
        Dim xlssheet1 As Excel.Worksheet
        xlssheet1 = xlsbook1.Sheets("sheet1")
dim cn as new sqlconnection("server=localhost;database=yourdatabasename;uid=sa;pwd=yourpwd;")
dim strsql as string="select * from yourtablename"
dim cmd as new sqlcommand(strsql,cn)
dim dr as sqldatareader
dr=cmd.executereader(commandbehavior.closeconnection)
while dr.read
dim i as integer
for i=1 to rowscount
   dim k as integer
      for k=1 to dr.fieldcount
           xlssheet1.cells(i,k)=dr.item(k-1)
      next k
next i 
dr.close
myapp.quit()
注：对了，上面的rowscount是你的数据行数，你可以通过查询获得

Answer 1

上面的例子是把数据从SQLSERVER导入到EXCEL里啊，但我想把EXCEL的数据导入到SQLSERVER里呀，多谢大家帮助!