笛子曲大漠谱:VB.NET在数据库中修改数据两种方式
来源:百度文库 编辑:偶看新闻 时间:2024/04/27 12:57:35
下面两个程序分别修改数据库computertest.mdb中的表tbtestplaceinfo中的字段“座位余额”的值SeatNo为SeatNo-1。第一种: Dim CONN As String = "provider=microsoft.jet.oledb.4.0;data source=c:\computertest.mdb"
Dim sqlconn As New OleDbConnection(CONN)
Dim SQLString As String
SeatNo = SeatNo - 1
SQLString = "update tbtestplaceinfo set 座位余额='" & SeatNo & "'where(考试日期='" & DrDListTestDate.SelectedItem.Text & "') and (考点='" & DrDListTestPlace.SelectedItem.Text & "')"
Dim cmdtable As OleDbCommand = New OleDbCommand(SQLString, sqlconn)
cmdtable.CommandType = CommandType.Text
If sqlconn.State <> ConnectionState.Open Then
sqlconn.Open()
End If
cmdtable.ExecuteNonQuery()
If sqlconn.State <> ConnectionState.Closed Then
sqlconn.Close()
End If第二种: searchsql = "select * from tbtestplaceinfo where(考试日期='" & DrDListTestDate.SelectedItem.Text & "') and (考点='" & DrDListTestPlace.SelectedItem.Text & "')"
ADOcmdl = New OleDbDataAdapter(searchsql, "provider=microsoft.jet.oledb.4.0;data source=c:\computertest.mdb")
ADOcmdl.Fill(ds1, "tbtestplaceinfo")
mytable1 = ds1.Tables.Item("tbtestplaceinfo")
Dim myrow As Data.DataRow
myrow = mytable1.Rows.Item(0)
myrow.Item("座位余额") = SeatNo - 1
mytable1.GetChanges()
cmdl = New OleDbCommandBuilder(ADOcmdl)
ADOcmdl.Update(ds1, "tbtestplaceinfo")
Dim sqlconn As New OleDbConnection(CONN)
Dim SQLString As String
SeatNo = SeatNo - 1
SQLString = "update tbtestplaceinfo set 座位余额='" & SeatNo & "'where(考试日期='" & DrDListTestDate.SelectedItem.Text & "') and (考点='" & DrDListTestPlace.SelectedItem.Text & "')"
Dim cmdtable As OleDbCommand = New OleDbCommand(SQLString, sqlconn)
cmdtable.CommandType = CommandType.Text
If sqlconn.State <> ConnectionState.Open Then
sqlconn.Open()
End If
cmdtable.ExecuteNonQuery()
If sqlconn.State <> ConnectionState.Closed Then
sqlconn.Close()
End If第二种: searchsql = "select * from tbtestplaceinfo where(考试日期='" & DrDListTestDate.SelectedItem.Text & "') and (考点='" & DrDListTestPlace.SelectedItem.Text & "')"
ADOcmdl = New OleDbDataAdapter(searchsql, "provider=microsoft.jet.oledb.4.0;data source=c:\computertest.mdb")
ADOcmdl.Fill(ds1, "tbtestplaceinfo")
mytable1 = ds1.Tables.Item("tbtestplaceinfo")
Dim myrow As Data.DataRow
myrow = mytable1.Rows.Item(0)
myrow.Item("座位余额") = SeatNo - 1
mytable1.GetChanges()
cmdl = New OleDbCommandBuilder(ADOcmdl)
ADOcmdl.Update(ds1, "tbtestplaceinfo")
在vb中如何写代码可以把修改的数据添加到access数据库中?
vb中如何用dao修改数据库中的数据
winform 中,怎样从数据库里读出数据,并且在IE中显示?(vb.net)请各位高手帮忙!!!
VB.NET怎样刷新数据库数据
vb.net向数据库插入数据
请问:如何在VB.net中连接调用ACCESS数据库?
在vb.net 中调用oracle数据库,代码怎么写?
如何在 VB.NET 2005 中查询数据库
在asp.net中提取数据库中的数据
vb.net中填写数据并更新数据库出现错误,请大家指点
在vb.net程序中如何调用其他程序(如word等)实现对数据库中检索到的数据进行排版然后输出?
在VB中,怎么修改数据库中的记录???
vb.net中无法更新access数据库
请问,在vb.net中,要用数据库里的数据显示treeview的标题,即treenode的text,该怎么办?
在asp.net vb.net语言中添加到数据库SQL主键重复怎么添加
vb.net中怎样数据传递?
关于VB向数据库中添加数据
在VB.net中怎样将窗体中文本框的数据保存到一个*.htm中?
在vb.net读出Access数据
C#数据库中如何修改数据
用VB在Access数据库检索数据
请问在vb.net中如何把sql中的数据读取到textbox中?
在Dreamweaver中连接数据库的asp.net vb代码谁知道?
请教高手:怎么在Dreamweaver中连接数据库(用的是asp.net vb,access2003)