vb.net写数据库 vb数据库开发实例视频教程

vb.net 写数据库

你这是向sql后台数据库写数据吗?

专注于为中小企业提供成都网站制作、网站设计服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业静宁免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了成百上千家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

sqldataadapter1.update 改须指定有效的updatecommand,我一直没有看到

给你个例子你看吧:

'首先指定有效的UpdateCommand

sqlstr = "insert into Playlist(PlayName,PlayPath)values('" TextBox4.Text.Trim "','" TextBox5.Text.Trim "')"

Module1.Mycommand.CommandText = sqlstr

'增加新一行(此行必须,要不不能与后台同步,并且后面调用update会出错)

Module1.MyDataSet.Tables("Music").Rows.Add()

Module1.MyDataAdaPter.InsertCommand = Module1.Mycommand

Module1.MyDataAdaPter.Update(Module1.MyDataSet, "Music")

MsgBox("增加数据成功！！")

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim sqlStr As String = "insert into tb values("

Dim i As Integer

For i = 0 To DataGridView1.Columns.Count - 1

sqlStr = "'" DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(i) "'"

If i DataGridView1.Columns.Count - 1 Then sqlStr = ","

sqlStr = ")"

Dim con As New SqlConnection(connectionString) '这个自己写去

con.Open()

Dim cmd As New SqlCommand(sqlStr, con)

Try

Dim result As Integer = cmd.ExecuteNonQuery()

If result 0 Then

MsgBox "添加数据成功"

Else

MsgBox "添加数据失败"

End If

Catch (ex As Exception)

MsgBox "添加数据过程发生异常,原因:" ex.Message

End Try

End Sub

用SQL数据库。VB.NET是微软公司在2002年推出的一种开发基于.Net平台应用程序的开发语言，vb.net在单击回车键时将数据写入数据库需要用SQL数据库。

使用.net下的system.sql.sqlclint类库下的sqlconnent;sqlcommand类进行写入操作

分享文章：vb.net写数据库 vb数据库开发实例视频教程
文章来源：http://mswzjz.cn/article/dosicop.html