[翻译]使用C#创建SQL Server的存储过程(Visual Studio 2005 + SQL Server 2005)

公告： 为响应国家净网行动，部分内容已经删除，感谢读者理解。
话题：用VB做怎么将Excel数据导入SQL数据库中?
问题详情：用VB做怎么将Excel数据导入SQL数据库中?回答：方法一:可以试着用VB书写一段调用SQL Server数据库DTS的码,然后就可以像直接使用DTS进行数据导入一样就行Excel与SQL Server数据之间的迁移了。 方法二:可以用VB来作EXCEL,然后一条数据一条数据的入到数据库中,这种方法不使用,因为VB作EXCEL是非常慢的,如果数据量太大,很有可能会造成机。
参考回答：在VB中,定义excel对象。把数据存到变量数组里,然后连接数据,将数组中的数据写到数据库的表中。具体使用及定义方法,在VB帮话题：EXCEL 导入SQL2005 提示 找不到可安装的 ISAM。 (
问题详情：我的是SQL2005,在2000上升级的,不可能重装数据库的,前台回答：楼主,这种事情我做过. Excel可以接SQL数据库,且还能做可以按条件,实时地做动态更新.如果您需要了解这个的话,我可以给您个我自己做的演示档, 如需要,您Hi我一下吧 回答者: lxlzmh2002 - 下位魔导师 十一级 200--24 12:06 =================================================================== 再复本贴: EXCEL 导入SQL2005 这句话我理解错误,不好意思。 我给您的例是在Excel上,不借助任何码从SQL Server 实现时实现动态取数。就其原理上,首先Excel是建立与SQL的ODBC或ADO连接,然后它从数据库表上的数据读取出来。您是做数据库的会知道,只要这个连接建立了,读和写仅话题：VB 如何实现数据的EXCEL导入到SQL及SQL导出? 假设导回答：Private Sub mand2_Click() If Adodc1.Recordset.RecordCount = 0 Then '数据源的为空,则提示无,更改条件 MsgBox "所得数据为空,请更改条件", 4, "RFID生產管理系統" Else Dim i As Integer Dim j As Integer Dim excelApp As Excel.Application Set excelApp = New Excel.Application excelApp.Workbooks.Add excelApp.Visible = True Adodc1.Recordset.MoveFirst For i = 0 To Adodc1.Recordset.RecordCount - 1 For j = 0 To Adodc1.Recordset.Fields.Count - 1 excelApp.Cells(i + 2, j + 1) = Adodc1.Recordset(j) & "" Next j Adodc1.Recordset.MoveNext Next i End IfEnd Sub
参考回答：人帮你顶下哈!!话题：在excel中用vba实现与sql数据库的数据比较
问题详情：我想将excel中,一个字段中的数据与sql中某个表中的某个字段中回答：可以做到,但不是三言两语能说清楚的。至少VBA程序不会太短 如果用手工作,不借助VBA,可以利用Excel的“数据-导入外部数据”菜单将SQL中的表先导入到Excel中,那么Excel数据与SQL数据的比较就变成了两个Excel表列的比较,很容易用数组公式或相关函数标识出重复的数据项的。话题：如何使用vba
问题详情：如何使用vba 将excel指定行的数据导入到sql200中?要具体实例回答：你在EXCEL中增加一个列名为ID,后在VBA中写以下码,并引用Microsoft ActiveX Data Objects 2.后执行Public Sub 写入SQL200() Dim cnn As New ADODB.Connection Dim SQL As String, mydata As String, mytable As String Dim i% mydata = "KKKK" '指定要修改的数据库 mytable = "aaaa" '指定数据表 '建立与指定SQL Server数据库的连接 cnn.ConnectionString = "Provider=SQLOLEDB;" _ & "User ID=sa;" _ 'sa改成你SQL(通常不用改) & "Password =123;" _ '123改成你SQL200 & "Data Source=sowin;" _ 'sowin改成你的SQL200的电脑名,  '如sql200在网络上,则sowin改成IP(如12.16.0.1) & "
参考回答：为什么不用openrowset或者opendatasource?话题：VBA实现EXCEL导入到SQL有严重问题回答：Sub 按钮2_单击()Dim connSet conn = CreateObject("ADODB.Connection")conn.Open ("driver={SQL Server};server=localhost;uid=sa;pwd=sa;database=yw;")FileName = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "请选择", , MultiSelect:=False)If Filename = False Then Exit Sub'加这一行试下Sql = "SELECT * into GENERALDATA FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=""" & FileName & """;User ID=Admin;Password=;Extended properties=Excel 5.0')[录入模板$]"conn.Execute (Sql)conn.CloseSet conn = NothingEnd Sub话题：vba access 将Access数据导入到sqlserver
问题详情：access窗体,使用VBA将指定的 '-------------------------- 数据导入最回答：吧sqlserver作为数据源,可以直接导的。你查查docmd.exprot.话题：.将Excel数据导入到sql2005
问题详情：.将Excel数据导入到sql2005,有多种方法更好回答：一、在程序中,用ADO.。码如下:  连接串string strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel .0;Data Source=" + [EXCEL,含路径] + ";";OleDbConnection conn = new OleDbConnection(strConn); conn.Open(); DataTable dtSchema = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables,new object[] {null, null, null, "TABLE"});DataSet ds = new DataSet(); 一个EXCEL可能有多个表,遍历之foreach( DataRow dr in dtSchema.Rows ){ string table = dr["TABLE_NAME"].ToString(); string strExcel = "SELECT * FROM [" + table + "]"; ds.Tables.Add(table);话题：怎么将Excel数据导入SQLserver200数据库表中?
问题详情：怎么将Excel数据导入SQLserver200数据库表中?我需要详细的回答：SQL 200有一个工具 导入导出向导通过向导导入到SQL200中话题：vba将excel数据导入SQLServer?
问题详情：要求把excel中数据通过vba作导入到sqlserver 2000数据库中,不回答：通过VBA就用 adodb 吧 , 一次入一条,就能都进去了

这里是我用的代码，估计对你有用：
'On Error Resume Next
Dim fileadd As String
CommonDialog1.ShowOpen
CommonDialog1.Filter = "xls文件(*.xls)|*.xls" '选择你要的文件
fileadd = CommonDialog1.FileName
If fileadd = "" Then Exit Sub
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(fileadd) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = False ' =  True '设置EXCEL对象可见(或不可见)
Set xlSheet = xlBook.Worksheets(1) '设置活动工作表
For R = 1 To 99999 '行循环
If LTrim(RTrim(xlBook.Worksheets(1).Cells(R, 1))) <> "" Then
sybw.Adodc3.Refresh
sybw.Adodc3.Recordset.Find "ShiGongBuWei_Name='" & LTrim(RTrim(xlBook.Worksheets(1).Cells(R, 1))) & "'"
If sybw.Adodc3.Recordset.EOF Then
sybw.Adodc3.Recordset.AddNew
sybw.Adodc3.Recordset!ShiGongBuWei_Name = LTrim(RTrim(xlBook.Worksheets(1).Cells(R, 1)))
sybw.Adodc3.Recordset!FenXiangGongCheng_ID = bb
sybw.Adodc3.Recordset.Update
sybw.Adodc3.Refresh
'            Call log(MM_Users_NameTrue, "增加了施工部位", MM_Companys_ID)
Else
'            MsgBox "            施工部位重复！            ", vbOKOnly, "用户信息"
End If
Else
R = 99999 + 1
End If
Next R
xlApp.DisplayAlerts = False '不进行安全提示 '
Set xlSheet = Nothing '
Set xlBook = Nothing '
xlApp.Quit '
Set xlApp = Nothing
取消
评论

强烈推荐一个大神的人工智能的教程：http://www.captainbed.net/zhanghan

【前言】

       我们从第一次机房就开始接触了数据库内容导出到Excel，机房重构的时候同样遇到了，做过VB版的也做过VB.NET版的（其实两者并没有多大差别）。考试导数据的时候用过一次将Excel导入到数据库，当时并没有深入的去想是怎么导进去的。

【内容】

  ●窗体展示



●想法启蒙

       在讨论需求的时候说到这个功能在考试导数据的时候见到过，当时是需要先下载模板，这个项目是用VB.NET写的，学习asp.net的时候用到过一个控件是可以直接打开资源管理器的，就想到VB.NET版的可不可以也有这么一个控件，结果是没有那种封装好的，但是有一个openfiledialog控件，瞬间就来了灵感，打开点击上图浏览按钮应该出现资源管理器，果断求助度娘，经过一番尝试，终于成功了！

       Excel导入数据库思路：点击浏览---->出现资源浏览器---->选择需要导入的Excel---->Excel名称显示在文本框中---->点击导入按钮进行数据导入。

【代码展示】

●打开资源管理器选择所需Excel

 

        Dim di As DirectoryInfo
        '计数已导入公司控件的index
        Dim index As Integer
        '获取选中文件的路径

        '实体层
        Dim lineEntity As New Entity.LineEntity
        'B层实体
        Dim ImportExcelBLL As New BLL.advancedQueryBLL
        '先将文本框清空
        txtFileName.Text = ""
        '打开文件的初始路径
        OpenFileDialog1.InitialDirectory = "c:\"
        '限定打开文件的类型
        OpenFileDialog1.Filter = "Excel files (*.xlsx)|*.xlsx|Excel files (*.xls)|*.xls"
        OpenFileDialog1.FilterIndex = 2
        OpenFileDialog1.RestoreDirectory = True
        '打开资源管理器成功
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            '获取Excel文件名
            di = New DirectoryInfo(Me.OpenFileDialog1.FileName)
            '获取.在选中文件名内的位置
            Point = di.Name.ToString().IndexOf(".")

            '将文件名称显示在文本框中
            txtFileName.Text = Microsoft.VisualBasic.Left(di.Name.ToString(), Point)
            '循环比较选中表是否已经导入过
            If cmbTable.Items.Count <> 0 Then
                For index = 0 To cmbTable.Items.Count
                    If txtFileName.Text = cmbTable.Items(index) Then
                        Throw New Exception("该表已经导入，不可重复选择")
                    End If
                Next
            End If
            '全局变量，文件的名称
            FileNames = txtFileName.Text
            '获取文件路径
            fileName = Me.OpenFileDialog1.FileName
        End If

 

●将Excel数据添加进数据集

 '建立Excel连接，读入数据
                Dim strConn As String = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source='" & fileName & "';Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'"
                Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM [Sheet1$]", strConn)
                Dim mydataset As DataSet = New DataSet
                '将Excel的数据填充到数据集中
                da.Fill(mydataset)

●解说

 

      相信在机房重构的时候对datatable和dataset已经有一定的了解了，上述的代码已经完成了将Excel中的数据添加进数据集的功能，下一步就对应数据库中的表依次遍历数据集中表中对应字段下信息添加到数据库即可。

【总结】

      这次收获很大，之前只是了解导出，对应着导入也是一个经常会用到的功能。再一次体验到了度娘的强大。刚开始一筹莫展，做出来发现并不是想象中那么难。多尝试，多学习！