这篇文章主要为大家展示了“VB.NET数据库怎么用”,内容简而易懂,条理清晰,希望能够帮助大家解决疑惑,下面让小编带领大家一起研究并学习一下“VB.NET数据库怎么用”这篇文章吧。
十多年的惠东网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。营销型网站的优势是能够根据用户设备显示端的尺寸不同,自动调整惠东建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。创新互联从事“惠东网站设计”,“惠东网站推广”以来,每个客户项目都认真落实执行。
VB.NET数据库代码示例:
Imports System
Imports System.Data
Imports System.Data.SqlClient
public Class MainClassclass MainClass
Shared Sub Main()Sub Main()
Dim thisConnection As New SqlConnection
("server=(local)\SQLEXPRESS;" & _
"integrated security=sspi;database=
MyDatabase")
' Sql Query
Dim sql As String = "SELECT *
FROM Employee "
Dim insertSql As String = "INSERT
INTO Employee " & _
"(ID, FirstName, LastName)VALUES" & _
"(@ID, @FirstName, @LastName)"
Try
' Create Data Adapter
Dim da As New SqlDataAdapter
da.SelectCommand = New SqlCommand
(sql, thisConnection)
' Create and fill Dataset
Dim ds As New DataSet
da.Fill(ds, "Employee")
' Get the Data Table
Dim dt As DataTable = ds.Tables
("Employee")
' Display Rows Before Changed
Console.WriteLine("Before altering
the dataset")
For Each row As DataRow In dt.Rows
Console.WriteLine("{0} | {1} | {2}", _
row("ID").ToString().PadRight(10), _
row("FirstName").ToString().PadRight(10), _
row("LastName"))
Next
' Add A Row
Dim newRow As DataRow = dt.NewRow()
newRow("FirstName") = "Edna"
newRow("LastName") = "Everage"
newRow("ID") = "2"
dt.Rows.Add(newRow)
' Display Rows After Alteration
Console.WriteLine("=========")
Console.WriteLine("After
altering the dataset")
For Each row As DataRow In dt.Rows
Console.WriteLine("{0} | {1} | {2}", _
row("ID").ToString().PadRight(10), _
row("FirstName").ToString().PadRight(10), _
row("LastName"))
Next
' Insert employees
' 1. Create command
Dim insertCmd As New SqlCommand
(insertSql, thisConnection)
' 2. Map parameters
insertCmd.Parameters.Add("@FirstName", _
SqlDbType.NVarChar, 10, "FirstName")
insertCmd.Parameters.Add("@LastName", _
SqlDbType.NVarChar, 20, "LastName")
insertCmd.Parameters.Add("@ID", _
SqlDbType.Int, 15, "ID")
' 3. Insert employees
da.InsertCommand = insertCmd
da.Update(ds, "Employee")
Catch ex As SqlException
' Display error
Console.WriteLine("Error: "
& ex.ToString())
Finally
' Close Connection
thisConnection.Close()
Console.WriteLine("Connection
Closed")
End Try
End Sub
End Class
以上是“VB.NET数据库怎么用”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注创新互联行业资讯频道!
文章名称:VB.NET数据库怎么用
文章地址:https://www.cdcxhl.com/article32/ppecpc.html
成都网站建设公司_创新互联,为您提供电子商务、小程序开发、网站设计公司、标签优化、域名注册、云服务器
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联