62,046
社区成员
发帖
与我相关
我的任务
分享把Excel做数据库，DataSet怎样Update？（提供源码）
<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<script language="vb" runat="server">
Function CreateDataSource()
dim strConn as String = "Provider=Microsoft.Jet.OLEDB.4.0;"
strConn +="Data Source=d:\measure\contact.xls;"
strConn +="Extended Properties=Excel 8.0;"
dim objConn as New OledbConnection(strConn)
dim ViewAdapter as new OledbDataAdapter("SELECT * FROM [mmm$]",objConn)
Dim ds as DataSet = New DataSet()
Dim dt as DataTable
Dim newdr as DataRow
ViewAdapter.Fill(ds)
dt=ds.Tables(0)
newdr=dt.NewRow()
newdr(0) = "test0"
newdr(1) = "test1"
newdr(2) = "test2"
dt.Rows.Add(newdr)
'===============================================================================
dim objBuilder as OleDbCommandBuilder
objBuilder = New OleDbCommandBuilder(ViewAdapter)
ViewAdapter.InsertCommand = objBuilder.GetInsertCommand()
'================================================================================
ViewAdapter.Update(ds)
Return ds
End Function 'CreateDataSource
Sub Page_Load()
If Not IsPostBack Then
mygrid.DataSource = CreateDataSource()
mygrid.DataBind()
End if
End Sub
</script>
<html>
<head>
<title>loadexl</title>
</head>
<body>
<center>
<form runat="server">
<asp:datagrid runat="server" AutoGenerateColumns="false"
width="500" id="mygrid">
<HeaderStyle BorderColor="White" BackColor="black"
ForeColor="White"
Font-Bold="True"
Font-Name="Arial"
Font-Size="9" HorizontalAlign="Center"/>
<ItemStyle BorderColor=""
BackColor="#FFFFF0"
ForeColor="Black"
Font-Name="Arial"
Font-Size="8"
Font-Bold="False" HorizontalAlign="Center"/>
<Columns>
<asp:BoundColumn HeaderText="姓名" ReadOnly="true" DataField="姓名"/>
<asp:BoundColumn HeaderText="性别" ReadOnly="true" DataField="性别"/>
<asp:BoundColumn HeaderText="Email" ReadOnly="true" DataField="地址"/>
</Columns>
</asp:datagrid>
</form>
</body>
</html>
下面是要显示的Excel数据contact.xls：
姓名 性别 地址
net_lover Male amxh@21cn.com
amxh Male amxh@21cn.com
孟子章 Male amxh@21cn.com
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<script language="vb" runat="server">
Function CreateDataSource()
dim strConn as String = "Provider=Microsoft.Jet.OLEDB.4.0;"
strConn +="Data Source=d:\measure\contact.xls;"
strConn +="Extended Properties=Excel 8.0;"
dim objConn as New OledbConnection(strConn)
dim ViewAdapter as new OledbDataAdapter("SELECT * FROM [mmm$]",objConn)
Dim ds as DataSet = New DataSet()
Dim dt as DataTable
Dim newdr as DataRow
ViewAdapter.Fill(ds)
dt=ds.Tables(0)
newdr=dt.NewRow()
newdr(0) = "test0"
newdr(1) = "test1"
newdr(2) = "test2"
dt.Rows.Add(newdr)
'===============================================================================
dim objBuilder as OleDbCommandBuilder
objBuilder = New OleDbCommandBuilder(ViewAdapter)
ViewAdapter.InsertCommand = objBuilder.GetInsertCommand()
'================================================================================
ViewAdapter.Update(ds)
Return ds
End Function 'CreateDataSource
Sub Page_Load()
If Not IsPostBack Then
mygrid.DataSource = CreateDataSource()
mygrid.DataBind()
End if
End Sub
</script>
<html>
<head>
<title>loadexl</title>
</head>
<body>
<center>
<form runat="server">
<asp:datagrid runat="server" AutoGenerateColumns="false"
width="500" id="mygrid">
<HeaderStyle BorderColor="White" BackColor="black"
ForeColor="White"
Font-Bold="True"
Font-Name="Arial"
Font-Size="9" HorizontalAlign="Center"/>
<ItemStyle BorderColor=""
BackColor="#FFFFF0"
ForeColor="Black"
Font-Name="Arial"
Font-Size="8"
Font-Bold="False" HorizontalAlign="Center"/>
<Columns>
<asp:BoundColumn HeaderText="姓名" ReadOnly="true" DataField="姓名"/>
<asp:BoundColumn HeaderText="性别" ReadOnly="true" DataField="性别"/>
<asp:BoundColumn HeaderText="Email" ReadOnly="true" DataField="地址"/>
</Columns>
</asp:datagrid>
</form>
</body>
</html>
下面是要显示的Excel数据contact.xls：
姓名 性别 地址
net_lover Male amxh@21cn.com
amxh Male amxh@21cn.com
孟子章 Male amxh@21cn.com
...全文
请发表友善的回复…
发表回复
comicsbook 2003-03-11
- 打赏
- 举报
up
letmeshow 2003-03-09
- 打赏
- 举报
gz
comicsbook 2003-03-05
- 打赏
- 举报
谢谢楼上的，可是那是asp的~~~：（
还是不知道关于我要求的方面的，我的程序可以测试一下，大家看看为什么不成功呢~~
还是不知道关于我要求的方面的，我的程序可以测试一下，大家看看为什么不成功呢~~
asam2183 2003-03-04
- 打赏
- 举报
http://expert.csdn.net/Expert/topic/1454/1454452.xml?temp=.4643824
comicsbook 2003-03-04
- 打赏
- 举报
up it,请大家帮忙，很着急：（
comicsbook 2003-02-28
- 打赏
- 举报
晕，可是程序没有办法执行……提示出错~~好像是找不到表，累`~`
不知道在Excel上面应该怎样表示一个表~~~欲哭无泪~~`大家帮我看看好么？
不知道在Excel上面应该怎样表示一个表~~~欲哭无泪~~`大家帮我看看好么？
xcgh 2003-02-28
- 打赏
- 举报
有没有用c#写的程序呀！！表的Excel做数据库
howbigsea 2003-02-28
- 打赏
- 举报
很不错
个人觉得缺乏插入、更新的功能
luckysusan 2003-02-28
- 打赏
- 举报
不懂!GZ
comicsbook 2003-02-28
- 打赏
- 举报
大家有什么建议么？
comicsbook 2003-02-28
- 打赏
- 举报
have anybody can help me~~?
