求助：如何实现将数据导入数据库中的某个表，请指点一下……

Question

vc/mfc + Sql Server2000 开发WinForm 数据库系统, 小弟想要实现下面两个功能：１、将Excel中的数据导入到数据库的某个表中。２、将一个数据库（Acess或者Sql Server）中的某个表的数据导入到另外一个数据库（Sql Server）中的某个表中。具体要如何实现，请各位大侠指点一下，谢谢！！学习，关注……

Answer 1

可以用SQL语句实现/*===================================================================*/  
--如果接受数据导入的表已经存在  
insert  into  表  select  *  from    
OPENROWSET('MICROSOFT.JET.OLEDB.4.0'  
,'Excel  5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$)  
 
--如果导入数据并生成表  
select  *  into  表  from    
OPENROWSET('MICROSOFT.JET.OLEDB.4.0'  
,'Excel  5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$)  
 
 

Answer 2

SQL Server有导入数据功能ACCESS也有

Answer 3

去找一个封装好的ADO类
CAdoConnection 
CAdoRecordSet 
是封装的MSADO15好像

Answer 4

http://topic.csdn.net/t/20040308/17/2820240.html

Answer 5

Inherits   System.Windows.Forms.Form
        Dim   DS1   As   New   System.Data.DataSet
        Dim   DS2   As   New   System.Data.DataSet
          Private   Sub   Button1_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   Button1.Click
                Dim   MyCommand   As   System.Data.OleDb.OleDbDataAdapter
                Dim   MyConnection   As   System.Data.OleDb.OleDbConnection                MyConnection   =   New   System.Data.OleDb.OleDbConnection(   _
                            "provider=Microsoft.Jet.OLEDB.4.0;   "   &   _
                            "data   source=e:\BOOK1.XLS;   "   &   _
                            "Extended   Properties=Excel   8.0;")
                '   Select   the   data   from   Sheet1   of   the   workbook.
                MyCommand   =   New   System.Data.OleDb.OleDbDataAdapter(   _
                            "select   *   from   [Sheet1$]",   MyConnection)
'或者是DS1.ReadXml("c:\abcd.xml")                MyCommand.Fill(DS1,   "handle")
                DataGrid1.DataSource   =   DS1
                MyConnection.Close()        End   Sub        Private   Sub   Button2_Click(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   Button2.Click
                Try
                        Dim   j   As   Integer
                        Dim   person_id,   information_id,   handle   As   String
                        Dim   handle_time   As   System.DateTime
                        'If   Me.SqlConnection1.Close()   Then
                        Me.SqlConnection1.Open()
                        'End   If
                        For   j   =   1   To   DS1.Tables("handle").Rows.Count   -   1                                Me.SqlDataAdapter1.InsertCommand.Parameters("@person_id").Value   =   DS1.Tables("handle").Rows(j).Item(0)
                                Me.SqlDataAdapter1.InsertCommand.Parameters("@information_id").Value   =   DS1.Tables("handle").Rows(j).Item(1)
                                Me.SqlDataAdapter1.InsertCommand.Parameters("@handle").Value   =   DS1.Tables("handle").Rows(j).Item(2)
                                Me.SqlDataAdapter1.InsertCommand.Parameters("@handle_time").Value   =   CDate(DS1.Tables("handle").Rows(j).Item(3))
                                Me.SqlDataAdapter1.InsertCommand.ExecuteNonQuery()
                        Next                        'MessageBox.Show(SqlDataAdapter1.InsertCommand.CommandText)
                        Me.SqlConnection1.Close()
                Catch   ex   As   Exception
                        MessageBox.Show(ex.Message)
                End   Try        End   Sub一个例子，原理就是先把Excel或xml文件的数据通过DataSet读到Datagrid中，再一个个取出保存到数据库中去。 

Answer 6

楼主的说明：
1）我是使用ODBC来连接数据库的！！上面的方法好象不适合啊！！！2）使用1楼的方法的时候，出现错误提示“'MICROSOFT.JET.OLEDB.4.0'  报错！！”关注……

Answer 7

同意 zblaoshu1979(周博) 方法
我一般也是这样做的

Answer 8

楼主的说明：使用1楼的方法的时候，出现错误提示“'MICROSOFT.JET.OLEDB.4.0'  报错！！”有谁能帮我解决这个问题啊？？HELP……