Question

pb 如何读取 excel 表 插入数据库sql 求高手 指教！

Answer 1

1创建数据库

USE [Report]
GO

/****** Object: Table [dbo].[BookInfo] Script Date: 11/29/2011 20:52:04 ******/
IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[BookInfo]') AND type in (N'U'))
DROP TABLE [dbo].[BookInfo]
GO

USE [Report]
GO

/****** Object: Table [dbo].[BookInfo] Script Date: 11/29/2011 20:52:04 ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

SET ANSI_PADDING ON
GO

CREATE TABLE [dbo].[BookInfo](
[省份] [varchar](50) NULL,
[市] [varchar](50) NULL,
[县] [varchar](50) NULL,
[社区名字] [varchar](50) NULL,
[管理员名字] [varchar](50) NULL,
[手机号码] [varchar](50) NULL,
[会员数] int NULL,
[录入名字] [varchar](50) NULL,
[录入时间] [varchar](50) NULL
) ON [PRIMARY]

GO

SET ANSI_PADDING OFF
GO

2个步骤

--开启导入exec程序
exec sp_configure 'show advanced options',1
reconfigure
exec sp_configure 'Ad Hoc Distributed Queries',1
reconfigure

--改你所要execl的地址 Sheet2$ 看你的数据在哪里
insert into BookInfo
SELECT * FROM OPENROWSET(
'Microsoft.Jet.OLEDB.4.0', 'EXCEL 5.0;HDR=YES;IMEX=2;DATABASE=E:\统计数据.xls'
,'SELECT * FROM [Sheet2$]')

--关闭导入exec程序
--使用完成后，关闭Ad Hoc Distributed Queries：
exec sp_configure 'Ad Hoc Distributed Queries',0
reconfigure
exec sp_configure 'show advanced options',0
reconfigure

改表的字段对应execl每天执行sql语句，如果你要做成程序 把路径改成文本框的就行了，相信你会罢。不会留言，

追问

需要这么麻烦么？

追答

才这么点sql代码你都没看懂么，这还算少的了，第一步就是建立表，从第二步开始才是。

追问

你没明白我的意思 我这个是 有现有的表格 格式 不需要自己创建库 值需要 用pb 读出来 读到 数据窗口 进行保存 不就到本地SQL 数据库了吗 我是没有读取的 代码

追答

你数据库没表是不行的，建立个虚拟表展示，在用insert把虚拟表添进去。

追问

qq 952164700 这样聊太费劲

追答

确实用Q。