3.3w+
社区成员
VB中如何用SQL语言将其他类型数据文件（如Excel）导如Sql Server
naliver 2003-05-13 11:18:48 如果我在Excel中的字段类型已经在我要导入的Sql Server数据库中的表中建立，请问如何用SQL语言实现，我的开发平台是VB
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
naliver 2003-05-15
谢谢大力，我是像下面这样写的，可是执行时要不提示表已经存在，要不完成后，sql server数据库中却找不到相应的数据表，不知道是怎么回事？
我觉得说不定sql server不像jet一样支持select * into 的用法或者是数据对象DAO，现在我就是在试分别打开两个记录集，再用循环导入的方法。
public import()
Dim ado As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str, sql As String
Dim db As Database
str = "Provider=sqloledb;Network Library=DBMSSOCN;Data Source=192.168.12.180,1433;Initial Catalog=database;User ID=sa;Password=ty"
ado.CursorLocation = adUseClient
ado.Open str
sql = "drop table user"
rs.Open sql, ado, adOpenStatic, adLockOptimistic, adCmdText
Set db = OpenDatabase(E:\import.xls, True, False, "Excel 8.0")
Call db.Execute("Select * into [;database=database].user FROM ["sheet1"$]")
end sub
我觉得说不定sql server不像jet一样支持select * into 的用法或者是数据对象DAO，现在我就是在试分别打开两个记录集，再用循环导入的方法。
public import()
Dim ado As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str, sql As String
Dim db As Database
str = "Provider=sqloledb;Network Library=DBMSSOCN;Data Source=192.168.12.180,1433;Initial Catalog=database;User ID=sa;Password=ty"
ado.CursorLocation = adUseClient
ado.Open str
sql = "drop table user"
rs.Open sql, ado, adOpenStatic, adLockOptimistic, adCmdText
Set db = OpenDatabase(E:\import.xls, True, False, "Excel 8.0")
Call db.Execute("Select * into [;database=database].user FROM ["sheet1"$]")
end sub
pengdali 2003-05-13
SELECT * into 新表名
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]
naliver 2003-05-13
但是我是要导入数据库呀，而不是显示，不知道Sql Server支不支持select * into这种sql语言
angle1219 2003-05-13
上面的语句就能显示 EXCEL数据，你可以用操作SQL中的表一样，干 什么都行
angle1219 2003-05-13
SELECT *
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]
naliver 2003-05-13
麻烦大家看一下，高分求解
利用MATLAB远程调用SQL Server 数据库并将数据简单处理写入EXCEL 数据无法提供，请谅解），通过MATLAB调用远程数据库，输入起止日期，集计时间长度，实现某一时间颗粒度内的数据集计与简单计算，并且将数据分日期保存至工作簿各sheet中。 数据调取过程需要一定的sql基础，数据写入...
VB .NET把Excel中的数据导入SQL SERVER数据库 其实不算原创，论坛里有人发的，我正好...VS2015可用，自己添加窗体和控件吧，只需要一个OpenFileDialog和Button，默认文件中带有字段名。 Public Class Form1 Private Sub Button1_Click(sender As Object, e As
excel自动生成创建表sql语句，支持MySql，Oracle，SQLServer三种创建方式，方便管理 excel自动生成创建表语句，支持MySql，Oracle，SQLServer三种创建方式，自动生成目录文档，方便查看与管理。
excel导入sqlserver的Vb程序代码 摘要:VB源码,数据库应用,Excel excel导入sqlserver的Vb程序代码，在导入过程中可以去掉去掉数据库表中重复记录，可以选择对应的字段进行导入，可以选择远程数据库或生成SQL语句，程序使用了Vsflexgrid8控件，有需要...
vb编程把excel中的数据导入SQL SERVER数据库及导出为excel 2011-07-25 16:43:23|分类：Visual Basic|...把excel中的数据导入SQL SERVER数据库（access数据类似）： Private Sub Command1_Click()Dim strconn As String ' 定义Excel 连接字符串Dim cn As ADODB.Connection '...
VBA：逐行将Excel表数据导入SQL Server数据库 Public Sub CreateAllSheetsInsertScript() On Error GoTo ErrorHandler 'recordset and connection variables Dim Row As Long Dim Col As Integer 'To store all the columns available in the all of the works.....
vba连接数据 代码 （excel/access/sqlserver) Sub sqlserver连接并查询() Dim Con As New ADODB.Connection Dim strCon As String Dim rs As ADODB.Recordset '设置记录集 Dim i, t t = Timer '连接远程数据库 strCon = ...
如何利用SQL查询语句从SQLSERVER数据库中导入导出EXCEL表格 平常从SQLSERVER中进行导入导出时，我们利用SQLSERVER中自带的DTS转换工具即可，很方便。但有些特殊的用法需要用语句进行导入导出，工作中碰到这种情况，查了些资料，下面详细介绍： 一、从excel表导入到SQL...
