VB.NET数据库查询怎么做?

来自异世界的李狗蛋 2021-01-27 03:10:05
用VB.NET查询一个access数据库,代码如下
从textbox1输入查询的值 按button1后查询,将结果从label2输出

Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'定义一个baiOLEDB连接并实例化它
Dim con As New OleDbConnection
'定义一个OLEDB命令并实例化他
Dim cmd As New OleDbCommand
'定义一个OLEDBReader方法来读取数据库
Dim dr As OleDbDataReader
'初始化con的连接属性,使用OLEDB模式,数据源为:
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\字典项目\数据库\dic.mdb"
'打开OLEDB数据连接
con.Open()
'初始化OLEDB命令的连接属性为con
cmd.Connection = con
'初始化OLEDB命令的语句
cmd.CommandText = "select keyss from dic where ID=" & TextBox1.Text & ""
dr = cmd.ExecuteReader()
If dr.Read() Then
Label2.Text = dr(0)
End If
dr.Close()
con.Close()
End sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub
End Class


运行查询的时候报错 “dr = cmd.ExecuteReader() 至少一个参数没有被指定值”
为什么啊
...全文
270 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
andwdz 2021-01-28
  • 打赏
  • 举报
回复
楼上的为正解
ManBOyyy 2021-01-28
  • 打赏
  • 举报
回复
你試試改為 cmd.CommandText = "select keyss from dic where ID='" & TextBox1.Text & "'"
wy_zhou 2021-01-28
  • 打赏
  • 举报
回复
cmd.CommandText = "select keyss from dic where ID='" & TextBox1.Text & "'" 代码中查询时不像在数据库中使用双引号,在代码中要使用单引号

16,722

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧