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

古城微笑少年丶 2022-09-11 05:23 220阅读 0赞

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

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

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

[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/