首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

vb.net数据库操作解决思路

2012-02-25 
vb.net数据库操作我在做web小程序!求代码我在一个页面上放3个textbox,分别为姓名密码职务(数据库中有这3项

vb.net数据库操作
我在做web小程序!求代码

我在一个页面上放3个textbox,分别为 姓名 密码 职务 (数据库中有这3项)
我想将数据库中符合条件的纪录放入这三个textbox (比如 姓名=“张三”)
并且 将3个textbox中更改的值返回数据库 (比如更改密码)



简单说就是想知道vb.net 在web编程中 如何更新,删除,增加 数据

小弟先行谢过各位大哥!!!!!!




[解决办法]
先连接数据库会吗?
算了,给你代码吧!~
 '连接并打开数据库
Dim con As SqlConnection = New SqlConnection("server=.;database=数据库名;uid=数据库的用户名;pwd=数据库的密码")
con.Open()
Dim cmd As SqlCommand = New SqlCommand("select * from 表名 where=条件", con)
Dim dr As SqlDataReader
dr = cmd.ExecuteReader
'遍历读出的列并将文本框负值
While (dr.Read())
TextBox1.Text = dr.GetValue(0)
TextBox2.Text = dr.GetValue(1)
TextBox3.Text = dr.GetValue(2)
End While
'关闭read
dr.Close()
'关闭数据库
con.Close()
[解决办法]
Public Function goSql(ByVal strSql As String) As Boolean
Dim sCon as string = "DataSource=NH-ZHONGXIN;Initial Catalog=name;Integrated Security=True"
Dim sqlConn As SqlConnection = New SqlConnection(sCon)
Dim sqlCmd As SqlCommand = New SqlCommand(strSql, sqlConn)

sqlConn.Open()
Try
If sqlCmd.ExecuteNonQuery Then
Return True
Else
Return False
End If
Catch ex As Exception
Return False
Finally
sqlConn.Close()
End Try

goSql("update ### set ### = '" + ### + "' where ### = ###")

End Function
[解决办法]
goSql("delete TableName where ....")

热点排行