vb.net 教程 8-3 数据库操作3

当前位置:

订阅专栏

本节在上一节的基础上学习在Command中设置sql语句参数：

还是以一个实例说明：

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

Dim odc As New OleDbConnection()

odc.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;data source=D:\save\博客教程\08 数据库\Northwind.mdb"

Dim odcommand As New OleDbCommand()

odcommand.CommandText = "select * from 产品 where 单价>@price"

odcommand.Parameters.Add("@price", OleDbType.Currency)

odcommand.Parameters("@price").Value = 30

odcommand.Connection = odc

odc.Open()

Dim odReader As OleDbDataReader

odReader = odcommand.ExecuteReader(CommandBehavior.SingleResult) ' Or CommandBehavior.SingleRow)

Dim queryString As String = ""

If odReader.HasRows Then

Do While odReader.Read

For i As Integer = 0 To odReader.FieldCount - 1

queryString &= odReader.GetName(i) & ":" & odReader.GetValue(i) & " "

Next i

queryString &= vbCrLf

Loop

End If

odc.Close()

TextBox1.Text = queryString

End Sub

在odCommand.CommandText中使用了 @price，

使用odCommand.Parameters.Add方法增加参数，并且值设置为30

实际等效于执行查询：select * from 产品 where 单价>30

运行结果如下：

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

学习更多vb.net知识，请参看vb.net 教程目录

————————————————

原文链接：https://blog.csdn.net/uruseibest/article/details/78776824

栏目列表