VB.NET在数据库中修改数据两种方式
VB.NET在数据库中修改数据两种方式
下面两个程序分别修改数据库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)&&&&&&& mandType = 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")
发表评论：
TA的最新馆藏> vb.net连接sqlserver2012执行一条删除语句,该如何处理
vb.net连接sqlserver2012执行一条删除语句,该如何处理
lmqweb & &
发布时间： & &
浏览：2 & &
回复：2 & &
悬赏：0.0希赛币
vb.net连接sqlserver2012执行一条删除语句接触了两天VB.net,头很痛，与其继续头疼还不如求教网友。
问题如下，公司需要一个桌面可执行程序，往数据库执行一调DELETE语句，只需要执行这个语句就可以了，麻烦各位有爱的网友帮下忙，本人感激不尽。
&　　Private&Sub&Button1_Click(ByVal&sender&As&System.Object,&ByVal&e&As&System.EventArgs)&Handles&Button1.Click
&&&&&&&&conn1.Open()
//删除前先判断是否和数据库匹配、可根据你的需求不进行此操作
&&&&&&&&Dim&str1&As&String&=&"select&*&from&jiben&where&商品编号='"&&&TextBox1.Text&&&"'"
&&&&&&&&Dim&comm1&As&New&OleDb.OleDbCommand(str1,&conn1)
&&&&&&&&Dim&adpt1&As&New&OleDb.OleDbDataAdapter(comm1)
&&&&&&&&Dim&ds&As&New&DataSet
&&&&&&&&Dim&ret&As&MsgBoxResult
&&&&&&&&ret&=&MessageBox.Show("确定删除商品信息？",&"确认",&MessageBoxButtons.OKCancel,&MessageBoxIcon.Question,&MessageBoxDefaultButton.Button2)
&&&&&&&&conn1.Close()
&&&&&&&&conn1.Open()
&&&&&&&&If&ret&=&MsgBoxResult.Ok&Then
&&&&&&&&&&&&Try
&&&&&&&&&&&&&&&&Dim&str2&As&String&=&"delete&from&jiben&where&商品编号＝"&&&TextBox1.Text&&&""
&&&&&&&&&&&&&&&&Dim&comm2&As&New&OleDb.OleDbCommand(str2,&conn1)
&&&&&&&&&&&&&&&&comm2.ExecuteNonQuery()
&&&&&&&&&&&&&&&&MessageBox.Show("商品删除成功!",&"成功",&MessageBoxButtons.OK,&rmation)
&&&&&&&&&&&&Catch&ex&As&Exception
&&&&&&&&&&&&&&&&MessageBox.Show("删除失败!",&"错误",&MessageBoxButtons.OK,&MessageBoxIcon.Error)
&&&&&&&&&&&&&&&&MessageBox.Show(ex.Message)
&&&&&&&&&&&&End&Try
&&&&&&&&End&If
&&&&&&&&conn1.Close()
&&&&&&&&conn1.Open()
&&&&&&&&ds.Clear()
&&&&&&&&adpt1.Fill(ds,&"jiben")
&&&&&&&&DataGrid1.DataSource&=&ds
&&&&&&&&DataGrid1.DataMember&=&"jiben"
&&&&&&&&conn1.Close()
&&&&End&Sub
参考lmredwood & &
12:44:18 & &
& & （0）（0）引用　　Imports&System.Data.SqlClient
&Public&Shared&ConnectionString&As&String&=&"Data&Source="&+&Common.Server&+&";Initial&Catalog="&+&Common.Db&+&";User&ID="&+&Common.UId&+&";Password="&+&Common.Pwd
&&&&'''&&summary&
&&&&'''&执行SQL语句，返回影响的记录数
&&&&'''&&/summary&
&&&&'''&&param&name="SQLString"&SQL语句&/param&
&&&&'''&&returns&影响的记录数&/returns&
&&&&Public&Shared&Function&ExecuteSql(ByVal&SQLString&As&String)&As&Integer
&&&&&&&&Using&connection&As&New&SqlConnection(ConnectionString)
&&&&&&&&&&&&Using&cmd&As&New&SqlCommand(SQLString,&connection)
&&&&&&&&&&&&&&&&Try
&&&&&&&&&&&&&&&&&&&&connection.Open()
&&&&&&&&&&&&&&&&&&&&Dim&rows&As&Integer&=&cmd.ExecuteNonQuery()
&&&&&&&&&&&&&&&&&&&&Return&rowslmshane & &
12:44:18 & &
& & （0）（0）引用
本问题标题：
本问题地址：
温馨提示：本问答中心的任何言论仅代表发言者个人的观点，与希赛网立场无关。请对您的言论负责，遵守中华人民共和国有关法律、法规。如果您的言论违反希赛网问答中心的规则，将会被删除。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&sql语句写成vb.net 的linq语句。来帮帮小弟我吧
&来源：读书人网&【读书人网()：综合教育门户网站】
sql语句写成vb.net 的linq语句。。求助求助，来帮帮我吧。本帖最后由 meng208 于
09:46:12 编辑sel
sql语句写成vb.net 的linq语句。。求助求助，来帮帮我吧。本帖最后由 meng208 于
09:46:12 编辑
select&Mainid&,secondNo2,thirdNo2,fourNo2&from(&select&*&from(select&*&from&Main&as&t1&left&join&Sec&as&t2&on&t1.MainNo1&=&t2.secondNo1)&as&aleft&join&Third&on&a.MainNo2=Third.thirdNo1)&as&b&left&join&Four&&on&b.MainNo3&=&Four&.fourNo1怎么写成vb.net&的linq语句啊。。。好心人帮帮吧。真心不会了
[解决办法]Dim&query&=&From&b&In&(From&a&In&(From&t1&In&MainJoin&t2&In&Sec&On&t1.MainNo1&=&t2.secondNo1&Into&lg1From&t2&In&lg1.DefaultIfEmpty()t1)Join&td&In&Third&On&a.MainNo2&=&td.thirdNo1&Into&lg2From&td&In&lg2.DefaultIfEmpty()a)Join&f&In&Four&On&b.MainNo3&=&f.fourNo1&Into&lg3From&f&In&lg3.DefaultIfEmpty()New&With&{&_b.Mainid,&_b.secnondNo2,&_b.thridNo2,&_Key&.fourNo2&=&If(f&Is&Nothing,&0,&f.fourNo2)&_}二次元同好交流新大陆
扫码下载App
温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
内向,善良,乐于交朋友
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
阅读(3461)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
loftPermalink:'',
id:'fks_',
blogTitle:'vb.net中如何调用存储过程',
blogAbstract:'&此页涉及到的存储过程的创建，在'
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}