找导Excel文件进入sql数据库例子

Question

方法1：insert OPENDATASOURCE(
         'SQLOLEDB',
         'Data Source=远程ip;User ID=sa;Password=密码'
         ).库名.dbo.表名 (列名1,列名2)
SELECT 列名1,列名2
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions

Answer 1

方法2：
                Dim connstr As String
                connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("Test.mdb")
                Dim cn As New System.Data.OleDb.OleDbConnection(connstr)
                Dim strSQL As String = "INSERT INTO TestTable (Title,Description) VALUES('" _
                 + Request.Form("Title").ToString() + "','" + Request.Form("Desc").ToString() + "')"
                cn.Open()
                Dim cmd As New System.Data.OleDb.OleDbCommand(strSQL, cn)
                cmd.ExecuteNonQuery()
                cn.Close()
                cn.Dispose()
                cmd.Dispose()