如何实现将excel表导入到数据库，然后导出

如果能给出源代码将不甚感激 问题点数：0、回复次数：2Top

1 楼wlwhhy（.net）回复于 2004-04-04 11:21:20 得分 0

你导入到那种数据库了，如果是sql   server   的话，sql   server   自已就有导入导出工具，如要要用程序实现，有两种方法，第一，通过XML方式，另一种就是用程序打开excel，然后一条一条读出，再送到数据库中，一切OK  
   
  具体的实现我可以给你几个关键有语句：  
  打开excel:  
    With   Me.OpenFileDialog1  
                          .Title   =   "请选择要导入的Excel文件"  
                          .Filter   =   "Excel文件（*.xls)|*.xls"  
                  End   With  
   
                  If   Me.OpenFileDialog1.ShowDialog   =   DialogResult.OK   Then  
                          Dim   xlApp   As   New   Excel.Application  
                          xlApp.Visible   =   False  
                          Dim   xlBook   As   Excel.Workbook  
   
                          Dim   xlSheet   As   Excel.Worksheet  
                          xlBook   =   xlApp.Workbooks().Add  
   
                          xlBook   =   xlApp.Workbooks.Open(Me.OpenFileDialog1.FileName)     '打开EXCEL工作簿  
                          xlSheet   =   xlBook.Worksheets(1)   '打开EXCEL工作表  
   
                          Dim   dt   As   New   DataTable  
    然后你就定义一个Dataset   往里面去送吧：  
  With   xlApp  
                                          row   =   dt.NewRow  
                                          For   j   =   0   To   17  
                                                  row.Item(j)   =   .Cells(i,   j   +   1).text  
                                          Next  
                                          dt.Rows.Add(row)  
                                  Next  
    End   WithTop

2 楼wangsir2083512（可人）回复于 2004-04-04 14:30:10 得分 0

谢谢，那么应该怎么导出呢，  
   
  我用的是access数据库。Top

相关问题

• 数据库
• excel
• me
• 导出
• 导入
• xlbook
• xlapp
• openfiledialog
• 实现
• 打开

• 帖主：wangsir2083512

• CSDN .NET频道
• .NET类图书
• C#类图书
• .NET类源码下载