http://www.lostinet.com/files/sqlscope.rar
解决方案 »
- <object></object>如何写一个rmvb格式的播放器
- 再问个小问题
- 怎么在webconfig中设置图片路径
- 帮忙推荐本书
- 100分水晶报表打印的解决方案。先到先得分.顺便散散分.
- TreeView控件与Meun控件(请高手指教)
- ASP.NET网站项目中如何设置一个.hbm.xml文件为嵌入的资源
- 请高手指点:Web Service中的SoapUnknownHeader Class的使用问题??
- 一个菜鸟级的登录问题
- ASPX启动问题!
- 菜鸟主页完成,散分,提建议者有分!!!!!!!!!!!!!!!http://vabug.myrice.com
- 怎么在一个页面查询,查询结果在另一个页面中显示?
微软做出来的东西,其实很好的,只是你不知道它的作用,难道微软的工程师比你还笨
!
说的有理!
vabug (边缘)
你用了多久的.Net了?连这点好处都不知道!!
新增:在DATASET中的DATATABLE的中新增DATAROW然后提交数据库
删除:在DATASET中删除DATATABLE中的DATAROW然后提交数据库
<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OLEDB" %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Not IsPostBack Then
BuildDataList
End If
End Sub
Sub Edit_Grid(sender As Object, e As DataGridCommandEventArgs)
dgEmps.EditItemIndex = e.Item.ItemIndex
BuildDataList
End SubSub Update_Grid(ByVal Sender as Object, ByVal E as DataGridCommandEventArgs)
Dim TheID as String
Dim LastName as String
Dim FirstName as String
TheID = E.Item.Cells(2).Text
LastName = CType(e.Item.Cells(0).Controls(0), TextBox).Text
FirstName = CType(e.Item.Cells(1).Controls(0), TextBox).Text
Dim DBConn as OleDbConnection
Dim DBUpdate As New OleDbCommand
DBConn = New OleDbConnection( _
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("/tt/C4/DGDB.mdb;"))
DBUpdate.CommandText = "Update Employees " _
& "Set LastName = '" & LastName &"', " _
& "FirstName = '" & FirstName & "' " _
& "Where EmpID = " & TheID
DBUpdate.Connection = DBConn
DBUpdate.Connection.Open
DBUpdate.ExecuteNonQuery()
DBConn.Close
dgEmps.EditItemIndex = -1
BuildDataList
End Sub
Sub BuildDataList ()
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection( _
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("/tt/C4/DGDB.mdb;"))
DBCommand = New OleDbDataAdapter _
("Select * From Employees " _
& "Order By LastName, FirstName", DBConn)
DBCommand.Fill(DSPageData, _
"Employees")
dgEmps.DataSource = _
DSPageData.Tables("Employees").DefaultView
dgEmps.DataBind()
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Editing Rows from a DataGrid Control</TITLE>
</HEAD>
<Body LEFTMARGIN="40">
<form runat="server">
<BR><BR>
<asp:Label
id="lblMessage"
runat="server"
/>
<BR><BR>
<asp:datagrid
id="dgEmps"
runat="server"
autogeneratecolumns="false"
oneditcommand="Edit_Grid"
onupdatecommand="Update_Grid"
>
<columns>
<asp:boundcolumn
HeaderText="Last Name"
DataField="LastName"
/>
<asp:boundcolumn
HeaderText="First Name"
DataField="FirstName"
/>
<asp:boundcolumn
datafield="EmpID"
visible=False
readonly=true
/>
<asp:editcommandcolumn
edittext="Edit"
updatetext="Update"
itemstyle-wrap="false"
headertext="Edit"
headerStyle-wrap="false"
/>
</columns>
</asp:datagrid>
</form>
</BODY>
</HTML>
<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OLEDB" %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Not IsPostBack Then
BuildDataList
End If
End Sub
Sub Click_Grid(ByVal Sender as Object, ByVal E as DataGridCommandEventArgs)
Dim TheID as String
TheID = E.Item.Cells(1).Text
Dim DBConn as OleDbConnection
Dim DBDelete As New OleDbCommand
DBConn = New OleDbConnection( _
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("/tt/C4/DGDB.mdb;"))
DBDelete.CommandText = "Delete From Employees Where " _
& "EmpID = " & TheID
DBDelete.Connection = DBConn
DBDelete.Connection.Open
DBDelete.ExecuteNonQuery()
DBConn.Close
BuildDataList
End Sub
Sub BuildDataList ()
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection( _
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("/tt/C4/DGDB.mdb;"))
DBCommand = New OleDbDataAdapter _
("Select LastName & ', ' & FirstName " _
& "as FullName, EmpID From Employees " _
& "Order By LastName, FirstName", DBConn)
DBCommand.Fill(DSPageData, _
"Employees")
dgEmps.DataSource = _
DSPageData.Tables("Employees").DefaultView
dgEmps.DataBind()
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Removing Rows from a DataGrid Control</TITLE>
</HEAD>
<Body LEFTMARGIN="40">
<form runat="server">
<BR><BR>
<asp:Label
id="lblMessage"
runat="server"
/>
<BR><BR>
<asp:datagrid
id="dgEmps"
runat="server"
autogeneratecolumns="false"
onitemcommand="Click_Grid"
>
<columns>
<asp:boundcolumn
HeaderText="Full Name"
DataField="FullName"
/>
<asp:boundcolumn
DataField="EmpID"
Visible=False
/>
<asp:buttoncolumn
HeaderText="Click to Delete"
ButtonType="PushButton"
Text="Delete Record"
/>
</columns>
</asp:datagrid>
</form>
</BODY>
</HTML>
<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OLEDB" %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Not IsPostBack Then
BuildDataList
End If
End Sub
Sub Edit_Grid(sender As Object, e As DataGridCommandEventArgs)
dgEmps.EditItemIndex = e.Item.ItemIndex
BuildDataList
End SubSub Update_Grid(ByVal Sender as Object, ByVal E as DataGridCommandEventArgs)
Dim TheID as String
Dim LastName as String
Dim FirstName as String
TheID = E.Item.Cells(2).Text
LastName = CType(e.Item.Cells(0).Controls(0), TextBox).Text
FirstName = CType(e.Item.Cells(1).Controls(0), TextBox).Text
Dim DBConn as OleDbConnection
Dim DBUpdate As New OleDbCommand
DBConn = New OleDbConnection( _
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("/tt/C4/DGDB.mdb;"))
DBUpdate.CommandText = "Update Employees " _
& "Set LastName = '" & LastName &"', " _
& "FirstName = '" & FirstName & "' " _
& "Where EmpID = " & TheID
DBUpdate.Connection = DBConn
DBUpdate.Connection.Open
DBUpdate.ExecuteNonQuery()
DBConn.Close
dgEmps.EditItemIndex = -1
BuildDataList
End Sub
Sub CommandAdd_Click(Sender As Object, E As CommandEventArgs)
Dim DBConn as OleDbConnection
Dim DBAdd As New OleDbCommand
DBConn = New OleDbConnection( _
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("/tt/C4/DGDB.mdb;"))
DBAdd.CommandText = "Insert Into Employees (LastName) " _
& "values ('')"
DBAdd.Connection = DBConn
DBAdd.Connection.Open
DBAdd.ExecuteNonQuery()
DBConn.Close
dgEmps.EditItemIndex = 0
BuildDataList
End Sub
Sub BuildDataList ()
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection( _
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("/tt/C4/DGDB.mdb;"))
DBCommand = New OleDbDataAdapter _
("Select * From Employees " _
& "Order By LastName, FirstName", DBConn)
DBCommand.Fill(DSPageData, _
"Employees")
dgEmps.DataSource = _
DSPageData.Tables("Employees").DefaultView
dgEmps.DataBind()
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Adding Rows to a DataGrid Control</TITLE>
</HEAD>
<Body LEFTMARGIN="40">
<form runat="server">
<BR><BR>
<asp:Label
id="lblMessage"
runat="server"
/>
<BR><BR>
<asp:datagrid
id="dgEmps"
runat="server"
autogeneratecolumns="false"
oneditcommand="Edit_Grid"
onupdatecommand="Update_Grid"
>
<columns>
<asp:boundcolumn
HeaderText="Last Name"
DataField="LastName"
/>
<asp:boundcolumn
HeaderText="First Name"
DataField="FirstName"
/>
<asp:boundcolumn
datafield="EmpID"
visible=False
readonly=true
/>
<asp:editcommandcolumn
edittext="Edit"
updatetext="Update"
itemstyle-wrap="false"
headertext="Edit"
headerStyle-wrap="false"
/>
</columns>
</asp:datagrid>
<BR><BR>
<asp:LinkButton
id="butAdd"
text="Add"
commandname="Add"
oncommand="CommandAdd_Click"
runat="server"
/>
</form>
</BODY>
</HTML>
如:你有些数据数据库中是没有了,但是你可以在dataset里面构筑一个模拟数据库表的结构,然后显示其中的数据出来!
非常感谢,不过你用的都是OleDbCommand
没有用到dataset做删除,修改,添加呀!!!
你能建表,
重要的是非连接的!!
接分