精华内容
下载资源
问答
  • [翻译]使用C#创建SQL Server的存储过程(Visual Studio 2005 + SQL Server 2005)

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

    展开全文
  • 话题:用VB怎么将Excel数据导入SQL数据库中?问题详情:用VB怎么将Excel数据导入SQL数据库中?回答:方法一:可以试着用VB书写一段调用SQL Server数据库DTS的码,然后就可以像直接使用DTS进行数据导入一样就行Excel...

    公告: 为响应国家净网行动,部分内容已经删除,感谢读者理解。

    话题:用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 NextDim fileadd As StringCommonDialog1.ShowOpenCommonDialog1.Filter = "xls文件(*.xls)|*.xls" '选择你要的文件fileadd = CommonDialog1.FileNameIf fileadd ...

    这里是我用的代码,估计对你有用:

    '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

    取消

    评论

    展开全文
  • 一开始的目的是把excel表里的数据导入数据库,再把数据库里的记录一行一行的写入xml文件(不改变xml文件里原有的数据)
  • Excel导入SQL(VB.NET版)

    万次阅读 热门讨论 2016-04-24 19:23:33
    【前言】 我们从第一次机房就开始接触了数据库内容导出到Excel,机房重构的时候同样遇到了,...考试导数据的时候用过一次将Excel导入数据库,当时并没有深入的去想是怎么导进去的。 【内容】 ●窗体展示 ...

    强烈推荐一个大神的人工智能的教程: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中的数据添加进数据集的功能,下一步就对应数据库中的表依次遍历数据集中表中对应字段下信息添加到数据库即可。

    【总结】

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

    展开全文
  • vb6.0 Excel数据导入Access不能任意路径,必须要EXCEL文件和ACCESS数据库在同一个目录下才能成功导入,请大神帮忙看看怎么修改一下才能EXCEL在任意位置都可以导入。 ----------------------------打开数据库找到...
  • Access和VB或者VBA是很让人困惑的技术 原因主要是微软提供的MSDN或者说明文档实在是太难用了,简单的说,一个这么大的公司,网上提供的说明文档,内容少,中英文混杂,无法有效的通过baidu检索到,它自身的检索也...
  •  在Access中图片被归为Ole对象的概念,但是它在VB.NET并不是什么Object,更不会有什么引用之类的,应该用字节流的方式读取和写入,下面来大致的说一下方法先导入包包Imports System.DataImports System.D
  • 第一部分上机实验实验一SQLServer2008基本服务和信息实验二数据库的创建与管理实验三数据表的创建与管理实验四数据库约束实验实验五SELECT数据...数据库的备份与恢复实验十三数据的导入和导出实验十四VB与SQLServ...
  • VB网络编程实例

    千次下载 热门讨论 2007-05-29 15:46:04
    ◆ 134.htm vb设计数据库电子邮件程序(1) ◆ 135.htm vb设计数据库电子邮件程序(2) ◆ 136.htm vb设计数据库电子邮件程序(3) ◆ 137.htm vb设计数据库电子邮件程序(4) ◆ 138.htm vb设计...
  • Excel导入PDM

    2014-08-04 16:16:51
    [size=medium] 习惯了用excel做数据库表结构设计的同学,怎么把excel中的设计导入到pdm中呢?其实很简单.由于PowerDesiner支持执行VB脚本,对,没错。我们就用VB脚本来实现excel2pdm的功能。 PowerDesinger执行VB...
  • 有一个功能是使用word离线版的程序(带宏的word,使用VBA编写的,word中含有表单内容),在word中填写内容,上传到网页中,后台解析数据然后导入数据库,但是维护起来比较麻烦(当然是因为我并不怎么了解VB这门语言...
  • ![图片说明]...这是sql server2008 !...这是sql server 2012 1.sql server2012没有这个访问接口导致我无法把EXCEL导入数据库表中,怎么解决 2.或者有什么其他的接口也能通过VB6把EXCEL导入数据库中?
  • 想把ASP系统里的一些数据库操作封装到DLL里,然而VB已不记得怎么用了,其他语言基本不会,因此选用C#。之前以为写个类文件然后编译成DLL就可以用regesvr32来导入了,到头来才发现原来不行。哎。。。对DLL的知识知之...
  • =======================================================================10、如果数据库连接池启动成功,但是查询却失败了,怎么处理?答:请检查数据库编码是否支持中文,在连接池启动参数那里的!编码,要与...
  • asp.net知识库

    2015-06-18 08:45:45
    实现C#和VB.net之间的相互转换 深入剖析ASP.NET组件设计]一书第三章关于ASP.NET运行原理讲述的补白 asp.net 运行机制初探(httpModule加载) 利用反射来查看对象中的私有变量 关于反射中创建类型实例的两种方法 ASP...
  • vc++ 开发实例源码包

    2014-12-16 11:25:17
    Excel文件的导入和导出操作 如题。主要的实现在CMyExcel类中。 expclass_src dll库的演示。 fge.1.1.alpha.sdk 精灵系统,一套MFC渲染引擎,含2D/3D等渲染,效果看源码,IFEngine是整个引擎接口,IFSystem是硬件...
  • vc++ 应用源码包_1

    2012-09-15 14:22:12
    Excel文件的导入和导出操作 主要的实现在CMyExcel类中。 expclass_src dll库的演示。 fge.1.1.alpha.sdk 精灵系统,一套MFC渲染引擎,含2D/3D等渲染,效果看源码,IFEngine是整个引擎接口,IFSystem是硬件查询系统,...
  • vc++ 应用源码包_5

    2012-09-15 14:45:16
    Excel文件的导入和导出操作 主要的实现在CMyExcel类中。 expclass_src dll库的演示。 fge.1.1.alpha.sdk 精灵系统,一套MFC渲染引擎,含2D/3D等渲染,效果看源码,IFEngine是整个引擎接口,IFSystem是硬件查询系统,...
  • vc++ 应用源码包_4

    2012-09-15 14:38:35
    Excel文件的导入和导出操作 主要的实现在CMyExcel类中。 expclass_src dll库的演示。 fge.1.1.alpha.sdk 精灵系统,一套MFC渲染引擎,含2D/3D等渲染,效果看源码,IFEngine是整个引擎接口,IFSystem是硬件查询系统,...
  • vc++ 应用源码包_3

    2012-09-15 14:33:15
    Excel文件的导入和导出操作 主要的实现在CMyExcel类中。 expclass_src dll库的演示。 fge.1.1.alpha.sdk 精灵系统,一套MFC渲染引擎,含2D/3D等渲染,效果看源码,IFEngine是整个引擎接口,IFSystem是硬件查询系统,...
  • DLL函数查看器V3.5

    热门讨论 2013-07-24 10:10:37
    *新增检索数据库功能(数据库已知函数统一查询) DLL函数查看器V3.4 (2011.09.11) =========================== *修复部分EXE文件导入表函数反汇编无识别的问题 *修复"总在最前"时"选项设置"窗口无法显示的问题 *修复...

空空如也

空空如也

1 2
收藏数 22
精华内容 8
关键字:

vb怎么导入数据库