vb连接access数据库
1插入相应的包
Imports System.Data.OleDb
2声明连接参数
Dim OleDbConnection1 As OleDb.OleDbConnection
Dim strConnect As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\db1.mdb"
3建立连接
OleDbConnection1 = New System.Data.OleDb.OleDbConnection(strConnect)
OleDbConnection1.Open()
4执行语句查询
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
cmd.Connection = OleDbConnection1
'初始化OLEDB命令的语句 就是查询 什么字段从什么表 条件是ID等于你在t1中输入的内容
cmd.CommandText = "select * from student"
'执行OLEDB命令以ExecuteReader()方式，并返回一个OLEDBReader，赋值给dr
dr = cmd.ExecuteReader()
'判断下dr中是否有数据。如果有就把第一个值赋值给t2的值
If dr.Read() Then
TextBox1.Text = dr(1)
End If
End Sub
vb程序代做，有需要的联系我。q:2316773638
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
发布者：全栈程序员-用户IM，转载请注明出处：https://javaforall.cn/2875.html原文链接：https://javaforall.cn
【正版授权，激活自己账号】： Jetbrains全家桶Ide使用，1年售后保障，每天仅需1毛
【官方授权 正版激活】： 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...
