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

话题：用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 吧 , 一次入一条,就能都进去了