订阅专栏

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

 

本节在上一节的基础上学习在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 教程 目录

 

 

 

 

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

版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

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