您的位置：程序门 -> .net技术 -> vb.net

高分help。请根据我的database.vb，帮我看看导入excel表格代码怎么写啊。

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

高分help。请根据我的database.vb，帮我看看导入excel表格代码怎么写啊。[已结贴,结贴人:yestou2]

发表于：2007-01-22 13:39:08 楼主

database.vb的内容：

imports system.data
imports system.data.sqlclient
imports system.componentmodel

public class database
'实现接口idisposable
implements idisposable
'数据库连接对象
private sqlconn as sqlconnection
public shared sconn as string = "persist security info=false;integrated security=sspi;database=cbgl;server=127.0.0.1;connect timeout=30 "
public sub dispose（) implements system.idisposable.dispose
dispose（true)
gc.suppressfinalize（true)
end sub
protected sub dispose（byval disposing as boolean)
if disposing <> true then
return
end if

if sqlconn is nothing = false then
sqlconn.dispose（)
sqlconn = nothing
end if
end sub

public sub open（)
if sqlconn is nothing = true then
'建立数据库连接对象
sqlconn = new sqlconnection（me.sconn)
'打开数据库连接
sqlconn.open（)
end if
end sub
public sub close（)
'如果数据库连接对象不为空则关闭数据库连接
if sqlconn is nothing = false then
sqlconn.close（)
end if
end sub
public function runselectsql（byval ssqlstring as system.string) as dataview
me.open（)
dim sqlds as dataset = new dataset
dim sqlda as sqldataadapter = new sqldataadapter（ssqlstring, me.sqlconn)
sqlda.fill（sqlds)
return sqlds.tables（0).defaultview
end function
public function rundelorinssql（byval ssqlstring as system.string)
me.open（)
dim sqlcomm as sqlcommand = new sqlcommand（ssqlstring, me.sqlconn)
sqlcomm.ＥＸＥＣutenonquery（)
end function
public function rundelorinssql1（byval ssqlstring as system.string)
me.open（)
dim sqlcomm as sqlcommand = new sqlcommand（ssqlstring, me.sqlconn)
sqlcomm.ＥＸＥＣutenonquery（)
end function
end class
-------------------------------------------
导入窗口的代码：
private sub button1_click（byval sender as system.object, byval e as system.eventargs) handles button1.click
dim db as database = new database
dim strxls1 as string = "insert 科目代码,科目名称,年份 into 科目表 select 科目代码,科目名称,年份 from openrowset（ 'microsoft.jet.oledb.4.0 ', 'excel 8.0;hdr=yes;database=c:\111.xls;)...[sheet1]$ "
db.rundelorinssql1（strxls1)
db.dispose（)
-----------------------
点击按钮导入，老说我database.vb中的public function rundelorinssql1中的出错。

发表于：2007-01-22 13:40:401楼得分:0

点击按钮导入，老说我database.vb中的public function rundelorinssql1中的ＥＸＥＣutenonquery（)出错。

发表于：2007-01-22 14:00:502楼得分:0

dim strxls1 as string = "insert into 科目表（科目代码,科目名称,年份 ) select 科目代码,科目名称,年份 from openrowset（ 'microsoft.jet.oledb.4.0 ', 'excel 8.0;hdr=yes;database=c:\111.xls;)...[

*****************************************************************************
欢迎使用csdn论坛阅读器 : csdn reader（附全部源代码)
http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html

发表于：2007-01-22 15:09:083楼得分:0

楼上的说的是什么啊，没有看懂啊

发表于：2007-01-22 15:13:584楼得分:0

你的sql有问题

insert into 科目表（科目代码,科目名称,年份 )

发表于：2007-01-22 15:14:555楼得分:0

system.data.sqlclient.sqlexception: 字符串 'excel 8.0;hdr=yes;database=c:\111.xls;)...[111]$ ' 之前有未闭合的引号。
第 1 行: 'excel 8.0;hdr=yes;database=c:\111.xls;)...[111]$ ' 附近有语法错误。
运行后有这样的错误

发表于：2007-01-22 15:46:466楼得分:0

没人吗？？

发表于：2007-01-22 16:33:117楼得分:0

没人吗

发表于：2007-01-22 17:17:378楼得分:100

dim strxls1 as string = "insert into 科目表（科目代码,科目名称,年份)
select 科目代码,科目名称,年份 from openrowset（ 'microsoft.jet.oledb.4.0 ', 'excel 8.0;hdr=yes;database=c:\111.xls; ', 'select * from [sheet1$] ') "

发表于：2007-01-22 19:03:379楼得分:0

sql语句通过了，还有个sql语句就是清空所有科目表的记录,要怎么写,回答出来马上结帖哟~~

其他资讯