| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1630 人关注过本帖
标题:如何用VB6将Excel的数据导入到SQL?
只看楼主 加入收藏
yuk_yu
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:334
专家分:134
注 册:2009-3-16
结帖率:85.71%
收藏
已结贴  问题点数:20 回复次数:7 
如何用VB6将Excel的数据导入到SQL?
如何用VB6将Excel的数据导入到SQL?

程序代码:
Public adoCon As New ADODB.Connection
Public adoRs As New ADODB.Recordset
Private Sub Command1_Click(Index As Integer)
    Select Case Index


    Case 1
                Adodc1.RecordSource = "select * from ShortageData order by IA"
                Adodc1.Refresh
                If Adodc1.Recordset.RecordCount > 0 Then
               ' MsgBox Adodc1.Recordset.RecordCount
                    Adodc1.Recordset.MoveLast
               
               adoCon.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=ShortageReport;Data Source=mat326\sa"

                '怎样将Excel导入?从这我不会,可以指点吗?
               ' Set adoRs = adoCon.Execute("insert into ShortageData values(.......???怎么写?,,,,,)")
               
               
                adoCon.Close
                End If

    Case Else[local]1[/local]

    End Select
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=ShortageReport;Data Source=huamat326\sa"
End Sub



123.zip (19.29 KB)
搜索更多相关主题的帖子: SQL Excel 数据 
2010-06-29 17:58
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:7 
用另一ADODC连接Excel

无知
2010-06-30 00:22
yuk_yu
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:334
专家分:134
注 册:2009-3-16
收藏
得分:0 
回复 2楼 Artless
我用CommonDialog打开再用Adodc连接的,关键是我不知道怎样将数据Inster到SQL,可以帮忙看看附件,帮我写一下代码吗?

[ 本帖最后由 yuk_yu 于 2010-6-30 08:42 编辑 ]
2010-06-30 08:40
happynight
Rank: 8Rank: 8
等 级:贵宾
威 望:15
帖 子:807
专家分:760
注 册:2008-4-26
收藏
得分:7 
以下是引用yuk_yu在2010-6-30 08:40:06的发言:

我用CommonDialog打开再用Adodc连接的,关键是我不知道怎样将数据Inster到SQL,可以帮忙看看附件,帮我写一下代码吗?
其实很简单 用个循环就搞定了
例如 Records1是读的Excel中的数据
     cmd 是连SQL的Command对象
     do until records1.EOF
         INSERT INTO 表(字段名1,字段名2,字段名3,...)" & _
                        " VALUES ( " & records1.fields(0).value & "," & records1.fields(1).value & "," ...
         records1.MoveNext
     LOOP
2010-06-30 11:48
三断笛
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:31
帖 子:1621
专家分:1617
注 册:2007-5-24
收藏
得分:7 
最快的是BCP,DTS
2010-07-01 00:10
三断笛
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:31
帖 子:1621
专家分:1617
注 册:2007-5-24
收藏
得分:0 
用DTS或BCP要求安装SQL,至少有一个express
如果SQL SERVER在本机,则一句Openrowset也可以搞定.
如果在远程,则可以先传到服务器,再openrowset.
2010-07-01 00:12
yuk_yu
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:334
专家分:134
注 册:2009-3-16
收藏
得分:0 
回复 4楼 happynight
谢谢!
2010-07-02 19:29
yuk_yu
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:334
专家分:134
注 册:2009-3-16
收藏
得分:0 
回复 5楼 三断笛
版主,有实例吗?
2010-07-02 19:30
快速回复:如何用VB6将Excel的数据导入到SQL?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.062721 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved