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
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请联系我们举报，一经查实，本站将立刻删除。
发布者：全栈程序员-站长，转载请注明出处：https://javaforall.net/2875.html原文链接：https://javaforall.net
