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博客教程8 数据库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 教程 目录

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!