VB中如何用SQL语言将其他类型数据文件(如Excel)导如Sql Server

naliver 2003-05-13 11:18:48
如果我在Excel中的字段类型已经在我要导入的Sql Server数据库中的表中建立,请问如何用SQL语言实现,我的开发平台是VB
...全文
34 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
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$]
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$]
naliver 2003-05-13
  • 打赏
  • 举报
回复
麻烦大家看一下,高分求解

34,838

社区成员

发帖
与我相关
我的任务
社区描述
MS-SQL Server相关内容讨论专区
社区管理员
  • 基础类社区
  • 二月十六
  • 卖水果的net
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧